Код:

on error resume next 
err.clear 
set wshNetwork = WScript.CreateObject( "WScript.Network") 
Set wshShell = WScript.CreateObject("WScript.Shell") 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
do while wshNetwork.username = "" 
WScript.Sleep 250 
loop 
user = wshNetwork.username 
domain = "dom.local" 
adspath = "WinNT://" & domain & "/" & user 
set adsobj = GetObject(adspath) 
fullusername = adsobj.fullname 
'---------------- 
prefix="HKEY_USERS\.DEFAULT\Software\Microsoft\Internet Account Manager\Accounts\00000001\" 
newacc=domain 
newmailsrv="server1."&domain 
newemail=user & "@" & domain 
wshShell.RegWrite(prefix & "Account Name"), newacc 
wshShell.RegWrite(prefix & "POP3 Server"), newmailsrv 
wshShell.RegWrite(prefix & "POP3 User Name"), user 
wshShell.RegWrite(prefix & "SMTP Server"), newmailsrv 
wshShell.RegWrite(prefix & "SMTP Display Name"), fullusername 
wshShell.RegWrite(prefix & "SMTP Email Address"), newemail 
wshShell.RegWrite(prefix & "SMTP Organization Name"), "ТО" 
wshShell.RegWrite(prefix & "SMTP Reply To Email Address"), newemail 
'---------------- 
prefix="HKEY_USERS\.DEFAULT\Software\Microsoft\WAB\WAB4\Wab File Name\" 
longname=wshShell.RegRead ( prefix ) 
objFSO.DeleteFile longname 
objFSO.CopyFile "\\dom.local\netlogon\netstore\dom.wab" , longname , True 
'---------------- 
DesktopPath = WSHShell.SpecialFolders("Desktop") 
If not (objFSO.FolderExists("c:\ConsUserData")) Then objFSO.CreateFolder("c:\ConsUserData") 
objFSO.CopyFile "\\dom.local\netlogon\netstore\ConsultantPlus.lnk" ,DesktopPath&"\ConsultantPlus.lnk" , True 
'---------------- 
owner=wshShell.RegRead ( prefix & "RegisteredOwner" ) 
runcmd="\\dom\netlogon\revisor\checkcfg.exe " & owner 
retcode=wshShell.Run(runcmd) 
if retcode then 
 * WshShell.LogEvent 0, "suc" 
else 
 * WshShell.LogEvent 1, "ablom " & runcmd 
end if 
'---------------- 
wshNetwork.RemoveNetworkDrive "G:",, true 
wshNetwork.MapNetworkDrive "G:","\\Server2\Work"