Difference between revisions of "Windows Server 2008"
From Blue-IT.org Wiki
(→Time Server) |
(→AD User export / import) |
||
| Line 25: | Line 25: | ||
= AD User export / import = | = AD User export / import = | ||
| − | Option Explicit | + | Option Explicit |
| − | '**************************************************** | + | '**************************************************** |
| − | 'Variablen Deklaration | + | 'Variablen Deklaration |
| − | '**************************************************** | + | '**************************************************** |
| − | Dim fso, f, Zeile, Feld, Counter | + | Dim fso, f, Zeile, Feld, Counter |
| − | Const DateiName="ad_exportierte_benutzerliste.txt" ' File mit den Benutzern | + | Const DateiName="ad_exportierte_benutzerliste.txt" ' File mit den Benutzern |
| − | Const Passwort = "geheimespasswort" | + | Const Passwort = "geheimespasswort" |
| − | Const Domain = "domänenname" | + | Const Domain = "domänenname" |
| − | Const TopLeveldomain = "toplevel_postfix" | + | Const TopLeveldomain = "toplevel_postfix" |
| − | Const OU = "Organisationseinheit" | + | Const OU = "Organisationseinheit" |
| − | Const ProfilPfad = "\\PDC\sharename$\" | + | Const ProfilPfad = "\\PDC\sharename$\" |
| − | '**************************************************** | + | '**************************************************** |
| − | 'ZugriffsMethode | + | 'ZugriffsMethode |
| − | '1 = Lesen | + | '1 = Lesen |
| − | '2 = Schreiben | + | '2 = Schreiben |
| − | '8 = Anhaengen | + | '8 = Anhaengen |
| − | '**************************************************** | + | '**************************************************** |
| − | Const Zugriff=1 ' Nur zum lesen | + | Const Zugriff=1 ' Nur zum lesen |
| − | call BenutzerEinlesen() | + | call BenutzerEinlesen() |
| − | '***************************************************************** | + | '***************************************************************** |
| − | 'Unterfunktion zum einlesen der Benutzer | + | 'Unterfunktion zum einlesen der Benutzer |
| − | '***************************************************************** | + | '***************************************************************** |
Sub BenutzerEinlesen() | Sub BenutzerEinlesen() | ||
Dim Nachname,Vorname,Name,Benutzer,PrincipalName,Passwort | Dim Nachname,Vorname,Name,Benutzer,PrincipalName,Passwort | ||
Revision as of 08:58, 13 April 2011
Time Server
Setting the primary domain controller to use an internet timeserver:
echo Setting timeserver REM w32tm /config /manualpeerlist:ptbtime1.ptb.de /syncfromflags:manual /reliable:yes /update w32tm /config /manualpeerlist:"ptbtime1.ptb.de ptbtime2.ptb.de ptbtime3.ptb.de de.pool.ntb.org" /syncfromflags:manual /reliable:yes w32tm /config /update net stop w32time REM w32tm /unregister REM w32tm /register net start w32time echo Send time to clients w32tm /resync w32tm /monitor net time
If you have an environment with more than one machine, you can set a local server (e.g. the primary domain controller) as ntp server:
w32tm /config /manualpeerlist:"192.168.x.x ptbtime1.ptb.de ptbtime2.ptb.de ptbtime3.ptb.de de.pool.ntb.org" /syncfromflags:manual /reliable:yes
AD User export / import
Option Explicit '**************************************************** 'Variablen Deklaration '**************************************************** Dim fso, f, Zeile, Feld, Counter Const DateiName="ad_exportierte_benutzerliste.txt" ' File mit den Benutzern Const Passwort = "geheimespasswort" Const Domain = "domänenname" Const TopLeveldomain = "toplevel_postfix" Const OU = "Organisationseinheit" Const ProfilPfad = "\\PDC\sharename$\" '**************************************************** 'ZugriffsMethode '1 = Lesen '2 = Schreiben '8 = Anhaengen '**************************************************** Const Zugriff=1 ' Nur zum lesen call BenutzerEinlesen() '***************************************************************** 'Unterfunktion zum einlesen der Benutzer '***************************************************************** Sub BenutzerEinlesen()
Dim Nachname,Vorname,Name,Benutzer,PrincipalName,Passwort Set fso = CreateObject("Scripting.FileSystemObject")'Objekt zum lesen einer Datei Counter=0 'Testet ob Datei vorhanden If fso.FileExists(DateiName) Then Set f = fso.OpenTextFile (DateiName,Zugriff,false)'Oeffnet die Datei 'Schleife die alle Benutzer in ein Array liesst Do while not f.AtEndOfLine Zeile = f.readLine Feld = split(Zeile,",") Nachname = Feld(0)'Vorname Vorname = Feld(1)'Nachname Name = Feld(2)'Voller Name PrincipalName=Feld(3)'VollQualifizierterName Benutzer = Feld(4)'Anmeldename Counter=Counter+1 'Ruft Funkktion zum Schreiben der Benutzer in das AD Objekt auf Call BenutzerAnlegen(Benutzer,Vorname,Nachname,PrincipalName,Name) Loop f.Close'SChliesst die Datei Else WScript.Echo ("Datei ist nicht vorhanden") End If
End Sub '***************************************************************** 'Unterfunktion zum erstelllen der Benutzer '***************************************************************** Sub BenutzerAnlegen(Benutzer,Vorname,Nachname,PrincipalName,Name)
'On Error Resume Next '**************************************************** 'Variablen Deklaration '**************************************************** Dim ouo, b, LDAPPfad LDAPPfad="LDAP://OU=" & OU & ",DC=" & Domain & ",DC=" & TopLeveldomain '**************************************************** 'Setzt den LDAP Pfad '**************************************************** Set ouo = GetObject(LDAPPFAD) Set b = ouo.Create("user", "CN=" & Name) '**************************************************** 'Zum Aufruf der Bat Datei '**************************************************** Dim WshShell, ret Set WshShell = WScript.CreateObject("WScript.Shell")
'**************************************************** 'Schreibt die Benutzer Daten '**************************************************** b.Put "sAMAccountName", Benutzer b.Put "displayName", Name b.Put "givenName", Vorname b.Put "sn", Nachname b.Put "userAccountControl", 66082 And Not 65536 b.Put "userPrincipalName", PrincipalName b.Put "profilePath", ProfilPfad & Benutzer b.Put "pwdLastSet",0 b.SetInfo b.SetPassword Passwort b.AccountDisabled = False b.SetInfo WScript.Sleep(1000) '**************************************************** ret = WshShell.Run ("ChangePWonLogon.cmd " & Benutzer)
End Sub WScript.Echo(Counter & " Benutzer wurden angelegt !") WScript.Quit(0)