Error running script on Windows 2008

Hi Guys,
 
I get the following error:
Script:  c:\diskUsage.vbs
Line:  15
Char:  1
Error:  The remote server machine does not exist or is unavailable: 'GetObject'
Code:  800A01CE
Source:  Microsoft VBScript runtime error
 
 -- when trying to run this script on a Windows Server 2008:
 
Input = InputBox("Please enter machine name:","Machine Name")
strComputer = Input
' const strComputer = "."
' const strReport = "c:\diskspace.txt"
strReport = "C:\" & Input & ".txt"

Dim objWMIService, objItem, colItems
Dim strDriveType, strDiskSize, txt
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalDisk WHERE DriveType=3")
txt = "Drive" & vbtab & "Size" & vbtab & "Used" & vbtab & "Free" & vbtab & "Free(%)" & vbcrlf
For Each objItem in colItems
 
 DIM pctFreeSpace,strFreeSpace,strusedSpace
 
 pctFreeSpace = INT((objItem.FreeSpace / objItem.Size) * 1000)/10
 strDiskSize = Int(objItem.Size /1073741824) & "Gb"
 strFreeSpace = Int(objItem.FreeSpace /1073741824) & "Gb"
 strUsedSpace = Int((objItem.Size-objItem.FreeSpace)/1073741824) & "Gb"
 txt = txt & objItem.Name & vbtab & strDiskSize & vbtab & strUsedSpace & vbTab & strFreeSpace & vbtab & pctFreeSpace & vbcrlf
Next
writeTextFile txt, strReport
wscript.echo "Report written to " & strReport & vbcrlf & vbcrlf & txt
' Procedure to write output to a text file
private sub writeTextFile(byval txt,byval strTextFilePath)
 Dim objFSO,objTextFile
 
 set objFSO = createobject("Scripting.FileSystemObject")
 set objTextFile = objFSO.CreateTextFile(strTextFilePath)
 objTextFile.Write(txt)
 objTextFile.Close
 SET objTextFile = nothing
end sub
 
Works flawlessly on all my 2003 machines.  Any help will be greatly appreciated.
 
C

59cobalt

CoquitoKing
I get the following error:
Script:  c:\diskUsage.vbs
Line:  15
Char:  1
Error:  The remote server machine does not exist or is unavailable: 'GetObject'
Code:  800A01CE
Source:  Microsoft VBScript runtime error

-- when trying to run this script on a Windows Server 2008:

Disable the firewall.

 
I just checked and disabled the firewall.  All is working ok now.   
 
Thanks again 59cobalt
 
 

Firewall was my first guess also. If they are in different domains without cross domain trust that would be an issue as well. Check the event logs.