Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 597
  • Last Modified:

Dump ADSI Information

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
dssbbp
Asked:
dssbbp
  • 2
1 Solution
 
Chris DentPowerShell DeveloperCommented:

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

ADSI Edit is an LDAP editor for managing Active Directory.

Chris
0
 
dssbbpAuthor Commented:
I need the information in the computer Properties, Attribute Editor tab, Attributes window.
 
0
 
dssbbpAuthor Commented:
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

Ask an Anonymous Question!

Don't feel intimidated by what you don't know. Ask your question anonymously. It's easy! Learn more and upgrade.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now