W2k3 - User mittels VB-Script aus Excel Tabelle erstellen

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • W2k3 - User mittels VB-Script aus Excel Tabelle erstellen

    Hallo,

    Ich versuche mich das erste Mal an der Accounterstellung mittels VB-Script.
    Das Script ist eine Vorlage gewesen, welche ich nur versucht habe meinen Bedürfnissen anzupassen.
    Nun habe ich ein paar Fragen:

    1. Wie hinterlege ich für jeden User ein eigenes Passwort aus der Excel Tabelle (min. 7 Zeichen)?
    2. Wie definiere ich die Gültigkeit des Kontos (1 Jahr ab Erstellung)?
    3. Wie weise ich dem User zusätzlich eine Gruppe zu?
    4. Wie aktiviere ich die Konten bei der Erstellung?
    5. Wie weise ich als Land Deutschland zu?

    Danke für die Mühe

    PS: Hier noch mal das Script

    Quellcode

    1. Dim oXL
    2. Dim u
    3. Dim c
    4. Dim root
    5. Dim ou
    6. Dim TextXL
    7. Dim CRLF
    8. Dim oArgs
    10. 'Get the command line args
    11. set oArgs=wscript.arguments
    13. CRLF = Chr(13) & Chr(10)
    15. 'If no command line arguments provided, prompt for file containing users to add
    16. If oArgs.Count = 0 Then
    17. TextXL = InputBox("This scripts reads an Excel spreadsheet and adds" & _
    18. "users from the Windows NT DS via ADSI." & CRLF & CRLF & _
    19. "Before starting, change the DS root in the EXCEL spreadsheet to match " & _
    20. "your DS." & CRLF & CRLF & _
    21. "Type in the path of a file containing users to add or delete" & CRLF & CRLF & _
    22. "Sample Add User file: ADDUSERS.XLS" & CRLF & _
    23. "Sample Delete User file: DELUSERS.XLS" & CRLF)
    24. 'Else file containing users is the first argument
    25. Else
    26. TextXL = oArgs.item(0)
    27. End If
    29. If TextXL = "" Then
    30. WScript.Echo "No input file provided. Stopping the script now."
    31. WScript.Quit(1)
    32. End If
    34. 'We will use ou to control loop, so set initial value to null
    35. ou = ""
    37. 'Start EXCEL and display it to the user
    38. Set oXL = WScript.CreateObject("EXCEL.application")
    39. oXL.Visible = True
    41. 'Open the workbook passed in the command line
    42. oXL.workbooks.open TextXL
    44. 'Activate the Add page
    45. ' oXL.sheets("Del").Activate
    47. 'Put the cursor in the starting cell and read the DS root
    48. oXL.ActiveSheet.range("A1").Activate ' this cell has the DS root in it
    50. 'Show it to the user
    51. WScript.Echo oXL.activecell.Value
    53. 'This is the starting point in the ds
    54. root = "DC=XYZ,DC=XYZ,DC=de"
    57. 'Step to the next row
    58. oXL.activecell.offset(1, 0).Activate
    60. 'Until we run out of rows
    61. Do While oXL.activecell.Value <> ""
    63. ou = "ou=NewUsers"
    66. 'Compose the ADSI path...
    67. s = "LDAP://" + ou+"," + root
    69. WScript.Echo s
    71. 'And get the object
    72. Set c = GetObject(s)
    74. 'Compose the user common name name from first and last names...
    75. uname = "CN=" + oXL.activecell.offset(0, 2).Value + "\, " + oXL.activecell.offset(0, 1).Value
    77. 'Create the new user object...
    78. Set u = c.Create("user", uname)
    80. uname =oXL.activecell.offset(0, 2).Value + ", " + oXL.activecell.offset(0, 1).Value
    82. 'Set the properties of the new user
    83. u.Put "givenName", oXL.activecell.offset(0, 1).Value 'givenName
    84. u.Put "sn", oXL.activecell.offset(0, 2).Value 'sn
    86. u.Put "displayName", uname 'Displayname
    87. u.Put "sAMAccountName", oXL.activecell.offset(0, 4).Value 'Sam Acct
    89. If oXL.activecell.offset(0, 7).Value <> "" Then
    90. If oXL.activecell.offset(0, 7).Value = "Tutor" Then
    91. u.Put "description", "XYZ"
    92. u.Put "department", "XYZ"
    93. End If
    94. Else
    95. u.Put "description", "XYZ"
    96. u.Put "department", "XYZ"
    97. End If
    99. u.Put "profilePath", "\\XYZ\profiles\" + oXL.activecell.offset(0, 4).Value
    100. u.Put "homeDirectory", "\\XYZ\users\" + oXL.activecell.offset(0, 4).Value
    101. u.Put "homeDrive", "T" 'homeDrive
    103. u.Put "scriptPath", "drucker.bat" 'script
    105. u.Put "streetAddress", "XYZ" 'Strasse
    106. u.Put "postalCode", "XYZ"
    107. u.Put "st", "XYZ"
    108. u.Put "l", "XYZ"
    110. '...and update the DS
    111. u.SetInfo
    113. 'Done with this object, discard it
    114. Set u = Nothing
    116. 'Step to the next user...
    117. oXL.activecell.offset(1, 0).Activate 'Next row
    118. Loop
    121. 'Done. close excel spreadsheet
    122. oXL.application.quit
    Alles anzeigen