change the screenWidth using wmi ?

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

change the screenWidth using wmi ?

Logged in as: Guest

arrSession:exec spGetSession 2,2,53416

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

Printable Version

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

Page: [1]

Message

<< Older Topic Newer Topic >>

change the screenWidth using wmi ? - 11/9/2007 8:19:52 PM

somebody

Posts: 4
Score: 0
Joined: 10/23/2007
From: Guangzhou,China
Status: offline

we know that we can get the system screenwidth and screenheight using wmi:

wmic desktopmonitor get ScreenWidth, ScreenHeight

what if i wanna change the system ScreenWidth and ScreenHeight ?

wmic desktopmonitor create ScreenWidth=1024 , ScreenHeight=768

the WMI class DesktopMonitor has got a menthod Create,according to its help message,we can change the value of ScreenWidth and ScreenHeight by using the Create Menthod to create a new instance:

wmic desktopmonitor create ScreenWidth=1024 , ScreenHeight=768

unfortunately,the following error occures:

Error:
code = 0x80041024
description = program can not excute the operation
device = WMI

anyone knows what seems to be the problem..?
Any help will be greatly appreciated !

Post #: 1

RE: change the screenWidth using wmi ? - 12/3/2007 8:36:13 AM

Meg

Posts: 126
Score: 2
Joined: 7/13/2006
From: Australia
Status: offline

Microsoft say No as resolution is read only via script http://www.microsoft.com/technet/scriptcenter/resources/qanda/jul05/hey0721.mspx

quote:

The scripting Guy

"there's no built-in way to change the screen resolution using a script."

But this looks promising http://www.entechtaiwan.com/util/multires.shtm

< Message edited by Meg -- 12/3/2007 8:41:39 AM >

(in reply to somebody)

Post #: 2

RE: change the screenWidth using wmi ? - 12/3/2007 11:08:30 PM

TNO

Posts: 1282
Score: 12
Joined: 12/18/2004
From: thenewobjective.com
Status: offline

I actually went over this same question a couple years ago. Visual Basic CAN do it, vbs/js cannot alone:

http://www.spoogenet.com/index.php?module=article&view=12&5cbaa9d36385e275f0a415eb9b827618=e3284fc043df32fcd035ba65d4febb6c

*The Offtopic Visual Basic code to accomplish this*

Private Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, ByVal iModeNum As Long, lpDevMode As Any) As Boolean
 
 
 Private Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (lpDevMode As Any, ByVal dwflags As Long) As Long
     Private Const CCDEVICENAME = 32
     Private Const CCFORMNAME = 32
     Private Const DM_BITSPERPEL = &H60000
     Private Const DM_PELSWIDTH = &H80000
     Private Const DM_PELSHEIGHT = &H100000
 
 
 Private Type DEVMODE
     dmDeviceName As String * CCDEVICENAME
     dmSpecVersion As Integer
     dmDriverVersion As Integer
     dmSize As Integer
     dmDriverExtra As Integer
     dmFields As Long
     dmOrientation As Integer
     dmPaperSize As Integer
     dmPaperLength As Integer
     dmPaperWidth As Integer
     dmScale As Integer
     dmCopies As Integer
     dmDefaultSource As Integer
     dmPrintQuality As Integer
     dmColor As Integer
     dmDuplex As Integer
     dmYResolution As Integer
     dmTTOption As Integer
     dmCollate As Integer
     dmFormName As String * CCFORMNAME
     dmUnusedPadding As Integer
     dmBitsPerPel As Integer
     dmPelsWidth As Long
     dmPelsHeight As Long
     dmDisplayFlags As Long
     dmDisplayFrequency As Long
     End Type
 
 ' Inputs:Dim RetValue As Integer
 RetValue = ChangeRes(800, 600, 32)
 '
 ' Returns:1 = Resolution Successfully Ch
 '     anged
 0 = Resolution Was Not Changed
 
 Function ChangeRes(Width As Single, Height As Single, BPP As Integer) As Integer
     On Error GoTo ERROR_HANDLER
     Dim DevM As DEVMODE, I As Integer, ReturnVal As Boolean, _
     RetValue, OldWidth As Single, OldHeight As Single, _
     OldBPP As Integer
     Call EnumDisplaySettings(0&, -1, DevM)
     OldWidth = DevM.dmPelsWidth
     OldHeight = DevM.dmPelsHeight
     OldBPP = DevM.dmBitsPerPel
     I = 0
 
 
     Do
         ReturnVal = EnumDisplaySettings(0&, I, DevM)
         I = I + 1
     Loop Until (ReturnVal = False)
     DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT Or DM_BITSPERPEL
     DevM.dmPelsWidth = Width
     DevM.dmPelsHeight = Height
     DevM.dmBitsPerPel = BPP
     Call ChangeDisplaySettings(DevM, 1)
 RetValue = MsgBox("Do You Wish To Keep Your Screen Resolution To " & Width & "x" & Height & " - " & BPP & " BPP?", vbQuestion + vbOKCancel, "Change Resolution Confirm:")
 
 
     If RetValue = vbCancel Then
         DevM.dmPelsWidth = OldWidth
         DevM.dmPelsHeight = OldHeight
         DevM.dmBitsPerPel = OldBPP
         Call ChangeDisplaySettings(DevM, 1)
 MsgBox "Old Resolution(" & OldWidth & " x " & OldHeight & ", " & OldBPP & " Bit) Successfully Restored!", vbInformation + vbOKOnly, "Resolution Confirm:"
         ChangeRes = 0
     Else
         ChangeRes = 1
     End If
     Exit Function
     ERROR_HANDLER:
     ChangeRes = 0
 End Function

_____________________________

To iterate is human, to recurse divine. -- L. Peter Deutsch

(in reply to Meg)

Post #: 3

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> WSH & Client Side VBScript >> change the screenWidth using wmi ?

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts