User in Domänengruppe verscheiben per batch

Hallo Ihr Admins da draussen.
Ich kämpfe schon seid 2 Tagen mit einem Problem und finde keine Hilfe.

Ich möchte für einen User in der Domäne ein Anmelde Skript schreiben, das folgendes machen soll:

Den User in eine Admingruppe verscheiben, Uhrzeit synchronisieren, Netzlaufwerke anbinden, Netzwerkdrucker anbinden und den User wieder aus der Admingruppe entfernen.

Das Skript sieht bis jetzt folgender massen aus:

rem @echo off

echo dies ist ein Anmelde Skript

set user=melzer\%username%

pause
net group administratoren %user% /add /domain

net time \\Primtx200 /set /y
pause
net use R: \\Primtx200\einkauf /persistent:no
net use S: \\Primtx200\dokumente /persistent:no
net use T: \\Primtx200\dokumente\A - Preisliste u Marktberichte Einkauf
pause
rundll32 printui.dll,PrintUIEntry /in /n \\pc23\Zimmi_Claudia
rundll32 printui.dll,PrintUIEntry /in /n \\primtx200-2\CanoniR1600 Einkauf 2. Schacht
rundll32 printui.dll,PrintUIEntry /in /n \\primtx200-2\iR 1610-Einkauf
rundll32 printui.dll,PrintUIEntry /y /n \\pc23\zimmi_claudia
pause

net group administratoren %user% /delete /domain

pause

Anmerkung:
Der User ist einfacher Domänen-Benutzer. Ich wollte ihn temporär in die Gruppe der Domänen-Admins shcieben ( was daran scheitert, dass in der Batch das ä nicht als solches erkannt wird.
Deshalb wollte ich ihn in ide Administratorengruppe des SRV schieben. Leider schlägt auch das fehl.

Kann mir jemand helfen bzw. hat jemand eine andere Idee, wie ich das lösen kann?
Ich wäre sehr dankbar.
Mit besten Grüßen aus dem verscheneiten Hof

' Q: [content:11041]  

' Variablen deklarieren  
Dim objNetwork, objShell
Dim strMyName, strMyDriveLetter, strMyRemotePath
Set objNetwork = CreateObject("WScript.Network")  
Set objShell = CreateObject("Shell.Application")  

Public Function mapMyDrives(strMyName, strMyDriveLetter, strMyRemotePath)
	objNetwork.MapNetworkDrive strMyDriveLetter, strMyRemotePath
	objShell.NameSpace(strMyDriveLetter).Self.Name = strMyName
	mapMyDrives = ""  
End Function

' Laufwerke verbinden  
On Error Resume Next
mapMyDrives "Anzeigename", "P:", "\\server\share"  

rundll32 printui.dll,PrintUIEntry /q /in /n "\\server\druckername"