シャットダウンダイアログを開くスクリプトが二つ、シャットダウンするスクリプトが二つです。 スクリプトと言っても、それぞれひとつづつはコマンドラインで実行するアプリケーションです。 shutdown は、リモートデスクトップで接続している PC をシャットダウンする場合に使用可能です。
これはもともとシャットダウンダイアログを開く為のメソッドを実行しているものです。この後、実際にシャットダウンするには、キーストロークを送る事によって可能です。
Set Shell = Wscript.CreateObject( "Shell.Application" ) Shell.ShutdownWindows()
タスクの強制終了のはずなのですが、エクスプローラは終了する前に確認ダイアログを表示する仕様になっているようで、結果的にひとつ前のコードと同じ動作をしてしまいました。エクスプローラの再起動は こちらのスクリプト で可能ですが、Windows が再起動するのでは無く、エクスプローラのみ再起動します
Set WshShell = Wscript.CreateObject( "WScript.Shell" )
Call WshShell.Run("taskkill /im explorer.exe", 0 )
コマンドプロンプトから実行可能なシャットダウン方法です
Set WshShell = Wscript.CreateObject( "WScript.Shell" )
Call WshShell.Run("shutdown -s -t 0", 0 )
スクリプトを用いた最も汎用的なサンプルです。他の定数を使用して、ログオフやリプートも可能です
Const LOGOFF = 0
Const SHUTDOWN = 1
Const REBOOT = 2
Const FORCED_LOGOFF = 4
Const FORCED_SHUTDOWN = 5
Const FORCED_REBOOT = 6
Const POWEROFF = 8
Const FORCED_POWEROFF = 12
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & _
"{impersonationLevel=impersonate,(Shutdown)}!\\" & _
strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery _
("SELECT * FROM Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
ObjOperatingSystem.Win32Shutdown(SHUTDOWN)
Next
VBScriptドキュメント
|
|
【VBS + Shellの最新記事】
- VBScript を『管理者として実行する』には、Shell の runas ( 右クリックメニューの実行と同等 ) で実現します / Jscript も追加
- VBScript : キーストロークをウインドウに送信して、キー操作をした事にする( 例 : リモート デスクトップ接続ダイアログ )
- エクスプローラのフォルダから管理者権限でコマンドプロンプトを開く / 右クリックから『送る』で開く
- 管理者権限でコマンドプロンプトを開く VBScript をエクスプローラの右クリックで開く( そのフォルダで開く )方法
- シャットダウンダイアログを表示する / ログオフ・リブート・シャットダウン / VBScript
- Windows のファイルの『更新日付』のみ VBScript + Shell.Application で変更
- VBScript : プロパティダイアログを表示する
- VBScript : ファイルやフォルダを右クリックすると表示されるコマンド文字列の一覧を取得して、それを使ってコマンドを実行する
- VBScript : Shell.Application で開くWindows ツール
- Windows7 : VBScriptで、コントロールパネル内のエントリの実行
【VBScript関連のカテゴリ】
