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,如需转载请自行联系原作者
目录
相关文章
C#编程-143:删除注册表
C#编程-143:删除注册表
155 0
修改注册表/文件报错
一般这种报错都是提示权限有问题,我们可以手动修改注册表权限
修改注册表/文件报错
64位读取注册表与32位的区别
有一个读取注册表信息的程序  if (RegOpenKeyEx(HKEY_LOCAL_MACHINE, subkeystring , 0, KEY_READ, &hKey) == ERROR_SUCCESS)/ ,在32位下完全正常,但是在64位返回值正确,但就是读不到东西。
1247 0
window bat 批处理 修改注册表键值
把要修改的注册表导出来,往文件中修改键值,再双击执行
2104 0
|
安全 Shell Windows