ScriptingAnswers.com Forums

VBScript : AD Query - Multiple Domains/specific OUs

Thu, 20 Nov 2008 13:10:41 +0000

Author: jhicks
Subject: AD Query - Multiple Domains/specific OUs
Posted: 20 Nov 2008 at 13:10

Instead of use

VBScript : AD Query - Multiple Domains/specific OUs

Thu, 20 Nov 2008 13:07:36 +0000

Author: ajgtx
Subject: AD Query - Multiple Domains/specific OUs
Posted: 20 Nov 2008 at 13:07

My code dŒs work with this as the query string: ;(&(objectCategory=computer)(objectClass=*)(CN=*));distinguishedName,pwdLastSet,name;subtree">< L D A P://my.domain.com>;(&(objectCategory=computer)(objectClass=*)(CN=*));distinguishedName,pwdLastSet,name;subtree >

But I need to specify the OU in which I want to query for computer objects.

Edited by ajgtx - Yesterday at 13:11

VBScript : AD Query - Multiple Domains/specific OUs

Thu, 20 Nov 2008 12:26:48 +0000

Author: jhicks
Subject: AD Query - Multiple Domains/specific OUs
Posted: 20 Nov 2008 at 12:26

But it should if you used my code example. DŒs the account you're using have the right permissions? Do you want to post another script for us to test?

VBScript : runtime error: Type mismatch on AD Description

Thu, 20 Nov 2008 12:20:06 +0000

Author: epoh97
Subject: runtime error: Type mismatch on AD Description
Posted: 20 Nov 2008 at 12:20

Cool, that worked.

So tmpArray(0) is a one-line array is that correct?

VBScript : AD Query - Multiple Domains/specific OUs

Thu, 20 Nov 2008 11:49:28 +0000

Author: ajgtx
Subject: AD Query - Multiple Domains/specific OUs
Posted: 20 Nov 2008 at 11:49

I was wrong, this didn't work. I had launched one of my other scripts that dŒsn't query a specific OU. I can pull all objects of a certain kind from a domain no problem, but I can't pull all objects from a specific OU using a specific username/password. No worries on the security issue, the script will be asking for a username and password to use across multiple domains.

VBScript : runtime error: Type mismatch on AD Description

Thu, 20 Nov 2008 08:34:52 +0000

Author: jhicks
Subject: runtime error: Type mismatch on AD Description
Posted: 20 Nov 2008 at 08:34

This should work a little bit better for you:

    struserAccountControl = objRecordSet.Fields("userAccountControl").value
    strUsers = objRecordSet.Fields("Name").value
    If IsArray(objRecordSet.Fields("description").Value) Then
      tmpArray=objRecordSet.Fields("description")
        strDescription = tmpArray(0)
    Else
         strDescription=""
    End If

don't forget to dim tmpArray.

VBScript : runtime error: Type mismatch on AD Description

Thu, 20 Nov 2008 07:45:30 +0000

Author: epoh97
Subject: runtime error: Type mismatch on AD Description
Posted: 20 Nov 2008 at 07:45

Thanks, I will try it. As a junior scripter Arrays aren't my thing.

VBScript : runtime error: Type mismatch on AD Description

Thu, 20 Nov 2008 06:48:20 +0000

Author: jhicks
Subject: runtime error: Type mismatch on AD Description
Posted: 20 Nov 2008 at 06:48

Description is often seen as an array.

Try using objRecordSet.Fields("description")(0)

I think I have that right, but it's off the top of my head so you may need to play with the syntax.

VBScript : runtime error: Type mismatch on AD Description

Thu, 20 Nov 2008 06:40:19 +0000

Author: epoh97
Subject: runtime error: Type mismatch on AD Description
Posted: 20 Nov 2008 at 06:40

Hello all:

I have this little script trying to output the description (Active Directory) of disabled users only.

When I run the script it says there is a mismatch.


Option Explicit

Dim objConnection, objCommand, objRecordSet
Dim struserAccountControl
Dim strUsers, strDescription



Const ADS_SCOPE_SUBTREE = 2

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand =   CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection

objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE 
objCommand.Properties("Sort on") = "sn"

objCommand.CommandText = _
    "SELECT Name, employeeID, userAccountControl, description FROM 'LDAP://dc=mydomain,dc=com' WHERE " _
        & "objectCategory='user'"  
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst


Do Until objRecordSet.EOF
    
    struserAccountControl = objRecordSet.Fields("userAccountControl").value
    strUsers = objRecordSet.Fields("Name").value
    strDescription = objRecordSet.Fields("description").Value
    
    
    Select Case strUsers
    Case "Backup"
    Case "krbtgt"
    Case "ASPNET"
    Case "Guest"
     Case Else
    
    
    
    Select Case struserAccountControl
    Case 512
        struserAccountControl = ""
        WScript.Echo objRecordSet.Fields("Name").Value
    Case 514
        struserAccountControl = "disabled"
        WScript.Echo objRecordSet.Fields("Name").Value & "(" & strDescription & ")"
    Case Else
        WScript.Echo objRecordSet.Fields("Name").Value
    End Select
    
    
    Set struserAccountControl = Nothing
    Set strUsers = Nothing
    Set strDescription = Nothing
    
    End Select
    objRecordSet.MoveNext

Loop

This line is the problem:

WScript.Echo objRecordSet.Fields("Name").Value & "(" & strDescription & ")"

Thanks

VBScript : Appending a Date in JScript

Thu, 20 Nov 2008 06:23:06 +0000

Author: jhicks
Subject: Appending a Date in JScript
Posted: 20 Nov 2008 at 06:23

The VBScript error is because you can't dim and define a variable on the same line:

dim ndate=replace(dt,"/","_");

That's causing the error. You need this:

Dim ndate
ndate=replace(dt,"/","_")

And is this what you're after?

WshShell.sendkeys(" file='end_cmpak_" + ndate +"'")

If the + symbol gives you errors then try the & character.

Edited by jhicks - Yesterday at 06:23