Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
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