On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set OScolItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
For Each objItem in OScolItems
PCname = objItem.Name
Next
Set VCcolItems = objWMIService.ExecQuery("Select * from Win32_VideoController",,48)
For Each objItem in VCcolItems
HRes = objItem.CurrentHorizontalResolution
VRes = objItem.CurrentVerticalResolution
Next
WScript.Echo "Computer: " & PCname & vbTab & " Video Resolution:" & HRes & "x" & VRes