Check screen resolution VBScript

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Check screen resolution VBScript

Logged in as: Guest

arrSession:exec spGetSession 2,2,33901

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Check screen resolution VBScript
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Check screen resolution VBScript - 4/25/2006 4:14:52 AM

mmol

Posts: 2
Score: 0
Joined: 4/25/2006
Status: offline

I need an example of a VBScript that checks current display resolution, and if it is less that 800 by 600 the script quits.

Post #: 1

RE: Check screen resolution VBScript - 4/25/2006 4:22:40 AM

ebgreen

Posts: 5069
Score: 31
Joined: 7/12/2005
Status: offline

Search these fora. This has been addressed before.

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to mmol)

Post #: 2

RE: Check screen resolution VBScript - 4/25/2006 7:41:20 PM

ginolard

Posts: 1068
Score: 21
Joined: 8/10/2005
Status: offline

Normally I would say the same as ebgreen, but hell, I'm feeling generous. Here's how to get the screen resolution

   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

_____________________________

Author of ManagePC - http://managepc.net
AD Query Template - http://www.visualbasicscript.com/m_40609/tm.htm
Consolidated Scripting Framework - http://www.visualbasicscript.com/m_59109/tm.htm

(in reply to ebgreen)