Hello RC, what error are you geeting. I am cross posting to scripting group
as well for addittional help
--
Isaac Oben [MCTIP:EA, MCSE]
"RC" <> wrote in message
news:9433a6fb-bd1d-49da-948a-...
>I am using this code from the AD Cookbook but I it doesnt seem to
> work. thoughts?
>
> 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
>
> strDomain = "DOMAIN"
> strPassword = "PASSWORD"
> strUser = "USERNAME"
>
> Set objNetwork = CreateObject("WScript.Network")
> strComputer = objNetwork.ComputerName
>
> Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonat e}!
> \\" & _
> strComputer & "\root\cimv2:Win32_ComputerSystem.Name='" & _
> strComputer & "'")
>
> ReturnValue = objComputer.JoinDomainOrWorkGroup(strDomain, _
> strPassword, strDomain & "\" & strUser, NULL, _
> JOIN_DOMAIN + ACCT_CREATE)
>
|