Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)
-   -   Изменение параметров почты через VBS (http://forum.oszone.net/showthread.php?t=29647)

Pav 15-06-2004 09:21 205139
Пишу скрипт для настройки новых компьютеров в организации.
Встала проблема изменения параметров "учетной записи почты интернета", таких как логин, имя пользователя,адреса и порты почтового сервера.
Просто планируется приход новых компьютеров когда я буду в отпуске, а их необходимо запустить в работу немедленно

Prisoner 17-06-2004 00:20 205140
Pav
Если можно чуточку подробнее. Что есть, чего не удается, куда смотрим и все такое прочее. Кроме того, мне не понятен смысл  
Цитата:
"учетной записи почты интернета"
. Не поясните?

Pav 17-06-2004 06:51 205141
Доброго времени суток 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 17-06-2004 09:46 205142
Pav
То есть: Вас нет на работе, принесли новую тачки, залили на неё Ваш скрипт, клацнули по нему - и для текущего пользователя прописались в реестр данные, необходимые для работы почты? И Вы не знаете, куда конкретно в реестре их прописывать?

Pav 17-06-2004 16:04 205143
hasherfrogтипа того, только компы будут с предустановленой виндой, и соответсвенно неизвестен путь в реесте, куда прописывать.поэтому икакто надос самим таким объектом работать

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


Время: 23:58.

Время: 23:58.
© OSzone.net 2001-