3流プログラマのメモ書き

元開発職→社内SE→派遣で営業支援の三流プログラマのIT技術メモ書き。このメモが忘れっぽい自分とググってきた技術者の役に立ってくれれば幸いです。(jehupc.exblog.jpから移転中)

VBA、マクロ

VBScriptでシャットダウンや再起動、ログオフを行う方法です。

下記のようなコードでできるようです。

Option Explicit

Dim objShut , objOS , objSystem

'シャットダウンオブジェクト取得

Set objShut = GetObject("winmgmts:{impersonationLevel = impersonate, (Shutdown)}")

'OSのオブジェクト取得

Set objOS = objShut.InstancesOf("Win32_OperatingSystem")

'シャットダウン

For Each objSystem In objOS

objSystem.Win32Shutdown 8

'再起動

For Each objSystem In objOS

objSystem.Win32Shutdown 2

'ログオフ

For Each objSystem In objOS

objSystem.Win32Shutdown 0

参考: