Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

W2k3 - User mittels VB-Script aus Excel Tabelle erstellen

Frage Microsoft Windows Userverwaltung

Mitglied: 39872

39872 (Level 1)

11.12.2006, aktualisiert 30.01.2007, 8381 Aufrufe, 3 Kommentare

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

http://nopaste.easy-coding.de/?id=708
Mitglied: 39872
29.01.2007 um 10:52 Uhr
Ich nutze jetzt den AdsScripter von www.innovasoft.de und passe das ausgegebene Script meinen Bedürfnissen an. Ist zwar etwas umständlich, da im AdsScripter keine Profile gespeichert werden können und ein paar Einstellungen (z.B:displayName=Nachname, Vorname;accountExpires) händisch im Script gemacht werden müssen aber momentan die sauberste Lösung.
Bitte warten ..
Mitglied: 39872
30.01.2007 um 09:52 Uhr
Kann ich die Änderungen am Script aus dem AdsScripter automatisch durchführen lassen?
Die Änderungen sind immer gleich, nur die Zeile ändert sich.
Anpassungen: Suchen und Ersetzen, Suchen und Einfügen nach
Bitte warten ..
Mitglied: bugmenot
10.02.2009 um 14:45 Uhr
Auch wenn dein Comment schon länger her ist. Vielleicht hilft es anderen.
Ich habe ein Skript erstellt der zumindest Punkt 1/3 und evt 4 lösen kann.

strDomainOrWorkgroup = "Arbeitsgruppe"

'Modify Local User Account Password: It Never Expires
Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open ("c:\Benutzer.xls")

strComputer = objExcel.Cells(1, 2).Value

intRow = 3
Do Until objExcel.Cells(intRow,1).Value = ""

strUser = objExcel.Cells(intRow, 1).Value
strFullname = objExcel.Cells(intRow, 3).Value
strDescription = objExcel.Cells(intRow, 4).Value
Set colAccounts = GetObject("WinNT://" & strComputer & "")
Set objUser = colAccounts.Create("user", strUser)
'Set objFullname= colAccounts.Create("Fullname", strFullname)

objUser.SetPassword objExcel.Cells(intRow, 2).Value
objUser.SetInfo
'objFullname.SetFullname objExcel.Cells(intRow, 3).Value




Set objUser = Nothing
Set colAccounts = Nothing

Set objUser = GetObject("WinNT://" & strDomainOrWorkgroup & "/" & strComputer & "/" & strUser & ",User")
'Set objFullname = GetObject("WinNT://" & strDomainOrWorkgroup & "/" & strComputer & "/" & strFullname & ",Fullname")

objUserFlags = objUser.Get("UserFlags")
objPasswordExpirationFlag = objUserFlags Or ADS_UF_DONT_EXPIRE_PASSWD
objUser.Put "userFlags", objPasswordExpirationFlag
objUser.Put "FullName", strFullname

objUser.Put "Description", strDescription
objUser.SetInfo

Set objUser = Nothing

strGroup = objExcel.Cells(intRow, 5).Value
'strGroup = "Users"
strUser = strUser

Set objGroup_ = GetObject("WinNT://" & strComputer & "/" & strGroup & ",group")
Set objUser_ = GetObject("WinNT://" & strComputer & "/" & strUser & ",user")
'Set objFullname_ = GetObject("WinNT://" & strComputer & "/" & strFullname & "Fullname")


objGroup_.Add(objUser_.ADsPath)

Set objGroup_ = Nothing
Set objUser_ = Nothing


intRow = intRow + 1
Loop

objExcel.Quit

Set objWorkbook = Nothing
Set objExcel = Nothing

'objExcel.Exit



Auszug Formatierung Excel
url: "img90.imageshack.us/my.php?image=excelsm1.png"
Bitte warten ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(8)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
VB for Applications
Bestimmte Daten aus eine CSV-Datei in eine Excel-Tabelle importieren (2)

Frage von MariaElena zum Thema VB for Applications ...

Outlook & Mail
gelöst Email Anhänge speichern VB Script aber nur bestimmte Dateitypen (Outlook) (4)

Frage von LindeUnimog zum Thema Outlook & Mail ...

Microsoft Office
Word Dokument (vorausgefüllte Formulare) aus Excel Tabelle generieren (1)

Frage von Server4Alle zum Thema Microsoft Office ...

Heiß diskutierte Inhalte
Microsoft
Ordner mit LW-Buchstaben versehen und benennen (21)

Frage von Xaero1982 zum Thema Microsoft ...

Netzwerkmanagement
gelöst Anregungen, kleiner Betrieb, IT-Umgebung (18)

Frage von Unwichtig zum Thema Netzwerkmanagement ...

Windows Update
Treiberinstallation durch Windows Update läßt sich nicht verhindern (17)

Frage von liquidbase zum Thema Windows Update ...

Windows Tools
gelöst Aussendienst Datensynchronisierung (12)

Frage von lighningcrow zum Thema Windows Tools ...