Script make another resolution

[jurexo]

hello,

i need a script what change the resolution to 1280*800 when its a Dell Notebook..

i know where i can say: "if its a dell notebook"..

but now i need a script which change the resolution to 1280*800

this is my script which says: if its a dell notebook..

Set objNetwork = WScript.CreateObject("WScript.Network")
strComputer = objNetwork.ComputerName

On Error Resume Next

Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20



Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem", "WQL", _
wbemFlagReturnImmediately + wbemFlagForwardOnly)

For Each objItem In colItems

If (InStr(objItem.Model, " Dell Latitude") OR InStr(objItem.Model, " Dell Precision M")) = 1 Then


can someone give a script now which makes the resolution to 1280x800?

thx

 

[djtech2k]

Didn't you already post this or get the info here:

http://www.tek-tips.com/viewthread.cfm?qid=1357972

 

[jurexo]

yes but here i need a script which says: if its a dell client then make a resolution 1280x800

 

[jurexo]

I have post a script which make this but i cant need the resolution.exe file...i must have a single complete script which make all...no cmd and exe file