Windows Server 2008

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)