Active Directory query script computers domain membership

Hello friends
i would like to ask you for your help regarding following AD query. I need a script where I will define;
- list of computers i would like to check in txt format (as source)
- let script to check if computers in source txt file are in domain or not
- write results to txt file, for each one computer in source txt file if it is or not in domain.

I dont want to touch anything else in domain so script should contain only this described query

As usual thank you very much :)
Who is Participating?
Hi, try this VBScript.


Set objFSO = CreateObject("Scripting.FileSystemObject")

strInputFile = "computers.txt"
strOutputFile = "results.csv"

Const intForReading = 1
Set objInput = objFSO.OpenTextFile(strInputFile, intForReading, False)
Set objOutput = objFSO.CreateTextFile(strOutputFile, True)
objOutput.WriteLine """Computer"",""In Domain?"",""adsPath"""

While Not objInput.AtEndOfStream
	strComputerName = Trim(objInput.ReadLine)
	If strComputerName <> "" Then
		strComputerADsPath = Get_LDAP_User_Properties("computer", "name", strComputerName, "adsPath")
		If InStr(strComputerADsPath, "LDAP://") > 0 Then
			objOutput.WriteLine """" & strComputerName & """,""Yes"",""" & strComputerADsPath & """"
            objOutput.WriteLine """" & strComputerName & """,""No"","""""
        End If
    End If

MsgBox "Done. Please see " & strOutputFile
Function Get_LDAP_User_Properties(strObjectType, strSearchField, strObjectToGet, strCommaDelimProps)
      ' This is a custom function that connects to the Active Directory, and returns the specific
      ' Active Directory attribute value, of a specific Object.
      ' strObjectType: usually "User" or "Computer"
      ' strSearchField: the field by which to seach the AD by. This acts like an SQL Query's WHERE clause.
      '             It filters the results by the value of strObjectToGet
      ' strObjectToGet: the value by which the results are filtered by, according the strSearchField.
      '             For example, if you are searching based on the user account name, strSearchField
      '             would be "samAccountName", and strObjectToGet would be that speicific account name,
      '             such as "jsmith".  This equates to "WHERE 'samAccountName' = 'jsmith'"
      ' strCommaDelimProps: the field from the object to actually return.  For example, if you wanted
      '             the home folder path, as defined by the AD, for a specific user, this would be
      '             "homeDirectory".  If you want to return the ADsPath so that you can bind to that
      '             user and get your own parameters from them, then use "ADsPath" as a return string,
      '             then bind to the user: Set objUser = GetObject("LDAP://" & strReturnADsPath)
      ' Now we're checking if the user account passed may have a domain already specified,
      ' in which case we connect to that domain in AD, instead of the default one.
      If InStr(strObjectToGet, "\") > 0 Then
            arrGroupBits = Split(strObjectToGet, "\")
            strDC = arrGroupBits(0)
            strDNSDomain = strDC & "/" & "DC=" & Replace(Mid(strDC, InStr(strDC, ".") + 1), ".", ",DC=")
            strObjectToGet = arrGroupBits(1)
      ' Otherwise we just connect to the default domain
            Set objRootDSE = GetObject("LDAP://RootDSE")
            strDNSDomain = objRootDSE.Get("defaultNamingContext")
      End If
      strBase = "<LDAP://" & strDNSDomain & ">"
      ' Setup ADO objects.
      Set adoCommand = CreateObject("ADODB.Command")
      Set ADOConnection = CreateObject("ADODB.Connection")
      ADOConnection.Provider = "ADsDSOObject"
      ADOConnection.Open "Active Directory Provider"
      adoCommand.ActiveConnection = ADOConnection
      ' Filter on user objects.
      'strFilter = "(&(objectCategory=person)(objectClass=user))"
      strFilter = "(&(objectClass=" & strObjectType & ")(" & strSearchField & "=" & strObjectToGet & "))"
      ' Comma delimited list of attribute values to retrieve.
      strAttributes = strCommaDelimProps
      arrProperties = Split(strCommaDelimProps, ",")
      ' Construct the LDAP syntax query.
      strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";subtree"
      adoCommand.CommandText = strQuery
      ' Define the maximum records to return
      adoCommand.Properties("Page Size") = 100
      adoCommand.Properties("Timeout") = 30
      adoCommand.Properties("Cache Results") = False
      ' Run the query.
      Set adoRecordset = adoCommand.Execute
      ' Enumerate the resulting recordset.
      strReturnVal = ""
      Do Until adoRecordset.EOF
          ' Retrieve values and display.
          For intCount = LBound(arrProperties) To UBound(arrProperties)
                If strReturnVal = "" Then
                      strReturnVal = adoRecordset.Fields(intCount).Value
                      strReturnVal = strReturnVal & vbCrLf & adoRecordset.Fields(intCount).Value
                End If
          ' Move to the next record in the recordset.
      ' Clean up.
      Get_LDAP_User_Properties = strReturnVal
End Function

Open in new window

Bryan ButlerCommented:
Do you want a VB script?  Powershell?  Does it matter?

Here's a start in VB, but let us know and maybe we can give specifics.

Powershell would be the easiest way to go.
T-ckoAuthor Commented:
hello developertester
I would need to check if computers from my source file are members of domain or not and have a result about it - result like list of computers with bit saying that this or that hostname from source file is or is not in domain.
Making Bulk Changes to Active Directory

Watch this video to see how easy it is to make mass changes to Active Directory from an external text file without using complicated scripts.

Bryan ButlerCommented:
Do you want a VB script?  Powershell?  Or does it matter?

T-ckoAuthor Commented:
Im sorry i forgot answer. i would preffer VB. thank you
Bryan ButlerCommented:
Hopefully someone else can help as I gotta run out.   Back next week and I'll help then if still needed.
QlemoBatchelor, Developer and EE Topic AdvisorCommented:
This question has been classified as abandoned and is closed as part of the Cleanup Program. See the recommendation for more details.
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.