Script Not Displaying Results

[JEngles]

Can some please tell me why this simple script isn't diplaying any results. I have tried running it through cscript and wscript. I don't seem to have any problems running any others. Thanks.

'On Error Resume Next
Dim strComputer
Dim objWMIService
Dim propValue
Dim objItem
Dim SWBemlocator
Dim UserName
Dim Password
Dim colItems

strComputer = "."
UserName = ""
Password = ""
Set SWBemlocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = SWBemlocator.ConnectServer(strComputer,"root\CIMV2",UserName,Password)
Set colItems = objWMIService.ExecQuery("Select * from Win32_VideoConfiguration",,48)
For Each objItem in colItems
WScript.Echo "AdapterDescription: " & objItem.AdapterDescription
WScript.Echo "Description: " & objItem.Description
WScript.Echo "DeviceSpecificPens: " & objItem.DeviceSpecificPens
WScript.Echo "MonitorManufacturer: " & objItem.MonitorManufacturer
WScript.Echo "MonitorType: " & objItem.MonitorType
WScript.Echo "Name: " & objItem.Name
WScript.Echo "ScreenHeight: " & objItem.ScreenHeight
WScript.Echo "ScreenWidth: " & objItem.ScreenWidth
Next

 

[markdmac]

What OS are you running the script on?

I just checked my Vista x64 system and the Win32_VideoConfiguration class does not exist there. Took a look on my wife's XP system and she does have that class.

Are you executing this on Vista?

I hope you find this post helpful.

Regards,

Mark

Check out my scripting solutions at

http://www.thespidersparlor.com/vbscript

Work SMARTER not HARDER. The Spider's Parlor's Admin Script Pack is a collection of Administrative scripts designed to make IT Administration easier! Save time, get more work done, get the Admin Script Pack.

 

[JEngles]

Yes indeed I'm running it on XP.

 

[PHV]

Have a look here:

http://msdn2.microsoft.com/en-us/library/aa394511.aspx

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[JEngles]

Thanks guys, that did the trick. It never occured to me that they removed that class.