Golgappa.net | Golgappa.org | BagIndia.net | BodyIndia.Com | CabIndia.net | CarsBikes.net | CarsBikes.org | CashIndia.net | ConsumerIndia.net | CookingIndia.net | DataIndia.net | DealIndia.net | EmailIndia.net | FirstTablet.com | FirstTourist.com | ForsaleIndia.net | IndiaBody.Com | IndiaCab.net | IndiaCash.net | IndiaModel.net | KidForum.net | OfficeIndia.net | PaysIndia.com | RestaurantIndia.net | RestaurantsIndia.net | SaleForum.net | SellForum.net | SoldIndia.com | StarIndia.net | TomatoCab.com | TomatoCabs.com | TownIndia.com
Interested to Buy Any Domain ? << Click Here >> for more details...


write a program to display the system specifications of
client system with the help of vb script.



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

Post New Answer

More VB Script Interview Questions

What are the rules to name variable in vbscript?

0 Answers  


what is the object hyrarchy in QTP for a web based application

0 Answers  


Write a vbscript procedure that converts feet to inches. Hint: there are 12 inches in a foot?

0 Answers  


How should i Create Email invite with server-side Coding?

0 Answers   Altair,


write generic functions for webapplication?like generic function for webedit generic function for webbutton generic function for links

1 Answers  


Can automation testing find ssame no. of bugs what we can find by manual testing?

0 Answers  


How to search word in a string without using instring function?

1 Answers   CSS Corp,


what is resorceallocation

0 Answers  


Mention what if you do not specify anything when you call a procedure?

0 Answers  


Hi, I need to accept user inputs for login at runtime.I know i can use Inputbox but how to proceed further that i dont know. Thanks in advance

2 Answers  


Explain the scope of the variables using dim, public, and private keywords respectively.

0 Answers  


How can I get the value of an object property or variable in another frame?

1 Answers   Citi Bank,


Categories