vbscript Registry 注册表操作实现代码(读写删除)

''ChangeStartMenu.vbs
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) ''禁用“开始”菜单中的“关闭系统”功能

''AddAutoRunProgram.vbs
''假设该程序在c:\myfile文件夹中，文件名为autorun.exe
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"
''该自启动程序的全路径文件名
AutoRunProgram.Write RegPath&Key_Name,Key_Data,Type_Name
''在启动组中添加自启动程序autorun.exe
MsgBox("Success!")