诺顿每天自动升级vbs文件

诺顿ftp里的病毒库每天都是会自动更新的，但是我们的liveupdate并不是每天自动更新的，下面这个脚本，可以自动登陆到ftp下载最新的病毒文件并运行，可以在计划任务里把这个脚本加上，每天就能自动更新最新的病毒文件！

绝无病毒，下面是源码，请自己编辑一个vbs文件就行了
nuupdate.vbs

dtmYesterday = DateAdd("d",-1,Date) strYear = DatePart("yyyy",dtmYesterday) If DatePart("m",dtmYesterday) < 10 Then strMonth = 0 & DatePart("m",dtmYesterday) Else strMonth = DatePart("m",dtmYesterday) End If If DatePart("d",dtmYesterday) < 10 Then strDay = 0 & DatePart("d",dtmYesterday) Else strDay = DatePart("d",dtmYesterday) End If strYest = strYear & strMonth & strDay Set WshShell = CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") TemporaryFolder=fso.GetSpecialFolder(2) Set tso = fso.OpenTextFile(TemporaryFolder & "\ftp.txt", 8,true,0) tso.writeline "binary" tso.writeline "mget /public/english_us_canada/antivirus_definitions/norton_antivirus/" & strYest & "*-x86.exe" tso.writeline "bye" tso.close runstr="CMD /K cd /d " & TemporaryFolder & _ "&ftp -A -i -s:ftp.txt ftp.symantec.com" WshShell.Run(runstr) runupdate="CMD /K CD /d "& TemporaryFolder & "\" & strYest & "*-x86.exe" WshShell.Run(runupdate) Set f = fso.GetFolder(TemporaryFolder) Set fc = f.Files For Each f1 in fc if instr(f1.name,strYest) and instr(f1.name,"-x86.exe") Then Set oExec = WshShell.Exec(TemporaryFolder & "\" & f1.name & " /q") Do While oExec.Status = 0 WScript.Sleep 10 Loop fso.DeleteFile(TemporaryFolder & "\" & f1.name) end if Next fso.DeleteFile(TemporaryFolder & "\ftp.txt") Set WshShell = Nothing