Vbs: аналог объекта screen?

Формулировка задачи:

Собсвенно, надо в скрипте узнать разрешение экрана, типа Screen.Height, Screen.TwipsPerPixelX в VB.

Решение задачи: «Vbs: аналог объекта screen?»

textual
                            Листинг программы 
                        

                            [/SRC]<font color="blue">Set</font> Locator = CreateObject(<font color="teal">"WbemScripting.SWbemLocator"</font>)
<font color="blue">Set</font> Services = Locator.ConnectServer(<font color="teal">"."</font>)
<font color="blue">Set</font> Obj = Services.ExecQuery(<font color="teal">"Select * from Win32_DesktopMonitor"</font>)

<font color="blue">For</font> <font color="blue">Each</font> Item <font color="blue">In</font> Obj
mymsg = msgbox(Item.ScreenWidth & <font color="teal">"x"</font> & Item.ScreenHeight)
<font color="blue">Next</font>[SRC vba]
                        