WMI的问题，vbScript转换为VB

Question

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里就不行，哪位大虾给看看到底是什么原因阿？？？

Answer 1

刚才发在vbScript区了，太冷了，半天没人回答，我想vb区要比那个好多了吧

Answer 2

引用wmi 和script host object了吗？

Answer 3

阿，原来是这样，那我该引用哪个呢，wmi已经引用了，但script host object该引用哪个啊

Answer 4

Dim oReg         As SWbemObject
Dim strKeyPath             As String, strValueName As String, strValue As StringConst 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