2017年11月
      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
26 27 28 29 30    
無料ブログはココログ

« スクリプトから設定変更をブロードキャストする。 | トップページ | 画面全体やアクティブウィンドウのスナップショットを取得する。 »

2007年7月21日 (土)

CD/DVDとリムーバブルドライブの自動再生の有効/無効を切り替える。

ToggleAutoPlay.VBS

Set Excel=CreateObject("Excel.Application")
Set wShell=CreateObject("WScript.Shell")
Key="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDriveTypeAutoRun"
Value=wShell.RegRead(Key)
Select Case LCase(Value)
Case &H91 wShell.RegWrite Key,&HB5,"REG_DWORD"
Case &HB5 wShell.RegWrite Key,&H91,"REG_DWORD"
Case Else
  MsgBox "Unexpected value - &H" & Hex(Value),vbCritical,Key
  WScript.Quit
End Select

Excel.ExecuteExcel4Macro "CALL(""user32"",""SendMessageA"",""JJJJJ"",65535,26,0,0)"

Select Case LCase(Value)
Case &H91 wShell.PopUp "自動再生を「無効」 に変更しました。",2,WScript.ScriptName,vbCritical
Case &HB5 wShell.PopUp "自動再生を「有効」 に変更しました。",2,WScript.ScriptName,vbExclamation
End Select

« スクリプトから設定変更をブロードキャストする。 | トップページ | 画面全体やアクティブウィンドウのスナップショットを取得する。 »