I am currently trying to make one image on K2000 that will work with multiple company's, and I am stuck on adding the domain. If you guys have ideas please let me know. Thank you in advance.
0 Comments   [ + ] Show Comments


Please log in to comment


Answered 04/20/2015 by: jknox
Red Belt

  • I went to the website, ran some tests, It prompted but didn't seem to add to the domain. maybe I inserted a few line wrong. But this is what i have.

    Option Explicit

    Dim strDomain, strUser, strPassword, strOU
    Dim objNetwork, strComputer, objComputer, lngReturnValue

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

    ' Prompt for credentials.
    strDomain = InputBox("Enter name of domain")
    strUser = "USER"
    strPassword = "PASSWORD"

    ' Specify the OU where the computer object will be created.
    strOU = "ou=Computers,dc=(strDomain),dc=com"

    ' Retrieve NetBIOS name of local computer.
    Set objNetwork = CreateObject("WScript.Network")
    strComputer = objNetwork.ComputerName

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

    lngReturnValue = objComputer.JoinDomainOrWorkGroup(strDomain, _
    strPassword, strDomain & "\" & strUser, strOU, _

    Wscript.Echo "ReturnValue = " & CStr(lngReturnValue)

    Select Case lngReturnValue
    ' Some return code values (added 04/05/2010).
    Case 0
    Wscript.Echo "Success joining computer to the domain!"
    Case 5
    Wscript.Echo "Access is denied"
    Case 87
    Wscript.Echo "The parameter is incorrect"
    Case 110
    Wscript.Echo "The system cannot open the specified object"
    Case 1323
    Wscript.Echo "Unable to update the password"
    Case 1326
    Wscript.Echo "Logon failure: unknown username or bad password"
    Case 1355
    Wscript.Echo "The specified domain either does not exist or could not be contacted"
    Case 2224
    Wscript.Echo "The account already exists"
    Case 2691
    Wscript.Echo "The machine is already joined to the domain"
    Case 2692
    Wscript.Echo "The machine is not currently joined to a domain"
    Case Else
    Wscript.Echo "Unknown error"
    End Select
Please log in to comment
Answer this question or Comment on this question for clarity