ネットを検索してたら、PCをシャットダウンさせるというコード
Set objSystemSet = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}").InstancesOf("Win32_OperatingSystem")
For Each objSystem In objSystemSet
objSystem.Win32Shutdown 1
Next
をみつけたので以下のように試してみました。
Sub TEST()
Application.OnTime Now + TimeValue("0:05:00"), "PC_ShutDown"
End Sub
Sub PC_ShutDown()
Set objSystemSet = _
GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}") _
.InstancesOf("Win32_OperatingSystem")
For Each objSystem In objSystemSet
objSystem.Win32Shutdown 1
Next
End Sub
ところが実行すると、ログオフし、画面に、「コンピュータの電源を切ることができます」と表示されるのですが、そこでとまってしまいます。
PCの電源ボタンも長押しないときかなくなります。
自動で電源は切れないのでしょうか?
No.1
- 回答日時:
実証したわけでは有りませんが
>objSystem.Win32Shutdown 1
objSystem.Win32Shutdown 8
かも?
http://www.wmifun.net/sample/win32_operatingsyst …
ただアプリケーションの中で、更新後に変更を保存してないものがあったりすると
シャットダウン処理が中断してしまったり、
ACPIの設定で出来ないものは有るかもしれません。
WindowXP Pro でしたらコマンドプロンプトの Shutdown をShellで呼び出しても・・
他のPCのシャットダウンも(一部)出来ますのでお試しあれ。
ありがとうございました。
objSystem.Win32Shutdown 8
で通常はOKでしたが、スクリーンセイバー(パスワード付き)が起動していると止まってしまいました。
No.2ベストアンサー
- 回答日時:
こんばんは。
WMIで、Office は終了して、最後まで動いているのなら、「自動で電源は切れない」というのは、
objSystem.Win32Shutdown 1
引数が違うような気がしますが。
ExitWin
EWX_LOGOFF = 0 ログオフ
EWX_SHUTDOWN = 1 シャットダウン ←電源が切れる状態
EWX_REBOOT = 2 リブート
EWX_FORCE = 4 強制 ←必要?
EWX_POWEROFF = 8 パワーオフ ←必要?
たぶん、
objSystem.Win32Shutdown 4 + 8
ではないかと思います。
ただ、そのような内容のコードは、かなりデリケートな部分を含んでいますから、終了時の状態を監視せずに、終了することは、避けたほうがよいのではないか、と思います。
ありがとうございました。
objSystem.Win32Shutdown 4 + 8
で、完璧に作動しました。
> 終了時の状態を監視せずに、終了することは、避けたほうがよいのではないか、と思います。
はい、普段に使おうとは思っていません。
でも、どういう不具合が考えられるのでしょうか?
No.3
- 回答日時:
こんにちは。
Wendy02です。>でも、どういう不具合が考えられるのでしょうか?
ご存知だとは思いますが、終了時に、その設定を保存するのは普通ですが、場合によっては、終了時、ダウンロードデータを更新していることがありますね。また、メモリ上に、プロセスを残したり、ネットワークでトラブることがあるようです。たぶん、セキュリティ系の関係じゃないかと思います。起動して何も触らないまま、そのままExitWin することはないわけで、通常のパターン(XP?)なら、問題はないと思うものの、私などは、最後の終了までをメッセージなど何も出ないことを確認しないと、気に掛かるわけです。その監視自体を、マクロで行わせるには、ちょっと荷が重そうです。
ご丁寧にありがとうございました。
では、エクセル以外のプログラムはすべて終了したことを確認してから使用したいと思います。
お手数をおかけしました。
ありがとうございます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(OS) 助けてw Windows11パソコンがシャットダウン出来ない 5 2023/03/07 22:53
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) 【VBAエラー】Nextに対するForがありません 対策について 5 2022/11/21 21:26
- Visual Basic(VBA) FileSearch2007に変わる構文について 1 2022/12/16 16:57
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- Excel(エクセル) VBA フォルダ見える化のコードについて 2 2023/06/19 15:04
- 格安スマホ・SIMフリースマホ 対処法あれば、教えて下さい。 2 2022/08/13 12:45
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- ドライブ・ストレージ PCのパーフォーマンスが極端に落ちた。 8 2023/01/28 15:22
- Visual Basic(VBA) VBAが止まります。 1 2022/09/02 14:51
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
パソコンを起動するとこの画面...
-
ubuntu(linux)のシャットダウン...
-
OPPOリノ3aですが時々、知らぬ...
-
ウィンドウズ10使用中の「お...
-
Windows Update は、アップデー...
-
至急至急至急です! Windowsパ...
-
シャットダウンを止めるには
-
PCからUSBを安全に抜く方法とし...
-
再起動後の状態
-
PC電源のon off
-
みなさんは「パソコン」、寝る...
-
パソコンのロック画面でフリー...
-
シャットダウンと電源ブチ切り...
-
セットアップせずに電源を切る方法
-
至急:pcが真っ暗画面でマウスポ...
-
電源ボタンを1回押すだけで電源...
-
キーボードに触るとWIN10が起動...
-
ibookの強制再起動や強制終了の...
-
ubuntuのシャットダウンが進ま...
-
OS標準でUPS機能があるのでしょ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
パソコンを起動するとこの画面...
-
ubuntu(linux)のシャットダウン...
-
OPPOリノ3aですが時々、知らぬ...
-
ubuntuのシャットダウンが進ま...
-
すみません!パソコン開いて電...
-
PCからUSBを安全に抜く方法とし...
-
Windows 10 画面が動かなくなっ...
-
シャットダウン時に確認メッセ...
-
再起動後の状態
-
Windows のアップデートを途中...
-
シャットダウン中にパソコンの...
-
Linuxサーバーが突然再起動した...
-
リカバリ後の電源の切り方について
-
PC電源のon off
-
キーボードに触るとWIN10が起動...
-
ウィンドウズ10使用中の「お...
-
みなさんは「パソコン」、寝る...
-
セットアップせずに電源を切る方法
-
至急至急至急です! Windowsパ...
-
Ctrlキー、Altキー、Delキーの...
おすすめ情報