诺顿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
-----------------------
自由广告区 |
分类导航 |
邮件新闻资讯: IT业界 | 邮件服务器 | 邮件趣闻 | 移动电邮 电子邮箱 | 反垃圾邮件|邮件客户端|网络安全 行业数据 | 邮件人物 | 网站公告 | 行业法规 网络技术: 邮件原理 | 网络协议 | 网络管理 | 传输介质 线路接入 | 路由接口 | 邮件存储 | 华为3Com CISCO技术 | 网络与服务器硬件 操作系统: Windows 9X | Linux&Uinx | Windows NT Windows Vista | FreeBSD | 其它操作系统 邮件服务器: 程序与开发 | Exchange | Qmail | Postfix Sendmail | MDaemon | Domino | Foxmail KerioMail | JavaMail | Winwebmail |James Merak&VisNetic | CMailServer | WinMail 金笛邮件系统 | 其它 | 反垃圾邮件: 综述| 客户端反垃圾邮件|服务器端反垃圾邮件 邮件客户端软件: Outlook | Foxmail | DreamMail| KooMail The bat | 雷鸟 | Eudora |Becky! |Pegasus IncrediMail |其它 电子邮箱: 个人邮箱 | 企业邮箱 |Gmail 移动电子邮件:服务器 | 客户端 | 技术前沿 邮件网络安全: 软件漏洞 | 安全知识 | 病毒公告 |防火墙 攻防技术 | 病毒查杀| ISA | 数字签名 邮件营销: Email营销 | 网络营销 | 营销技巧 |营销案例 邮件人才:招聘 | 职场 | 培训 | 指南 | 职场 解决方案: 邮件系统|反垃圾邮件 |安全 |移动电邮 |招标 产品评测: 邮件系统 |反垃圾邮件 |邮箱 |安全 |客户端 |