« 気になる商品 - SATAハードディスク用クレードル裸族のお立台 | トップページ | こりゃ安い - MACお宝鑑定団、テレコムサービスと共同でiPhone 3GS特別キャンペーンを開始 »

2009年10月19日 (月)

WSH - シャットダウン/再起動

WSHでシステムをシャットダウンしたり、再起動したりする処理。
MicosoftのTechNetを参考に。

'------------------------------
'引数
'  intType ... 1=シャットダウン
'              2=再起動
'------------------------------
Function sShutdown(intType)
  Dim colOS, objOS
  Dim objWMIShutdown, strComputer

  strComputer = "."
  Set objWMIShutdown = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}!\\" & strComputer & "\root\cimv2")

  Set colOS = objWMIShutdown.ExecQuery("Select * from Win32_OperatingSystem")
  For Each objOS in colOS
    If intType = 1 Then
      objOS.Win32Shutdown(1)
    Else
      objOS.Reboot()
    End If
  Next

  WScript.Quit
End Function

外部リンク:
スタートアップとシャットダウン - Micosoft TechNet

« 気になる商品 - SATAハードディスク用クレードル裸族のお立台 | トップページ | こりゃ安い - MACお宝鑑定団、テレコムサービスと共同でiPhone 3GS特別キャンペーンを開始 »

プログラム・スクリプト」カテゴリの記事

2019年11月
          1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30

Amazonリンク

ダイビング写真(swf)

ブログ内検索

  • Google
    WWW を検索
    ブログ内を検索

リンク(いつもお世話さま)

  • ソニーストア
     iTunes Store(Japan)
    Just MyShop(ジャストシステム)
    ブックオフオンライン
無料ブログはココログ