Hallo allerseits
also das nachfolgende sollte tun. Ein Aufruf x = ShowAvailableSpace("\\server\c$") in der Domäne sollte die auf dem Server/Computer alles zeigen (entsprechende Berechtigungen vorrausgesetzt)
Einfach den nachfolgenden Code mit dem Notepad in eine Textdatei einfügenund dann in eine .VBS umwandeln.
Es wird dabei allerdings nicht überprüft, ob der Pfad überhaupt vorhanden ist. Das wären z.B. zwei zusätzliche Zeilen wie
ShowAvailableSpace = -1
if not fso.folderexits(drvPath) then exit function
vor dem GetDrive.
' Ab hier Code
wscript.echo ShowAvailableSpace("\\server\c$")
Function ShowAvailableSpace(drvPath)
Dim fso, d
Set fso = CreateObject("Scripting.FileSystemObject")
Set d = fso.GetDrive(fso.GetDriveName(drvPath))
ShowAvailableSpace = cstr(FormatNumber(d.AvailableSpace / 1024 / 1024 / 1024, 3)) & " GB / " & cstr(FormatNumber(d.TotalSize / 1024 / 1024 / 1024, 3)) & " GB"
End Function
' ***********************************************************************************************************************************
Function ShowAvailableSpacePercent(drvPath)
Dim fso, d
Set fso = CreateObject("Scripting.FileSystemObject")
Set d = fso.GetDrive(fso.GetDriveName(drvPath))
ShowAvailableSpacePercent = cstr(FormatNumber((100 * d.AvailableSpace) / d.TotalSize, 2) & " %")
End Function
'Ende Code
Läuft bei mir ohne Probleme ab Win2k (Xp/Win2k3)
Gruss
Bernhard