KACE Product Support

 cscript join_domain.vbs domain.dom username password

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

If WScript.Arguments.Count < 3 or WScript.Arguments.Count > 4 Then
    ' Duff arguments so return non zero so the task is marked as failed.
    WScript.Quit(1)
Else

    strDomain   = WScript.Arguments.Item(0)
    strUser = WScript.Arguments.Item(1)
    strPassword = WScript.Arguments.Item(2)

    'set DNS IP address
    If WScript.Arguments.Count = 4 Then
            strDNSIP = WScript.Arguments.Item(3)
            Set objShell = CreateObject("WScript.shell")
            objShell.Run "netsh int ip set dns ""local area connection"" static " & _
                        strDNSIP &" primary", 0 , 0
     End If
End If

Set objNetwork = CreateObject("WScript.Network")
strComputer = objNetwork.ComputerName


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

ReturnValue = objComputer.JoinDomainOrWorkGroup(strDomain, _
                                                strPassword, _
                                                strDomain & "\" & strUser, _
                                                NULL, _
                                                JOIN_DOMAIN+ACCT_CREATE)

WScript.Quit(ReturnValue)