Beim auslesen des AD´s werden mir keine Nutzer/Gruppen angezeigt die etwas in der Beschreibung stehen haben

  • VBScript

    Beim auslesen des AD´s werden mir keine Nutzer/Gruppen angezeigt die etwas in der Beschreibung stehen haben

    Hallo zusammen,

    bin neu hier im Forum und hab auch gleich eine Frage (ich hoffe ich bin hier richtig).

    Ich habe mir ein Vbscript aus ein paar Komponenten zusammengestellt um AD-Daten auszulesen und in eine Excel Tabelle zu schreiben.
    Jetzt bin ich aber völlig am verzweifeln, da mir nur Konten angezeigt werden in denen das Feld Beschreibung nicht ausgefüllt ist.

    Da ich noch ein Vbscript Neuling bin kann ich mir dies auch nicht erklären. ?( ?(
    Wäre super dankbar für Hilfe :)
    Dies ist mein Code
    Spoiler anzeigen

    Visual Basic-Quellcode

    1. Const xlAnd = 1 ' Enum XlAutoFilterOperator
    2. Const xlOr = 2
    3. Const xlTop10Items = 3
    4. Const xlBottom10Items = 4
    5. Const xlTop10Percent = 5
    6. Const xlBottom10Percent = 6
    7. Const xlAscending = 1 ' Enum XlSortOrder
    8. Const xlDescending = 2
    9. Const xlSortColumns = 1 ' Enum XlSortOrientation
    10. Const xlSortRows = 2
    11. Const xlSortNormal = 0 ' Enum XlSortDataOption
    12. Const xlSortTextAsNumbers = 1
    13. Const msoScaleFromTopLeft = 0 ' Enum MsoScaleFrom
    16. set strRootDSE = GetObject ("LDAP://rootDSE")
    18. Set wso = CreateObject("Wscript.Shell")
    19. '_____________________________________________________________________________ Excel starten
    20. Set xlo = CreateObject("Excel.Application")
    21. xlo.Visible = True
    22. '_______________________________________________________________________________ Auswahl der Domäne
    23. 'wscript.echo "Loading Domains at LDAP://CN=Partitions," & strRootDSE.get ("configurationNamingContext")
    24. set opartition = GetObject("LDAP://CN=Partitions," & strRootDSE.get ("configurationNamingContext"))
    25. for each oDomain in opartition
    27. if oDomain.netbiosname = "" then
    28. REM REM 'wscript.echo "Skip Domain: " & oDomain.dnsroot
    29. else
    30. REM REM 'wscript.echo "Processing Domain: " & oDomain.dnsroot
    31. call ParseDomain(oDomain.dnsroot)
    32. end if
    33. next
    37. '______________________________________________________________________________ Sub xlsFill
    38. 'Füllt eine Zeile in einem Excel-Sheet mit Werten, die als Doppelpunkt String übergeben werden
    39. 'vars xls: excel worksheet
    40. ' col: column number
    41. ' values: semicolon-separated string
    42. '
    43. Sub xlsFill(byRef xls, col, values)
    44. Dim v, i
    45. v = Split(values, ":")
    46. For i=0 To UBound(v)
    47. xls.Cells(col, i+1) = v(i)
    48. Next
    49. End Sub
    51. sub ParseDomain(strdomainname)
    52. dim x
    53. x=2
    55. wscript.echo "Folgende Domäne wird aus dem AD ausgelesen:" & strdomainname
    56. Set oConnection = CreateObject("ADODB.Connection")
    57. Set oRecordset = CreateObject("ADODB.Recordset")
    58. Set oCommand = CreateObject("ADODB.Command")
    59. oConnection.Provider = "ADsDSOObject" 'The ADSI OLE-DB provider
    60. oConnection.Open "ADs Provider"
    61. oCommand.ActiveConnection = oConnection
    62. oCommand.Properties("Page Size") = 100
    63. oCommand.CommandText = "<LDAP://" & strdomainname & "/dc=Domäne,dc=de>;" & _
    64. "(mailnickname=*);" & _
    65. "distinguishedName,extensionAttribute1,displayName,department,mail,descrition,initials,description,samAccountName,objectClass,userPrincipalName,memberof" & _
    66. ";subtree"
    68. Set oRecordset = oCommand.Execute
    69. 'wscript.echo "Done Total Records found:" & oRecordset.recordcount
    71. Set xlw = xlo.Workbooks.Add()
    73. xlw.Sheets(1).Name = "Benutzer dicvm"
    74. '_____________________________________________________________________________ Arbeit in einem Sheet
    75. Set xls = xlw.Sheets(1)
    76. xls.Cells(1,1) = "1"
    77. xls.Cells(1,2) = "2"
    78. xls.Cells(1,5) = "5"
    79. xls.Cells(1,4) = "4"
    80. xls.Cells(1,3) = "3"
    81. With xlw.Sheets(1).Columns(1)
    82. .ColumnWidth = 45
    83. End With
    84. With xlw.Sheets(1).Columns(2)
    85. .ColumnWidth = 20
    86. End With
    87. With xlw.Sheets(1).Columns(5)
    88. .ColumnWidth = 50
    89. End With
    90. With xlw.Sheets(1).Columns(4)
    91. .ColumnWidth = 15
    92. End With
    93. With xlw.Sheets(1).Columns(3)
    94. .ColumnWidth = 10
    95. End With
    97. do until oRecordset.EOF
    100. '_____________________________________________________________________________ Umgang mit Excel Sheets
    103. xls.Cells(x,1) = oRecordset.Fields("displayName")
    104. xls.Cells(x,2) = oRecordset.Fields("samAccountName")
    105. xls.Cells(x,3) = oRecordset.Fields("department")
    106. xls.Cells(x,4) = oRecordset.Fields("extensionAttribute1")
    107. xls.Cells(x,5) = oRecordset.Fields("description")
    108. oRecordset.MoveNext
    109. x = x + 1
    111. loop
    116. msgBox ("Es wurden "& oRecordset.recordcount & " AD-Konten gefunden")
    117. end sub


    Edit by hal2000:
    - Code-Tags gesetzt
    - Expander eingefügt

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „hal2000“ ()

Facebook
Telefonspende