引用WMI
上面几个代码写的都很清晰,这个就写成一行算了,比较符合"MS"式的脚本
Private Sub Form_Click()
MsgBox nWorkGroup("sor")
End Sub
Private Function nWorkGroup(NewWorkGroup As String) As Long
strDomain = NewWorkGroup
Set objNetwork = CreateObject("WScript.Network")
strComputer = objNetwork.ComputerName
Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!//" & _
strComputer & "/root/cimv2:Win32_ComputerSystem.Name='" & _
strComputer & "'")
nWorkGroup = objComputer.JoinDomainOrWorkGroup(strDomain, Null, Null, Null, Null)
End Function