Ik probeer een klein scriptje te maken voor het veranderen van de scherm resolutie wanneer users ingeloggen op een AD server.
De volgende code heb ik verzonnen.
Echter, het werkt (standaard) van geen kant.
De MSDN van MS zuigt ook flink aars, waardoor er nauwelijks een normale tutorial te vinden is.
Kan iemand zien wat er mis is met deze code?
De volgende code heb ik verzonnen.
Echter, het werkt (standaard) van geen kant.
De MSDN van MS zuigt ook flink aars, waardoor er nauwelijks een normale tutorial te vinden is.
Kan iemand zien wat er mis is met deze code?
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
| On Error Resume Next
strComputer = "."
Set objSWbemService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set objClass = objSWbemService.Get("CIM_VideoControllerResolution")
Wscript.Echo "HRes: " & objClass.HorizontalResolution
Wscript.Echo "VRes: " & objClass.VerticalResolution
Wscript.Echo ""
objClass.HorizontalResolution = 800
objClass.VerticalResolution = 600
objContainer = objClass.Put_()
Wscript.Echo "HRes: " & objClass.HorizontalResolution
Wscript.Echo "VRes: " & objClass.VerticalResolution
Wscript.Echo "Error: " & Err.Number |