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

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

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