|
VBS脚本应用-其它示列(6) objWord.Quit
例子:
Const wdFormatText = 2
Set objWord = CreateObject(Word.Application)
Set objDoc = objWord.Documents.Open("d:\\doc1.doc")
objDoc.SaveAs "g:\\doc1.txt", wdFormatText
objWord.Quit
禁用开始菜单选项
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) '禁用“开始”菜单中的“关闭系统”功能
重新启动指定的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
添加系统自动启动程序
Dim AutoRunProgram
Set AutoRunProgram=WScript.CreateObject("WScript.Shell")
RegPath="HKLM\\Software\\Microsoft\\Windows\\CurrentVersion\\Run\\"
Type_Name="REG_SZ"
Key_Name="AutoRun"
Key_Data="C:\\Myfile\\autorun.exe"
'该自启动程序的全路径文件名
| 
