MCSE技术论坛

Const JOIN_DOMAIN = 1
Const ACCT_CREATE = 2
Const ACCT_DELETE = 4
Const WIN9X_UPGRADE = 16
Const DOMAIN_JOIN_IF_JOINED = 32
Const JOIN_UNSECURE = 64
Const MACHINE_PASSWORD_PASSED = 128
Const DEFERRED_SPN_SET = 256
Const INSTALL_INVOCATION = 262144

Const UNJOIN_DOMAIN = 0
Const ACCT_DISABLE = 2

Dim strDomain0,strDomain01
Dim strDomain,strDomain1
Dim strPassword,strPassword1
Dim strUser,strUser1
Dim strComputer

strDomain0 = "A.contoso.Com"
strDomain = "A"
strPassword = "Password02@"
strUser = "Administrator"

strDomain01 = "P.AD.northwind.com"
strDomain1 = "P"
strPassword1 = "Password01!"
strUser1 = "Administrator"


Set objNetwork = CreateObject("WScript.Network")
strComputer = objNetwork.ComputerName
Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" & _
strComputer & "\root\cimv2:Win32_ComputerSystem.Name='" & _
strComputer & "'")

ReturnValue = objComputer.UnjoinDomainOrWorkgroup( _
strPassword, _
strDomain & "\" & strUser, _
UNJOIN_DOMAIN + ACCT_DISABLE)

Wscript.echo ReturnValue

ReturnValue1 = objComputer.JoinDomainOrWorkGroup(strDomain01, _
strPassword1, _
strDomain1 & "\" & strUser1, _
NULL, _
JOIN_DOMAIN + ACCT_CREATE)


Wscript.echo ReturnValue1