用vbscript写的代码怎么才能在vb里使用？（关于WMI）

来源：百度知道 编辑：UC知道 时间：2024/06/27 10:59:08
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里用呢
怎么没人呢，大虾们都在忙么
Microsoft WMI Scripting V1.2 Library这个已经添加了阿，怎么还是不行呢，总是提示说没有SetStringValue 这个方法，WScript.StdOut 已经删掉了，msdn也参照了，还是不行

请参照http://blog.sina.com.cn/main/html/showpic.html#url=http://s1.album.sina.com.cn/pic/4151317c020016u0

删掉这行Set StdOut = WScript.StdOut
这个是用VBS创建字符串和 DWORD 值
我一般用API修改注册表 你要是要这个模块可以发消息给我
这个是修改好能用的代码！
Private Sub Command1_Click()
Call a
End Sub
Sub a()
Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
'Set StdOut = WScript.StdOut
Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\"
strValueName = "321312"
strValue = "312312"
oReg.SetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strValue
strValueName = "123"
dwValue = 82
oReg.SetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, dwValue
End Sub

要在vb中调用wmi，可以单击工程-〉引用。在列表中找到Microsoft WMI Scripting V1.2 Library（那个v 1.2在你的机器上可能不同），勾上前面的勾，确定即可。如果没有找到，单击[浏览]，打c:\windows\system32\wbem\wbemdisp.tlb，确定就可以看到啦~~~

p.s WSc