[Prisoner]

Pav
Если можно чуточку подробнее. Что есть, чего не удается, куда смотрим и все такое прочее. Кроме того, мне не понятен смысл  

"учетной записи почты интернета"

. Не поясните?

Доброго времени суток Prisoner
подробнее: необходимо будет произвести первоначальную настройку компьютеров с помощью скрипта:
копирование WinRAR,Far и тп, и настройку на майлсервер организации.
"учетной записи почты интернета" - термин взят из самой виндовс это в аутлук експрес меню:сервис\учетные записи
для 98 станций у меня все делалость тупо в реестре, но тут будут винхр.
Спасибо что хоть кто-то откликнулся.

приложение, кусок vbs скрипта:

Код:

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"

[s]Исправлено: Pav, 6:58 17-06-2004[/s]

[hasherfrog]

Pav
То есть: Вас нет на работе, принесли новую тачки, залили на неё Ваш скрипт, клацнули по нему - и для текущего пользователя прописались в реестр данные, необходимые для работы почты? И Вы не знаете, куда конкретно в реестре их прописывать?

hasherfrogтипа того, только компы будут с предустановленой виндой, и соответсвенно неизвестен путь в реесте, куда прописывать.поэтому икакто надос самим таким объектом работать

[hasherfrog]

Нда-с, тяжеловато понять, что Вам нужно. Почему путь в реестре неизвестен? Ладно, давайте Вы сначала просмотрите это. 80%, что там есть то что Вам нужно.