Shingo@0: Dim action
Shingo@0: action = "asis"
Shingo@0: 
Shingo@0: If WScript.Arguments.Count <> 1 then
Shingo@0:    WScript.quit
Shingo@0: End If
Shingo@0: 
Shingo@0: If WScript.Arguments.item(0) = "on" Then
Shingo@0:     action = "on"
Shingo@0: Else
Shingo@0:     action = "off"
Shingo@0: End If
Shingo@0: 
Shingo@0: 
Shingo@0: ' Dim Locator
Shingo@0: ' Dim Service
Shingo@0: ' Dim QfeSet
Shingo@0: ' Dim Qfe
Shingo@0: 
Shingo@0: ' Set Locator = WScript.CreateObject("WbemScripting.SWbemLocator")
Shingo@0: ' Set Service = Locator.ConnectServer
Shingo@0: ' Set QfeSet = Service.ExecQuery("Select * From Win32_DesktopMonitor")
Shingo@0: 
Shingo@0: ' Dim accum
Shingo@0: ' accum = 0
Shingo@0: 
Shingo@0: ' If Qfeset.Count = 2 Then
Shingo@0: '     For Each Qfe In QfeSet
Shingo@0: '         accum = accum * 10
Shingo@0: '         accum = accum + Qfe.Availability        
Shingo@0: '     Next
Shingo@0: '     If accum = 38 Or accum = 83 Then
Shingo@0: '         action = "on"
Shingo@0: '     ElseIf accum = 33 Then
Shingo@0: '         action = "off"
Shingo@0: '     End If
Shingo@0: ' End If
Shingo@0: 
Shingo@0: Dim objWsh
Shingo@0: Set objWsh = WScript.CreateObject("WScript.Shell")
Shingo@0: objWsh.Run "control.exe desk.cpl ,4"
Shingo@0: Do Until objWsh.AppActivate("画面のプロパティ")
Shingo@0:     WScript.Sleep 100
Shingo@0: Loop
Shingo@0: 
Shingo@0: If action = "on" Then
Shingo@0:     objWsh.SendKeys "{TAB}"
Shingo@0:     objWsh.SendKeys "2"
Shingo@0:     objWsh.SendKeys "{TAB 4}"
Shingo@0:     objWsh.SendKeys " "
Shingo@0:     objWsh.SendKeys "{UP 19}"
Shingo@0:     objWsh.SendKeys "{LEFT 29}"
Shingo@0:     objWsh.SendKeys "{DOWN 7}"
Shingo@0:     objWsh.SendKeys "{TAB 9}"
Shingo@0:     'objWsh.SendKeys "{ENTER}"
Shingo@0: ElseIf action = "off" Then
Shingo@0:     objWsh.SendKeys "{TAB}"
Shingo@0:     objWsh.SendKeys "2"
Shingo@0:     objWsh.SendKeys "{TAB 5}"
Shingo@0:     objWsh.SendKeys " "
Shingo@0:     objWsh.SendKeys "{TAB 8}"
Shingo@0:     'objWsh.SendKeys "{ENTER}"
Shingo@0: End If
Shingo@0: