我使用以下VB脚本使用WMI远程查询注册表值。它能够连接,但无法获得价值。
Option Explicit
Dim strComputer
Dim strUser, strPassword
Dim objSWbemLocator, objSWbemServices, objReg
Dim strKeyPath, strEntryName, strValue
Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "192.168.1.10"
strUser = "username"
strPassword = "password"
Set objSWbemLocator = CreateObject("wbemScripting.SwbemLocator")
Set objSWbemServices = objSWbemLocator.ConnectServer _
(strComputer, "root\default", strUser, strPassword)
Set objReg = objSWbemServices.Get("StdRegProv")
strKeyPath = "SYSTEM\CurrentControlSet\services\eventlog\Application"
strEntryName = "MaxSize"
objReg.GetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strEntryName, dwValue
Wscript.Echo dwValue
它返回:Microsoft VBscript运行时错误:变量未定义:'dwValue'。这意味着它没有获得目标机器的价值。我检查了目标机器,dword值确实存在。
我按如下方式配置了目标机器
我花了好几天才解决这个问题而且无法理解。请帮我检查脚本是否有问题,或者是目标机器的配置。非常感谢你。