« 気になる商品 - 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特別キャンペーンを開始 »

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

2021年6月
    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(ジャストシステム)
    ブックオフオンライン
無料ブログはココログ