您的位置：程序门 -> vb ->

好心人帮帮忙，我的swbemobject里怎么不存在setstringvalue这个方法呢？

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

好心人帮帮忙，我的swbemobject里怎么不存在setstringvalue这个方法呢？[已结贴,结贴人:zhegecunzaime]

发表于：2007-09-01 11:06:09 楼主

我的swbemobject里怎么不存在setstringvalue这个方法呢？是需要添加什么东西还是怎么回事，照着msdn上的例子写还是不行，怎么回事呢？

发表于：2007-09-01 15:02:231楼得分:0

郁闷！怎么就没人回答呢，帮顶一下也好啊

发表于：2007-09-08 10:55:542楼得分:10

把关键代码贴出来看看

发表于：2007-09-09 00:29:503楼得分:10

帮顶......

发表于：2007-09-10 13:20:284楼得分:0

现在本地的可以用了，但是还要远程修改，这段vbs的代码改怎么转换成vb的呢
set objlocator=createobject（ "wbemscripting.swbemlocator ")
//创建wbemscripting.swbemlocator对象（脚本接口)。
//可以看出wmi其实就是把com组件wbemscripting.swbemlocator封装起来罢了。
set objswbemservices=objlocator.connectserver（ipaddress, "root/default ",username,password)
//通过connectserver函数请求连接到wmi控件服务上，root/default为命名空间。
set objinstance=objswbemservices.get（ "stdregprov ")
//建立访问注册表的实例。
set objmethod=objinstance.methods_（ "setdwordvalue ")
//建立可以更改注册表键值的方法。
set objinparam=objmethod.inparameters.spawninstance_（)
//methoddata.inparameters用于获取或设置方法的输入参数。这里用spawninstance方法为它建立一个子实例，下面就可以将参数值赋予这个对象的属性。
objinparam.hdefkey=&h80000002
//hdefkey表示根键，根键的十六制值如下：
//hkey_classes_root （&h80000000)
//hkey_current_user （&h80000001)
//hkey_local_machine （&h80000002)
//hkey_users （&h80000003)
//hkey_current_config （&h80000005)
objinparam.ssubkeyname= "software\microsoft\telnetserver\1.0 "
//ssubkeyname表示子键。
objinparam.svaluename= "ntlm "
//svaluename表示属性名。
objinparam.uvalue=ntlm
//uvalue表示键值。
set objoutparam=objinstance.ＥＸＥＣmethod_（ "setdwordvalue ",objinparam)
//利用ＥＸＥＣmethod执行方法，这里才真正改写了注册表。

发表于：2007-09-10 14:40:465楼得分:10

帮顶......

发表于：2007-09-10 16:03:506楼得分:20

不能用提示什么啊???
是不是连接不成功啊~~
vbs里的代码基本上直接拷贝到vb环境里几可以运行

发表于：2007-09-10 17:03:567楼得分:0

要是连别人机子，错误号是80040005，要是连自己机子，也会报错，错误号是80041064

发表于：2007-09-10 17:41:138楼得分:50

本地时去掉用户名和密码，远程时确定有没有管理员权限

下一篇：vb那个控件能用来模仿qq用户界面
上一篇：紧急求救！网上获取的一段程序，遇到不明错误。

其他资讯