Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
60270 / 76732 ←次へ　｜　前へ→
【21103】Re:Windowsのシャットダウン時に処理を実行したい
発言  ちゃっぴ  - 05/1/11(火) 23:40 -
引用なし
パスワード
   WMIに"Win32_ComputerShutdownEvent"というClassがあるので
とりあえずScript作ってみましたが、捕らえられんかった･･･

何でだろう･･･

Dim objWMIService　 'As WbemScripting.SWbemServices
Dim objWMISink　　　'As WbemScripting.SWbemSink

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set objWMISink = WScript.CreateObject("WbemScripting.SWbemSink", "SINK_")

objWMIService.InstancesOfAsync _
　　objWMISink, "Win32_ComputerShutdownEvent"

Do
　　'WScript.Echo "waiting..."
　　WScript.Sleep 1000
Loop

Sub SINK_OnObjectReady(wmiObject, wmiAsyncContext)
　　WScript.Echo "Computer is shutting down."
End Sub
1 hits
▼ 【21078】Windowsのシャットダウン時に処理を実行したい G-Luck 05/1/11(火) 11:43 質問
【21079】Re:Windowsのシャットダウン時に処理を実行... IROC 05/1/11(火) 11:54 回答
【21098】Re:Windowsのシャットダウン時に処理を実行... G-Luck 05/1/11(火) 18:40 回答
【21100】Re:Windowsのシャットダウン時に処理を実行... IROC 05/1/11(火) 21:28 回答
【21138】Re:Windowsのシャットダウン時に処理を実行... G-Luck 05/1/12(水) 19:49 質問
【21102】Re:Windowsのシャットダウン時に処理を実行... ぎこにゃーにゃん 05/1/11(火) 23:09 回答
【21103】Re:Windowsのシャットダウン時に処理を実行... ちゃっぴ 05/1/11(火) 23:40 発言≪
【21137】Re:Windowsのシャットダウン時に処理を実行... G-Luck 05/1/12(水) 19:46 質問
【21141】Re:Windowsのシャットダウン時に処理を実行... ちゃっぴ 05/1/13(木) 0:31 発言
【21142】Re:Windowsのシャットダウン時に処理を実行... ちゃっぴ 05/1/13(木) 0:45 回答
【21155】Re:Windowsのシャットダウン時に処理を実行... G-Luck 05/1/13(木) 15:37 発言
【21139】Re:Windowsのシャットダウン時に処理を実行... tester 05/1/12(水) 21:15 回答
【21154】Re:Windowsのシャットダウン時に処理を実行... G-Luck 05/1/13(木) 15:33 発言
【21156】すぐに終了を表示させない G-Luck 05/1/13(木) 15:45 発言
【21169】一瞬の取得成功 G-Luck 05/1/13(木) 18:09 発言
【21175】取得に成功 G-Luck 05/1/13(木) 20:23 お礼
【21185】Re:取得に成功 G-Luck 05/1/14(金) 11:00 回答
【21209】Re:取得に成功 [名前なし] 05/1/15(土) 2:22 発言
【21210】Re:取得に成功 ちゃっぴ 05/1/15(土) 2:39 発言
【21211】Re:取得に成功 [名前なし] 05/1/15(土) 3:08 発言
【21223】Re:取得に成功 G-Luck 05/1/15(土) 19:30 発言
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
60270 / 76732 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free