VBS备份日志到远程主机

在测试中，发现系统没有做日志的归档，日志文件达到一定大小，就会删除，这样有时候发现问题，却没有log可查，于是自己写了个很简单的VB Script来完成这个备份的过程。

Dim objfs,today,myday,nymonth,MyTime,MyHour,MyMinute,filename

dim objws
set bjws=wscript.createobject("wscript.shell")
objws.run "cmd /c @net use\\192.168.254.11\ipc$"

Set bjfs = CreateObject("scripting.filesystemobject")

do while true

today = date
myday = day(today)
mymonth = month(today)
MyTime  =  Now
MyHour  =  Hour(MyTime)
MyMinute = Minute(MyTime)

filename = "CALogs_"&mymonth&"-"
filename = filename&myday&"-"
filename = filename&MyHour&","
filename = filename&MyMinute
filename = filename&".txt"
filename = "\\192.168.254.11\User\QAshare\Logs\sgf\"&filename

objfs.CopyFile "d:\WDM2\CALogs.txt.old",filename

Wscript.Sleep 1200000
loop

 

虽然很简单的一个脚本，自己记录一下。