Get Windows Experience Index Remotely

A little while ago I wrote about a little article concerning how to fake your Windows Experience Index.

Well I created a little script that will look at all the Windows Vista/Windows 7 Machines(PC’s) on your domain and give you the read out of what type of hardware is available on said domain/network.

strCompName = Inputbox("Get Hardware Performance Ratings" & vbcrlf & "of a Remote computer," & vbcrlf & "Input the Computer Name:")

Set objWMIservices = GetObject("winmgmts:\\" & strCompName & "\root\cimv2")
Set colWSA = objWMIservices.ExecQuery("Select * From Win32_WinSAT")

For Each objItem in colWSA
    Wscript.Echo "Hardware Performance Ratings"
    Wscript.Echo "Processor : " & objItem.CPUScore
    Wscript.Echo "Memory: " & objItem.MemoryScore
    Wscript.Echo "Graphics: " & objItem.GraphicsScore
    Wscript.Echo "Gaming graphics: " & objItem.D3DScore
    Wscript.Echo "Primary hard disk: " & objItem.DiskScore
next