VBS 拷贝 注册表键值-阿里云开发者社区

开发者社区> 开发与运维> 正文
登录阅读全文

VBS 拷贝 注册表键值

简介:

同事告诉我,由于某种bug,打印机的驱动程序在客户端无法正常安装,或者安装成功之后过了一段时间一些键值就会改变,希望我写个小程序检查并复制正确的键值。基本思路很简单,先备份一下键值,检查该键值是否为空,如果不为空,那么停止spooler服务,从远程服务器拷贝该键值,然后运行spooler服务。因为他打算用KACE来配置,KACE又不支持batch文件,所以我需要用VBS实现。


首先备份一下键值

Dim oShell

Set oShell = WScript.CreateObject ("WScript.Shell")

oShell.run "cmd.exe /c reg copy ""HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Print\Environments\Windows x64\Drivers\Version-3\HP Universal Printing PCL 6 (v5.6.1)"" ""HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Print\Environments\Windows x64\Drivers\Version-3\HP Universal Printing.backup"" /f"


然后读取该键值的值,注意这个键值是类型是个数组,而不是普通的字符串

Dim WSHShell, value

Set WSHShell = CreateObject("WScript.Shell")

value = WSHShell.RegRead( "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Print\Environments\Windows x64\Drivers\Version-3\HP Universal Printing PCL 6 (v5.6.1)\Dependent Files")


判断数组大小,是否为空,如果为空,先停止spooler服务


if ubound(value)<0 then


oShell.run "cmd.exe /k"

wscript.sleep 500

oShell.sendkeys "sc stop Spooler"+("{Enter}")

wscript.sleep 5000


然后拷贝正确的键值


oShell.sendkeys "reg copy ""\\10.71.82.199\HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Print\Environments\Windows x64\Drivers\Version-3\HP Universal Printing PCL 6 {(}v5.6.1{)}"" ""HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Print\Environments\Windows x64\Drivers\Version-3\HP Universal Printing PCL 6 {(}v5.6.1{)}"" /f"+("{Enter}")

wscript.sleep 500


然后重新启动Spooler服务


oShell.sendkeys "sc start Spooler"+("{Enter}")

wscript.sleep 5000

'oShell.sendkeys "exit" +("{Enter}")


end if


搞定!










本文转自 beanxyz 51CTO博客,原文链接:http://blog.51cto.com/beanxyz/1297661,如需转载请自行联系原作者

版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

分享: