|
Responding to my own question something like this which works well as a VBS script. How do I convert to kix ?
Set objWMIService = GetObject("Winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_DesktopMonitor where DeviceID = 'DesktopMonitor1'",,0)
For Each objItem in colItems
intHorizontal = objItem.ScreenWidth
intVertical = objItem.ScreenHeight
Next
if intHorizontal = 1024 then
msgbox "install screensaver 1024 here..."
End if
if intHorizontal = 800 then
msgbox " install screensaver 800 here..."
End if
| 
