disp/toggle_dualdisp.vbs
changeset 0 3b65651e7033
equal deleted inserted replaced
-1:000000000000 0:a64fceaa7b01
       
     1 Dim action
       
     2 action = "asis"
       
     3 
       
     4 If WScript.Arguments.Count <> 1 then
       
     5    WScript.quit
       
     6 End If
       
     7 
       
     8 If WScript.Arguments.item(0) = "on" Then
       
     9     action = "on"
       
    10 Else
       
    11     action = "off"
       
    12 End If
       
    13 
       
    14 
       
    15 ' Dim Locator
       
    16 ' Dim Service
       
    17 ' Dim QfeSet
       
    18 ' Dim Qfe
       
    19 
       
    20 ' Set Locator = WScript.CreateObject("WbemScripting.SWbemLocator")
       
    21 ' Set Service = Locator.ConnectServer
       
    22 ' Set QfeSet = Service.ExecQuery("Select * From Win32_DesktopMonitor")
       
    23 
       
    24 ' Dim accum
       
    25 ' accum = 0
       
    26 
       
    27 ' If Qfeset.Count = 2 Then
       
    28 '     For Each Qfe In QfeSet
       
    29 '         accum = accum * 10
       
    30 '         accum = accum + Qfe.Availability        
       
    31 '     Next
       
    32 '     If accum = 38 Or accum = 83 Then
       
    33 '         action = "on"
       
    34 '     ElseIf accum = 33 Then
       
    35 '         action = "off"
       
    36 '     End If
       
    37 ' End If
       
    38 
       
    39 Dim objWsh
       
    40 Set objWsh = WScript.CreateObject("WScript.Shell")
       
    41 objWsh.Run "control.exe desk.cpl ,4"
       
    42 Do Until objWsh.AppActivate("画面のプロパティ")
       
    43     WScript.Sleep 100
       
    44 Loop
       
    45 
       
    46 If action = "on" Then
       
    47     objWsh.SendKeys "{TAB}"
       
    48     objWsh.SendKeys "2"
       
    49     objWsh.SendKeys "{TAB 4}"
       
    50     objWsh.SendKeys " "
       
    51     objWsh.SendKeys "{UP 19}"
       
    52     objWsh.SendKeys "{LEFT 29}"
       
    53     objWsh.SendKeys "{DOWN 7}"
       
    54     objWsh.SendKeys "{TAB 9}"
       
    55     'objWsh.SendKeys "{ENTER}"
       
    56 ElseIf action = "off" Then
       
    57     objWsh.SendKeys "{TAB}"
       
    58     objWsh.SendKeys "2"
       
    59     objWsh.SendKeys "{TAB 5}"
       
    60     objWsh.SendKeys " "
       
    61     objWsh.SendKeys "{TAB 8}"
       
    62     'objWsh.SendKeys "{ENTER}"
       
    63 End If
       
    64