Gökhan Şenyüz

strDomainPasswd  =  “<DomainUserPasswd>”

strLocalUser       =  “<ComputerAdminUser>”  ‘  e.g.  administrator strLocalPasswd    =  “<ComputerUserPasswd>”

‘  ——  END  CONFIGURATION  ———

‘########################

‘  Constants

‘########################

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

‘###########################

‘  Connect  to  Computer

‘###########################

set  objWMILocator  =  CreateObject(”WbemScripting.SWbemLocator”)

objWMILocator.Security_.AuthenticationLevel  =  6

set  objWMIComputer  =  objWMILocator.ConnectServer(strComputer,    _ “root\cimv2″,  _

strLocalUser,  _

strLocalPasswd)

set  objWMIComputerSystem  =  objWMIComputer.Get(  _ “Win32_ComputerSystem.Name=’”  &  _ strComputer  &  “‘”)

‘###########################

‘  Join  Computer

‘###########################

rc  =  objWMIComputerSystem.JoinDomainOrWorkGroup(strDomain,  _ strDomainPasswd,  _ strDomainUser,  _ vbNullString,  _ JOIN_DOMAIN)

if  rc  <>  0  then

WScript.Echo  “Join  failed  with  error:  ”  &  rc else

WScript.Echo  “Successfully  joined  ”  &  strComputer  &  ”  to  ”  &  strDomain end  if