WMI的问题，vbScript转换为VB
const HKEY_LOCAL_MACHINE = &H80000001
strComputer = ". "
Set StdOut = WScript.StdOut
Set oReg=GetObject( "winmgmts:{impersonationLevel=impersonate}!\\ " &_
strComputer & "\root\default:StdRegProv ")
strKeyPath = "SOFTWARE\Husen2K\config "
strValueName = "text "
strValue = "text1 "
oReg.SetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strValue
这段语句直接执行没有问题，但放在vb里就不行，哪位大虾给看看到底是什么原因阿？？？
[解决办法]
引用wmi 和script host object了吗？
[解决办法]
Dim oReg As SWbemObject
Dim strKeyPath As String, strValueName As String, strValue As String
Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = ". "
'Set StdOut = WScript.StdOut
Set oReg = GetObject( "winmgmts:{impersonationLevel=impersonate}!\\ " & strComputer & "\root\default:StdRegProv ")
strKeyPath = "SOFTWARE\ "
strValueName = "123456 "
strValue = "123456 "
oReg.SetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strValue
