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 = "OldDomainFullName"
strDomain = "OldDomain"
strPassword = "OldDomainAdminPassword"
strUser = "OldDomainAdminUserName"


strDomain01 = "NewDomainFullName"
strDomain1 = "NewDomain"
strPassword1 = "NewDomainAdminPassword@123"
strUser1 = "NewDomainAdminUserName"

 


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