諾頓每天自動(dòng)升級(jí)vbs文件

諾頓ftp里的病毒庫(kù)每天都是會(huì)自動(dòng)更新的，但是我們的liveupdate并不是每天自動(dòng)更新的，下面這個(gè)腳本，可以自動(dòng)登陸到ftp下載最新的病毒文件并運(yùn)行，可以在計(jì)劃任務(wù)里把這個(gè)腳本加上，每天就能自動(dòng)更新最新的病毒文件！

絕無(wú)病毒，下面是源碼，請(qǐng)自己編輯一個(gè)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