業務連絡。ご依頼のWSSのBackupスクリプトです。
普段利用しているのは、公開するには問題あるので、ザックリ版を作成しました。
10分くらいで作成したので、いい加減です。ブラッシュアップは明日やります。
#オブジェクト使いまわしたりとか...
--- ここから ---
stsadmPath = "C:\Program Files\Common Files\Microsoft Shared\web server extensions\60\BIN\stsadm.exe"
serverAddress = "http://192.168.0.1"
backupDir = "C:\"
Set objShell = WScript.CreateObject("WScript.Shell")
cmd = """" & stsadmPath & """ -o enumsites -url " & serverAddress
WScript.Echo cmd
Set objExec = objShell.Exec(cmd)
output = objExec.StdOut.ReadAll
WScript.Echo output
Set objDom = WScript.CreateObject("MSXML.DomDocument")
objDom.LoadXml(output)
For Each nodeSite In objDom.DocumentElement.ChildNodes
siteUrl = nodeSite.Attributes.GetNamedItem("Url").Value
cmd = """" & stsadmPath & """ -o backup -url " & siteUrl & " -filename " & backupDir & Replace(Replace(siteUrl, "http://", ""), "/", "_") & " -overwrite"
WScript.Echo cmd
Set objExec = objShell.Exec(cmd)
WScript.Echo objExec.StdOut.ReadAll
Next
--- ここまで ---