VBS注册表操作实例

2009-8-12 11:29 524 0

摘要: 　　1、读取本机“计算机名”　　　　'ReadComputerName.vbs　　Dim ReadComputerName　　Set ReadComputerName=WScript.CreateOb...

关键词： RegPath WScript ComputerName StartMenu ReadComputerName HiddenArrowIcon ChangeStartMenu CreateObject Name 菜单

　　1、读取本机“计算机名”　　　　'ReadComputerName.vbs　　Dim ReadComputerName　　Set ReadComputerName=WScript.CreateObject("WScript.Shell")　　Dim ComputerName,RegPath　　RegPath="HKLM\System\CurrentControlSet\Control\　　ComputerName\ComputerName\ComputerName"　　ComputerName=ReadComputerName.RegRead(RegPath)　　MsgBox("计算机名为"&ComputerName)　　　　　　2、隐藏快捷方式图标上的小箭头　　　　'Hidden.vbs　　Dim HiddenArrowIcon　　Set HiddenArrowIcon=WScript.CreateObject("WScript.Shell")　　Dim RegPath1,RegPath2　　RegPath1="HKCR\lnkfile\IsShortCut"　　RegPath2="HKCR\piffile\IsShortCut"　　HiddenArrowIcon.RegDelete(RegPath1)　　HiddenArrowIcon.RegDelete(RegPath2)　　　　　　3、改造“开始”菜单　　　　'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) '禁用“开始”菜单中的“关闭系统”功能　　　　　　4、向Windows中添加自启动程序　　　　'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!")

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除