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, 8453 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

Per VB Script eine Webverknüpfung erstellen

gelöst Frage von wilyfoxVB for Applications2 Kommentare

Hallo, ich möchte per Script eine Verknüpfung auf dem Desktop erstellen. Die Verknüpfung wird auch erstellt nur das gewünschte ...

Batch & Shell

Per Powershell Excel Tabellen erstellen

gelöst Frage von 13Stift37Batch & Shell6 Kommentare

Hallo liebe Admins und Entwickler. Ich habe folgendes Problem: Ich bin gerade dabei, ein PS Script für unsere neue ...

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 ...

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 ...

Neue Wissensbeiträge
Humor (lol)
(Part num your Hacked phone. +XX XXXXXX5200)
Erfahrungsbericht von Henere vor 4 StundenHumor (lol)

Mein Handy hat aber ne ganz andere Endnummer. Muss ich mir jetzt Sorgen machen ? :-) Vielleicht betrifft es ...

Exchange Server

Letztes Update für Exchange 2016 CU9 war in gewisser Weise destruktiv

Erfahrungsbericht von DerWoWusste vor 5 StundenExchange Server3 Kommentare

Kurzer Erfahrungsbericht zu Exchange2016-KB4340731-x64 Der Exchangeserver hat wie gewöhnlich versucht, es in der Nacht automatisch zu installieren - abgesehen ...

Erkennung und -Abwehr

Neue Sicherheitslücke Foreshadow (L1TF) gefährdet fast alle Intel-Prozessoren

Information von Frank vor 1 TagErkennung und -Abwehr3 Kommentare

Eine neue Sicherheitslücke, genannt Foreshadow (alias L1TF) wurde auf der Usenix Security 18 von einem Team internationaler Experten veröffentlicht. ...

Vmware
VMware Updates gegen L1 Lücke
Information von sabines vor 1 TagVmware

Für die Vmware Produkte vCenter Server, ESXi, Workstation und Fusion stehe Updates bereit um die L1 Lücke zu schließen. ...

Heiß diskutierte Inhalte
Windows Server
Domäne einsilbig mit nur einem Namen benannt - sowie AD und MX auf einer VM Kardinalsfehler?
Frage von TomTestWindows Server47 Kommentare

Hallo liebe Freunde gepflegter Probleme, seit kurzem soll ich eine Domäne verwalten die zuvor von einem IT-Dienstleister erstellt und ...

Microsoft
VPN Verbindung kann nicht aufgebaut werden
Frage von AlexderITlerMicrosoft35 Kommentare

Hallo, Ich möchte an einem unserer PCs in unserer Tochterfirma eine VPN zu unserem Netzwerk einrichten. Das schlägt allerdings ...

Windows Server
Windows Server per Web auf Daten zugreifen und verwalten
Frage von matze2090Windows Server16 Kommentare

Hallo, ich würde gerne von außen auf meinem Windows Server zugreifen um auf meine Daten zu verwalten. Meine frage ...

DNS
Gibt es eine Art DNS Proxy?
Frage von icepietDNS15 Kommentare

Hallo Nerds, Ich würde gerne folgendes machen: ts.domain.de:3389 soll auf 1.2.3.4:3389 auflösen ts2.domain.de:3389 soll auf 1.2.3.4:3390 auflösen Gibt es ...