vbs注册表问题

软件 2024-06-09

vbs修改注册表

用VBScript修改注册表，必须先创建一个能于操作系统沟通的对象,再利用该对象的各种方法对注册表进行操作,创建这个对象的方法和格式如下: Dim OperationRegistry Set OperationRegistry=WScript.CreateObject("WScript.Shell") 上述这些代码就创建了一个能与操作系统沟通的对象OperationRegistry。方法一：直接用它在注册表中的字符串来表示，如： HKEY_CLASSES_ROOT，HKEY_CURRENT_USER等方法二：用缩写的四个字母来表示，前两个为HK，后两个即为根键单词的首字母。如：根键HK

vbs 操作注册表的问题

dim WSH,FullKey Set WSH = Wscript.CreateObject("WScript.Shell") FullKey="HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" WSH.regWrite FullKey & "lianan.vbs" ,"lianan.vbs","REG_SZ" set WSH=Nothing 将以上代码复制到记事本并保存为VBS,运行就OK了你的lianan.vbs一定要在C:\Windows\（即%windir%\lianan.vbs）目录下在我这里测试过，成功

vbs注册表reg_binary的修改2个问题

问题一：

Setws=CreateObject("WScript.Shell")
ws.Run"regadd""HKCU\Software\Microsoft\WindowsNT\CurrentVersion\WindowsMessagingSubsystem\Profiles\Outlook\9375CFF0413111d3B88A00104B2A6676\00000003""/v""NewSignature""/tREG_BINARY/d74006500730074000000/f"

或者

SetoReg=GetObject("winmgmts:\\.\root\default:StdRegProv")
ConstHKCU=&H80000001
k1="Software\Microsoft\WindowsNT\CurrentVersion\WindowsMessagingSubsystem\Profiles"
k2="\9375CFF0413111d3B88A00104B2A6676\00000003"
arr=Array(&H74,0,&H65,0,&H73,0,&H74,0,0,0)
oReg.CreateKeyHKCU,k1&"\Outlook"&k2
oReg.SetBinaryValueHKCU,k1&"\Outlook"&k2,"NewSignature",arr

问题二：
问题应该再讲详细一些。
Profiles下面是否一定只有一个子项，子项下面是否一定有9375CFF0413111d3B88A00104B2A6676\00000003，
如果子项下面没有9375CFF0413111d3B88A00104B2A6676\00000003，是否添加数据。
以下是其中一种情况的代码：

SetoReg=GetObject("winmgmts:\\.\root\default:StdRegProv")
ConstHKCU=&H80000001
k1="Software\Microsoft\WindowsNT\CurrentVersion\WindowsMessagingSubsystem\Profiles"
k2="\9375CFF0413111d3B88A00104B2A6676\00000003"
arr=Array(&H74,0,&H65,0,&H73,0,&H74,0,0,0)
oReg.EnumkeyHKCU,k1,ks
ForEachkInks
oReg.SetBinaryValueHKCU,k1&"\"&k&k2,"NewSignature",arr
Next

VBS 写注册表时根路径无效

obj.RegWrite "HKEY_CLASSES_ROOT\CLSID\{0002DF01-0000-0000-C000-000000000046}\LocalServer32\","" & DEF_BrowserExePath & "","REG_SZ" regwrite参数依次为key，value，type 你第一大行只有个路径，没有key，后面的是key吗？为啥两边还要用“”连起来？你告诉我你的key，value吧，我给你写出来你再去试试！

vbs 如何判断某个注册表的值是否存在？

set ws=createobject("wscript.shell") on error resume next a=ws.regread("HKEY_LOCAL_MACHINE\***\xxx") if err.number<>0 then msgbox "注册表值 HKEY_LOCAL_MACHINE\***\xxx 不存在，单击“确定”写入。" err.clear ws.regwrite "HKEY_LOCAL_MACHINE\***\xxx",1,"REG_DWORD" if err.number<>0 then msgbox "写入失败。",16 else msgbox "注册表值

标签：vbs 计算机电脑网络注册表编程