Scripting: 每天察看30台server

[wm8033]

假设server names are: A, B, C, D, ....Z,
log in name is: administrator
passwords are pa, pb, ....


每天需要检查
1。当天及前一天Veritas的 backup 是否成功（各个server backup的时间不同，所以有必要看前一天的）
2。打开某个硬盘上某处的一个log file， 察看当天是否有5条新纪录（每条新纪录一行，内容有一部分是固定的， 有一部分和日期有关）
3。察看 Event viewer, 看看有无异常。

用 VbScript(?)写？怎么写？有没有好建议？网上哪里有（密切）相关的资料？

[sink]

连接部分可以作个批处理,把a--z写入一个文本文件:
for /F %a in (1.txt) do cscript check.vbs %a administrator p%a

至于check.vbs,给你一个远程备份并清除日志的脚本:

on error resume next
if (lcase(right(wscript.fullname,11))="wscript.exe") then
set objShell=wscript.createObject("wscript.shell")
objShell.Run("cmd.exe /k cscript "&chr(34)&wscript.scriptfullname&chr(34))
wscript.quit
end if
if wscript.arguments.count<>3 then
usage()
wscript.echo "Error: Not enough parameters."
wscript.quit
end if

ipaddress=wscript.arguments(0)
username=wscript.arguments(1)
password=wscript.arguments(2)



set objlocator=createobject("wbemscripting.swbemlocator")
wscript.echo "Conneting "&ipaddress&"...."
set objswbemservices=objlocator.connectserver(ipaddress,"root\cimv2",username,password)
showerror(err.number)

Set colLogFiles = objswbemservices.ExecQuery _
("Select * from Win32_NTEventLogFile where LogFileName='Application'")
For Each objLogfile in colLogFiles
errBackupLog = objLogFile.BackupEventLog("c:\scripts\application.evt")
If errBackupLog <> 0 Then
Wscript.Echo "The Application event log could not be backed up."
Else
objLogFile.ClearEventLog()
End If
Next


我有一个脚本编程的一些实例,你要的话,留下信箱发给你

[Snakesnoop]

应该没办法吧？！好像.net可以做到。

[wm8033]

up

[wssyn]

up