lantu 发表于 2008-12-7 12:30:44

au3怎么更改工作组

au3怎么读取工作组。有人提议用wmi，但本人不会，不知有哪位朋友　知道的啊

[ 本帖最后由 lantu 于 2009-1-13 11:27 编辑 ]

sanhen 发表于 2008-12-7 15:20:32


_SetWorkGroup("NewWorkGroup")

Func _SetWorkGroup($WorkGroup)
;================================
;用法：_SetWorkGroup(工作组名称)
;注意：此函数需要WMI服务的支持。
;作者：Make By Sanhen
;================================
Local $objNetwork,$strComputer

$objNetwork = ObjCreate("WScript.Network")
$strComputer = $objNetwork.ComputerName
$objComputer = ObjGet("winmgmts:{impersonationLevel=Impersonate}!\\" & _
    $strComputer & "\root\cimv2:Win32_ComputerSystem.Name='" _
    & $strComputer & "'")
Return$objComputer.JoinDomainOrWorkGroup($WorkGroup)

EndFunc

sanhen 发表于 2008-12-7 15:32:47


MsgBox(64,"工作名称是：",_ReadWorkGroup())

_RenWorkGroups("sanhen")


Func _ReadWorkGroup()
;================================
;用法：_ReadWorkGroup()
;注意：此函数需要WMI服务的支持。
;作者：Make By Sanhen
;================================
Local $strComputer,$objWMIService
Local $colItems,$ReturnValue

$strComputer = "localhost"
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem", "WQL", 0x10+ 0x20)

For$objItem   in   $colItems
$ReturnValue=$objItem.Domain
Next   

Return $ReturnValue

EndFunc

Func _RenWorkGroups($WorkGroup)

;================================
;用法：_RenWorkGroups(新的工作组名称)
;注意：此函数需要WMI服务的支持。
;作者：Make By Sanhen
;================================

Local $strComputer,$objWMIService
Local $colItems,$ReturnValue


$strComputer = "localhost"
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem", "WQL", 0x10+ 0x20)

For$objItem   in   $colItems
$ReturnValue = $objItem .JoinDomainOrWorkGroup($WorkGroup)   
Next   

EndFunc

xsw123 发表于 2008-12-7 20:38:24

RunWait(@ComSpec & " /c " & 'wmic computersystem where name=' & '"' & @ComputerName & '"' & ' callJoinDomainOrWorkgroup Name="' & $group & '"', "", @SW_HIDE)

lantu 发表于 2008-12-7 22:37:35

谢谢管理员及楼上各位的指教啦！
成分感激！

lantu 发表于 2008-12-8 22:28:10

为什么提示
MsgBox(64,"工作名称是："_ReadWorkGroup())
错误？
这一段读工作组的程序不能正确运行啊？？

[ 本帖最后由 lantu 于 2008-12-8 23:15 编辑 ]

lantu 发表于 2008-12-9 08:33:53

谢谢！我已经知道啦！

xqe 发表于 2010-8-18 09:33:46

能给完整的代码吗~？
页: [1]
查看完整版本: au3怎么更改工作组