set objLocator = CreateObject("WbemScripting.SWbemLocator")
set objWMI = objLocator.ConnectServer("srv01", "root\cimv2", _
              "srv01\administrator", "Adm1nPa33wd")
set objDisks = objWMI.InstancesOf("Win32_LogicalDisk")
for each objDisk in objDisks
        Wscript.Echo " Identyfikator urzdzenia: " & objDisk.DeviceID
        Wscript.Echo " System plikw: " & objDisk.FileSystem
        Wscript.Echo " Wolny obszar: " & objDisk.FreeSpace
        Wscript.Echo "Rozmiar: " & objDisk.Size
        WScript.Echo ""
next
