六、禁用开始菜单选项
用记事本编辑如下内容：
Dim ChangeStartMenu
Set ChangeStartMenu=WScript.CreateObject("WScript.Shell")
RegPath="HKCR/Software/Microsoft/Windows/CurrentVersion/Policies/"
Type_Name="REG_DWORD"
Key_Data=1
StartMenu_Run="NoRun"
StartMenu_Find="NoFind"
StartMenu_Close="NoClose"
Sub Change(Argument)
ChangeStartMenu.RegWrite RegPath&Argument,Key_Data,Type_Name
MsgBox("Success!")
End Sub
Call Change(StartMenu_Run) '禁用“开始”菜单中的“运行”功能
Call Change(StartMenu_Find) '禁用“开始”菜单中的“查找”功能
Call Change(StartMenu_Close) '禁用“开始”菜单中的“关闭系统”功能
将以上代码保存为ChangeStartMenu.vbs文档，使用时双击即可。七、执行外部程式
用记事本编辑如下内容：
DIM objShell
set objShell=wscript.createObject("wscript.shell")
iReturn=objShell.Run("cmd.exe /C set var=world", 1, TRUE)
保存为.vbs文档即可。在这段代码中，我们首先配置了一个环境变量，其名为var，而值为world，用户能够使用%Comspec%来代替cmd.exe，并且能够把命令：set var=world改成其他的命令，这样就能够使他能够运行任意的命令。
八、重新启动指定的IIS服务
用记事本编辑如下内容：
Const ADS_SERVICE_STOPPED = 1
Set objComputer = GetObject("WinNT://MYCOMPUTER,computer")
Set objService = objComputer.GetObject("Service","MYSERVICE")
If (objService.Status = ADS_SERVICE_STOPPED) Then
objService.Start
End If
将他以startsvc.vbs为名保存在C盘根目录。并通过如下命令执行：cscript c:/startsvc.vbs。运行后，经您指定的IIS服务项将被重新开启。
最后，我们再说说开篇时提到的VBS脚本病毒的防范方法。VBS病毒的执行离不开WSH，在带给人们便利的同时，WSH也为病毒的传播留下可乘之机。所以要想防范VBS病毒，能够选择将WSH卸载，只要打开控制面板，找到“添加/删除程式”，点选“Windows安装程式”，再鼠标双击其中的“附件”一项，然后再在打开的窗口中将“Windows Scripting Host”一项的“√”去掉，然后连续点两次“确定”就能够将WSH卸载。或，您也能够点击“我的电脑”→“查看”→“文档夹选项”，在弹出的对话框中，点击“文档类型”，然后删除VBS、VBE、JS、JSE文档后缀名和应用程式的映射，都能够达到防范VBS脚本病毒的目的。
