script to get the free disk space from all the servers

[AndyVBrestarted]

Hi All, I am new to the scritping world but did my best in colloating some information and wirting a script to get the free disk space from all the servers.. The only issue is for the servers on which i do not have access, the script is showing the same data of the previous server.in short "On Error Resume Next" is not working :-(

On Error Resume Next
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("C:\Documents and Settings\e580631\Desktop\Servers.txt")
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
Set colItems = objWMIService.ExecQuery ("Select * from Win32_LogicalDisk")
 
Do Until objTextFile.AtEndOfStream
strComputer = objTextFile.ReadLine
 
Wscript.Echo "ServerName : " & strComputer
 
For Each objItem in colItems
Wscript.Echo "DeviceID: "& VbTab & ObjItem.Name
Wscript.Echo "Total DiskSpace(IN GB): "& VbTab & Round(objItem.Size /1073741824,2)
Wscript.Echo "Free DiskSpace(IN GB): "& VbTab & Round(objItem.FreeSpace / 1073741824)
Wscript.Echo "Percentage Free: "& VbTab & Round((objItem.FreeSpace / objItem.Size) * 1000)/10
Next
Loop
WSCript.Quit

Kindly Assist.

[ADezii]

You may have to Reset/Assign Variable Values for each iteration of the Loop (Each objItem In colItems), as in:

Dim strDeviceID As String
Dim varTotalDiskSpace As Variant
Dim varFreeDiskSpace As Variant
Dim varPercentageFree As Variant

For Each objItem In colItems
  strDeviceID = ""
  varTotalDiskSpace = Null
  varFreeDiskSpace = Null
  varPercentageFree = Null
 
  strDeviceID = objItem.Name
  varTotalDiskSpace = Round(objItem.Size / 1073741824, 2)
  varFreeDiskSpace = Round(objItem.FreeSpace / 1073741824)
  varPercentageFree = Round((objItem.FreeSpace / objItem.Size) * 1000) / 10
 
  Wscript.Echo "DeviceID: " & vbTab & strDeviceID
  Wscript.Echo "Total DiskSpace(IN GB): " & vbTab & varTotalDiskSpace
  Wscript.Echo "Free DiskSpace(IN GB): " & vbTab & varFreeDiskSpace
  Wscript.Echo "Percentage Free: " & vbTab & varPercentageFree
Next