Solved

Dump ADSI Information

Posted on 2009-04-01
3
577 Views
Last Modified: 2012-06-22
Hi Experts!

Is it possible to get an hta or vbs that will read computers.txt and dump all of the ADSI Edit information to individual host.txt files?

Thanks!
0
Comment
Question by:dssbbp
  • 2
3 Comments
 
LVL 70

Expert Comment

by:Chris Dent
ID: 24039748

What exactly do you mean by "ADSI Edit" information?

ADSI Edit is an LDAP editor for managing Active Directory.

Chris
0
 

Author Comment

by:dssbbp
ID: 24040996
I need the information in the computer Properties, Attribute Editor tab, Attributes window.
 
0
 

Accepted Solution

by:
dssbbp earned 0 total points
ID: 24044753
Just got the following from ADSI Scriptomatic.  Will try it tomorrow...

strContainer = "."

strName = "EzAdComputer"
 

On Error Resume Next
 

'***********************************************

'*          Connect to an object                 *

'***********************************************

Set objRootDSE = GetObject("LDAP://rootDSE")

If strContainer = "" Then

  Set objItem = GetObject("LDAP://" & _

    objRootDSE.Get("defaultNamingContext"))

Else

  Set objItem = GetObject("LDAP://cn=" & strName & "," & strContainer & "," & _

    objRootDSE.Get("defaultNamingContext"))

End If

'***********************************************

'*         End connect to an object           *

'***********************************************
 

WScript.Echo VbCrLf & "** General Properties Page**"

WScript.Echo "** (Single-Valued Attributes) **"

strname = objItem.Get("name")

WScript.Echo "name: " & strname

strdnsHostName = objItem.Get("dnsHostName")

WScript.Echo "dnsHostName: " & strdnsHostName

strdescription = objItem.Get("description")

WScript.Echo "description: " & strdescription
 

WScript.Echo VbCrLf & "** General Properties Page**"

WScript.Echo "** (The userAccountControl attribute) **"

Set objHash = CreateObject("Scripting.Dictionary")

objHash.Add "ADS_UF_TRUSTED_FOR_DELEGATION", &h80000

objHash.Add "ADS_UF_WORKSTATION_TRUST_ACCOUNT", &h1000

objHash.Add "ADS_UF_SERVER_TRUST_ACCOUNT", &h2000

intuserAccountControl = objItem.Get("userAccountControl")

For Each Key in objHash.Keys

  If objHash(Key) And intuserAccountControl Then

    WScript.Echo Key & " is enabled."

  Else

    WScript.Echo Key & " is disabled."

  End If

Next

If intuserAccountControl AND objHash.Item("ADS_UF_TRUSTED_FOR_DELEGATION") Then

  WScript.Echo "Trust computer for delegation"

Else

  WScript.Echo "Do not trust the computer for delegation"

End If

If intuserAccountControl AND objHash.Item("ADS_UF_SERVER_TRUST_ACCOUNT") Then

  WScript.Echo "Role: Domain Controller"

Else

  WScript.Echo "Role: Workstation or Server"

End If

WScript.Echo VbCrLf & "** Operating System Properties Page**"

WScript.Echo "** (Single-Valued Attributes) **"

stroperatingSystem = objItem.Get("operatingSystem")

WScript.Echo "operatingSystem: " & stroperatingSystem

stroperatingSystemVersion = objItem.Get("operatingSystemVersion")

WScript.Echo "operatingSystemVersion: " & stroperatingSystemVersion

stroperatingSystemServicePack = objItem.Get("operatingSystemServicePack")

WScript.Echo "operatingSystemServicePack: " & stroperatingSystemServicePack
 

WScript.Echo VbCrLf & "** Member Of Properties Page**"

WScript.Echo "** (Single-Valued Attributes) **"

strprimaryGroupID = objItem.Get("primaryGroupID")

WScript.Echo "primaryGroupID: " & strprimaryGroupID
 

WScript.Echo VbCrLf & "** Member Of Properties Page**"

WScript.Echo "** (MultiValued Attributes) **"

strmemberOf = objItem.GetEx("memberOf")

WScript.Echo "memberOf:"

For Each Item in strmemberOf

 WScript.Echo vbTab & Item

Next
 

WScript.Echo VbCrLf & "** Location Properties Page**"

WScript.Echo "** (Single-Valued Attributes) **"

strlocation = objItem.Get("location")

WScript.Echo "location: " & strlocation
 

WScript.Echo VbCrLf & "** Managed By Properties Page**"

WScript.Echo "** (Single-Valued Attributes) **"

strmanagedBy = objItem.Get("managedBy")

WScript.Echo "managedBy: " & strmanagedBy
 

If strmanagedBy <> "" Then

  Set objItem1 = GetObject("LDAP://" & strManagedBy)

  WScript.Echo "physicalDeliveryOfficeName: " & _

    objItem1.physicalDeliveryOfficeName

  WScript.Echo "streetAddress: " & _

    objItem1.streetAddress

  WScript.Echo "l: " & _

    objItem1.l

  WScript.Echo "c: " & _

    objItem1.c

  WScript.Echo "telephoneNumber: " & _

    objItem1.telephoneNumber

  WScript.Echo "facsimileTelephoneNumber: " & _

    objItem1.facsimileTelephoneNumber

End If

Open in new window

0

Featured Post

What Is Threat Intelligence?

Threat intelligence is often discussed, but rarely understood. Starting with a precise definition, along with clear business goals, is essential.

Join & Write a Comment

Recently I have been answering a lot of questions like this in IT forums that I frequent. The question posed is usually something along the lines of "We have software X installed and need to uninstall it for reason Y" or some other variant of the sa…
This is pretty cool.  The purpose of this VB Script is to help you document where JAR (Java ARchive) files and specifically java class files are located so that you can address issues seen with a client or that you can speak intelligently with a dev…
Learn the basics of while and for loops in Python.  while loops are used for testing while, or until, a condition is met: The structure of a while loop is as follows:     while <condition>:         do something         repeate: The break statement m…
Learn how to match and substitute tagged data using PHP regular expressions. Demonstrated on Windows 7, but also applies to other operating systems. Demonstrated technique applies to PHP (all versions) and Firefox, but very similar techniques will w…

746 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

9 Experts available now in Live!

Get 1:1 Help Now