Top-Themen

Aktuelle Themen (A bis Z)

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

Mitglied: 39872

39872 (Level 1)

11.12.2006, aktualisiert 30.01.2007, 8493 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 ..
Ähnliche Inhalte
VB for Applications
Neue Zeile in Excel per VB Script
gelöst Frage von TheFalconVB for Applications1 Kommentar

Hallo zusammen, ich habe ein Script welches soweit auch funktioniert. Ich möchte jetzt aber gerne, dass die Werte fortlaufend ...

VB for Applications

VB-Script in VB-Script starten und Parameter übergeben

gelöst Frage von denkisVB for Applications7 Kommentare

Hallo liebe Scriptgemeinde, ich muss mehrere Rechner für den Übergang in eine neue Domäne vorbereiten. Dafür sind drei wesentliche ...

Batch & Shell

VB Script ändert Dateinamen

gelöst Frage von mschaedler1982Batch & Shell5 Kommentare

Hallo zusammen. Kurze Erläuterung zu diesem Thema. Eine Maschine legt jeden Tag zu einer bestimmten Uhrzeit sehr sehr viele ...

VB for Applications

VB-Script per Aufgabenplanung

gelöst Frage von S4kar97VB for Applications2 Kommentare

Hallo, Ich habe mir ein VB-Script erstellt, welches im Grunde ein Programm startet und diesem Parameter übergibt und die ...

Neue Wissensbeiträge
Windows Mobile

Support für Windows Mobile endet im Dezember 2019

Information von transocean vor 1 TagWindows Mobile

Moin, Microsoft empfiehlt als Alternative den Umstieg auf iOS oder Android, wie man hier lesen kann. Gruß Uwe

Internet

Kommentar: Bundesregierung erwägt Ausschluss von Huawei im 5G-Netz - Unsere Presse wird immer sensationsgieriger

Information von Frank vor 3 TagenInternet5 Kommentare

Hier mal wieder ein schönes Beispiel für fehlgeleiteten Journalismus und Politik zugleich. Da werden aus Gerüchten plötzlich Fakten, da ...

Windows 10

Netzwerk-Bug in allen Windows 10-Versionen durch Januar 2019-Updates

Information von kgborn vor 3 TagenWindows 101 Kommentar

Nur ein kurzer Hinweis für Admins, die Windows 10-Clients im Portfolio haben. Mit den Updates vom 8. Januar 2019 ...

Windows 10

Windows 10 V1809: Rollout ist gestartet - kommt per Windows Update

Information von kgborn vor 4 TagenWindows 102 Kommentare

Eine kurze Information für die Admins, die Windows 10 im Programm haben. Microsoft hat die letzte Baustelle (die Inkompatibilität ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
Bekannte Drosselungen bei Providern ?
Frage von HenereLAN, WAN, Wireless15 Kommentare

Servus zusammen, in bereits angefangen, aber ich hoffe dass der Beitrag hier mehr Informationen bringt. Sind Portdrosselungen bzw gezielte ...

LAN, WAN, Wireless
Temporäre WLAN Verbindung für AD-Login
Frage von Christian.WidauerLAN, WAN, Wireless15 Kommentare

Hallo zusammen, ich weiß leider nicht unter welchem Begriff ich dafür suchen muss, daher habe ich bisher leider nichts ...

Netzwerkmanagement
Reverse Proxy für TCP und UDP Anfragen
gelöst Frage von flxklsNetzwerkmanagement13 Kommentare

Hallo zusammen, ich besitze einen Rootserver, der nur eine öffentliche IP besitzt und auf dem mehrere VMs laufen. Da ...

E-Mail
Rechtssichere Archivierung von emails
Frage von gerd33E-Mail11 Kommentare

Hallo zusammen, bin gerade dabei, eine revisions- und rechtsichere email-archivierung aucf meinem Server zu projektieren. Da eigentlich nur ich ...