回 帖 发 新 帖 刷新版面

主题:请教如何用VFP获取电脑所在工作组名称

现在需要将机器名和工作组名显示在表单中,前者很简单,课时,如何获取到工作组名称呢?希望得到老师指教,不胜感谢!

回复列表 (共3个回复)

沙发

搜索了一下,在VFP中可以用以下代码调用Wmi来实现对工作组名称的更改:

objNetwork=Createobject("WScript.Network") 
strComputer=objNetwork.ComputerName 
objComputer=GetObject("winmgmts:{impersonationLevel=Impersonate}!\\&strComputer.\root\cimv2:Win32_ComputerSystem.Name='&strComputer.'") 
nWorkGroup = objComputer.JoinDomainOrWorkGroup("新工作组名称",Null,Null,Null,Null) 

--以上将把工作组名称更改为“新工作组名称”,你换为其他也可以。

但以上代码只能修改,不知道该如何显示呢?貌似有
JoinDomainOrWorkGroup()这个函数,可惜没查找到相关使用资料,诚盼老师指教!!

板凳

贴出了半个月,居然没有得到答案,唉!老师们不要吝啬自己的答案啊!谢谢哦!

3 楼

我只得在将近一个月之际再次顶一下本帖,以免沉底!

我来回复

您尚未登录,请登录后再回复。点此登录或注册