Automatyczna konfiguracja konto email - kod źródłowy
Automatycznie konfiguruje konto email. Przed uruchomieniem należy ręcznie skonfigurować skrypt o dane konta.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 | '**********************************************************************************************************************'* Autor: Marcin Mazurek *'* Data: 16/06/2004 *'* Opis: *'* Tworzy konto email z danymi zawartymi w zmiennych USER, DOMAIN, SMTP_server, POP3_server *'********************************************************************************************************************** Const HKEY_CLASSES_ROOT = &H80000000Const HKEY_CURRENT_USER = &H80000001Const HKEY_LOCAL_MACHINE = &H80000002Const HKEY_USERS = &H80000003Const HKEY_CURRENT_CONFIG = &H80000005USER = "janek"DOMAIN = "domena.com.pl"SMTP_server = "smtp.domena.com.pl"POP3_server = "pop3.domena.com.pl"Set StdOut = WScript.StdOutSet oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")strKeyPath = "Software\Microsoft\Office\Outlook\OMI Account Manager\Accounts\000000023"oReg.CreateKey HKEY_CURRENT_USER,strKeyPathoReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,"Account Name",USER & DOMAINoReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,"POP3 Server",POP3_serveroReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,"POP3 User Name",USERoReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,"SMTP Server",SMTP_serveroReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,"SMTP Display Name",USER & DOMAINoReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,"SMTP Email Address",USER & DOMAINoReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,"SMTP Server",SMTP_serveroReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,"SMTP User Name",SMTP_serveroReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,"Connection Type","00000000","REG_DWORD (DWORD Value)"oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,"POP3 Prompt for Password","00000000","REG_DWORD (DWORD Value)"oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,"POP3 Skip Account","00000000","REG_DWORD (DWORD Value)"oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,"SMTP Use Sicily","00000002","REG_DWORD (DWORD Value)"oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,"SMTP Prompt for Password","00000000","REG_DWORD (DWORD Value)"WScript.echo "Zainstalowałem konto email " & USER & DOMAINWSCript.Quit |