VBスクリプトでPing応答があったら再起動を実行する方法

Ping応答があったら再起動を実行するスクリプトです。各端末の管理者権限を持つアカウントを作成してタスクスケジュールすれば一台の管理サーバから集中して再起動が管理出来ます。

動作確認はWindows XP、Windows 2003のみです。

こんな感じで実行します。

2 COMMENTS

pnpk

>icemanさん
こんばんは、コメントありがとうございます。

単純に30秒待つという事なら、Sleepを利用すると良いと思います。

例えば以下のVBSを実行すると、「30秒後に30秒経過しました!」と表示されます。

WScript.Sleep(30000)
Wscript.Echo(“30秒経過しました!”)

今回のスクリプトの場合、20行目辺りにWScript.Sleep(30000)を追加すると30秒待ってからShutDownWindows()を呼ぶようになります。

※改めて見ると、ShutDownWindowsはFunctionではなくSubの方が適切でした。失礼しました。

iceman

VBSを参考にご利用させていただいてます。再起動する時間を30秒後などじする場合はどうしたら良いのでしょうか?

コメントを残す

メールアドレスが公開されることはありません。 が付いている欄は必須項目です