同事告诉我,由于某种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
搞定!