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)