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 |
input values to accept 2 numbers & print the product, difference and sum using switch case
In QTP how to insert a data base check point for web based application and simultaneous link to code in expert veiw. hw to retrieve a data(single coulumn from server) that matches with inserted value manually or exported from excel sheet.
Am working with web application. i faced one senario. i.e, webpage having webtable having two coloumns, in that first coloumn is for serial no and second coloumn is for mac address link, now i want to get first row second coloumn value, that having macaddress as link. Please help me how to get that link?
What are class events?
Write a Fucntion to close all Opened browser expect desired one?
How will you get the last occurrence of one string within another string using vbscript?
Explain the operator precedence in vb script?
Please let me Know regarding any material regarding VB Scripting which should be easily understandable for Beginners.
* ** *** Please write a code to get output like above diagram? ple explain as it how the code works?
write a vb script to open a text file and write into it
What is vbscript procedures?
Write VB script to convert from feet to inches(hint 1feet=12 inches)