2011/06/21

ファイルサーバ(192.168.1.3)をWOLで起動させ、robocopyでバックアップをするvbsテンプレート

dim strIP
dim timeOut
'タイムアウト設定(ミリ秒)
timeOut = "10"
strIP = "192.168.1.3"
 Set objWMIService = GetObject("winmgmts:\\.")
 Set colItems = objWMIService.ExecQuery _
    ("Select * from Win32_PingStatus " & _
        "Where Timeout = " & timeOut & " AND Address = '" & strIP & "'")

'wol.exeはWakeupOnLanTool 1.95のプログラム FileServerはファイルサーバの名前
  For Each objItem in colItems
     If objItem.StatusCode = 0 Then
     else
WScript.Sleep(120000)
Set shell = WScript.CreateObject("WScript.Shell")
s = "C:\wol\wol.exe /open=C:\wol\wol.ini /wake=1 FileServer"
shell.Run s, 7, True
     End If
  Next

Set shell = WScript.CreateObject("WScript.Shell")
s = "robocopy C:\Backup \\FileServer\Dest /JOB:C:\Scripts\Robocopy.RCJ"
shell.Run s, 7, True

WScript.Sleep(5000)

'サーバはFreeBSD+ZFSでスナップショットを毎日取るvbsスクリプトを実行
s = "C:\ZFSSnapshotDaily.vbs"
shell.Run s, 7, True


0 件のコメント:

コメントを投稿