write a program to display the system specifications of
client system with the help of vb script.
Answer / vasanth
Sub Screen_Resolution
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer
& "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From
Win32_DisplayConfiguration")
For Each objItem in colItems
'msgbox "Name: " & objItem.DeviceName
'msgbox "Color depth: " & objItem.BitsPerPel
'msgbox "Horizontal resolution: " & objItem.PelsWidth
'msgbox "Vertical resolution: " & objItem.PelsHeight
If objItem.PelsWidth <> 1024 Or objItem.PelsHeight <> 768
Then
MsgBox "Current screen resolution is "
&objItem.PelsWidth& " by " &objItem.PelsHeight
MsgBox "Scripts cannnot be executed, We only support 1024
by 768 "
ExitAction()
End if
Next
End Sub
| Is This Answer Correct ? | 0 Yes | 0 No |
how to answer "TELL ME ABOUT UR SELF" as exp.person. whr to start and whr to stop. can anyone tel me
Whenever I use Wscript.Echo Qtp raising Run time error as 'Object required for Wscript' How I can create object for Wscript
Write a vbscript procedure that converts feet to inches. Hint: there are 12 inches in a foot?
What variable can you use to share info across the whole application for one user?
How will you format a number in percetage format in vbscript?
Explain the filter expression?
How to add actions in driver script to run those actions in QTP?
Create a file system object to do the following i. Create a folder ii. Create a text file in the folder iii. Update text file with some tex
When does ‘on click of button’ event gets triggered in the vbscript language?
w r p syed then output was deys and click eysd and click ysde and click sdey and click deys and click eysd............
how to write vb script code for login gmail page by using notepad and how to run script in notepad
Hi, Anybody could tell me What is the script for Reverse of Given number. Ex:236--632. Thanks in Advance..