Windows Vista Forums
Vista Forums Home Join Vista Forums Windows 7 Forum Vista Tutorials Tags
Welcome to Windows Vista Forums. Our forum is dedicated to helping you find solutions with any problems, errors or issues you are experiencing with Windows Vista. The Vista forum also covers news and updates and has an extensive Windows Vista tutorial section that covers a wide range of tips and tricks.

Go Back   Vista Forums > Misc Newsgroups > VB Script

Vista - WINMAIL and VBS

Reply
 
Old 10-29-2008   #1 (permalink)
NT


 
 

WINMAIL and VBS

hello

we change our domain and so ihave 200 mails account to modify

users use outlook express (xp computer) or winmail (vista computer)

i made a script for my users who check the mail adress in the AD and modify
their adress locally

it works great for outlook express, but it doesn't for winmail, and i didn't
found a solution for

here is, the code if someone can give me a solution to do the same for
winmail client, thanks

code:
' part 1
On Error Resume Next
Set objSysInfo = CreateObject("ADSystemInfo")
strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)
email = objUser.mail

set WshShell = WScript.CreateObject("WScript.Shell")
valeurlue = WshShell.regRead ("HKCU\Software\Microsoft\Internet Account
Manager\Default Mail Account")
clea ="HKCU\Software\Microsoft\Internet Account Manager\Accounts\"
clepop=clea&valeurlue&"\POP3 User Name"
WshShell.RegWrite clepop,email,"REG_SZ"
clesmtpa=clea&valeurlue&"\SMTP Email Address"
WshShell.RegWrite clesmtpa,email,"REG_SZ"
Wscript.echo "ok"

end of the code



My System SpecsSystem Spec
Old 10-29-2008   #2 (permalink)
James Whitlow


 
 

Re: WINMAIL and VBS

"NT" <nt29@xxxxxx> wrote in message
news:38AF0B24-8707-4392-A5D1-F90317F04A3E@xxxxxx
Quote:

> hello
>
> we change our domain and so ihave 200 mails account to modify
>
> users use outlook express (xp computer) or winmail (vista computer)
>
> i made a script for my users who check the mail adress in the AD and
> modify
> their adress locally
>
> it works great for outlook express, but it doesn't for winmail, and i
> didn't
> found a solution for
>
> here is, the code if someone can give me a solution to do the same for
> winmail client, thanks
>
> code:
> ' part 1
> On Error Resume Next
> Set objSysInfo = CreateObject("ADSystemInfo")
> strUser = objSysInfo.UserName
> Set objUser = GetObject("LDAP://" & strUser)
> email = objUser.mail
>
> set WshShell = WScript.CreateObject("WScript.Shell")
> valeurlue = WshShell.regRead ("HKCU\Software\Microsoft\Internet Account
> Manager\Default Mail Account")
> clea ="HKCU\Software\Microsoft\Internet Account Manager\Accounts\"
> clepop=clea&valeurlue&"\POP3 User Name"
> WshShell.RegWrite clepop,email,"REG_SZ"
> clesmtpa=clea&valeurlue&"\SMTP Email Address"
> WshShell.RegWrite clesmtpa,email,"REG_SZ"
> Wscript.echo "ok"
If someone does not come along with a good answer, one possible solution
to getting the correct registry entries would be to download regmon from
Microsoft (SysInternals), start it up and then reconfigure WinMail and see
what registry entires it changes. In many cases, this has worked great for
me. Sometimes so many changes are made that it is not an easy solution...

http://technet.microsoft.com/en-us/s.../bb896652.aspx


My System SpecsSystem Spec
Old 10-30-2008   #3 (permalink)
NT


 
 

Re: WINMAIL and VBS

hey thansk for your answer

i test it but it move always
i test regshot too, that i use often but the files are too big on the TSE
server so i stop it

after research i found that (if i had good understood), that winmail is
different than oe and didn't write in the registry

had someone already done that i want to do ? (modify the email adress for x
user using winmail)

thanks


"James Whitlow" <jwhitlow.60372693@xxxxxx> a écrit dans le message de
news:ObRMeSgOJHA.1576@xxxxxx
Quote:

> "NT" <nt29@xxxxxx> wrote in message
> news:38AF0B24-8707-4392-A5D1-F90317F04A3E@xxxxxx
Quote:

>> hello
>>
>> we change our domain and so ihave 200 mails account to modify
>>
>> users use outlook express (xp computer) or winmail (vista computer)
>>
>> i made a script for my users who check the mail adress in the AD and
>> modify
>> their adress locally
>>
>> it works great for outlook express, but it doesn't for winmail, and i
>> didn't
>> found a solution for
>>
>> here is, the code if someone can give me a solution to do the same for
>> winmail client, thanks
>>
>> code:
>> ' part 1
>> On Error Resume Next
>> Set objSysInfo = CreateObject("ADSystemInfo")
>> strUser = objSysInfo.UserName
>> Set objUser = GetObject("LDAP://" & strUser)
>> email = objUser.mail
>>
>> set WshShell = WScript.CreateObject("WScript.Shell")
>> valeurlue = WshShell.regRead ("HKCU\Software\Microsoft\Internet Account
>> Manager\Default Mail Account")
>> clea ="HKCU\Software\Microsoft\Internet Account Manager\Accounts\"
>> clepop=clea&valeurlue&"\POP3 User Name"
>> WshShell.RegWrite clepop,email,"REG_SZ"
>> clesmtpa=clea&valeurlue&"\SMTP Email Address"
>> WshShell.RegWrite clesmtpa,email,"REG_SZ"
>> Wscript.echo "ok"
>
> If someone does not come along with a good answer, one possible solution
> to getting the correct registry entries would be to download regmon from
> Microsoft (SysInternals), start it up and then reconfigure WinMail and see
> what registry entires it changes. In many cases, this has worked great for
> me. Sometimes so many changes are made that it is not an easy solution...
>
> http://technet.microsoft.com/en-us/s.../bb896652.aspx
>
>
My System SpecsSystem Spec
Reply

Thread Tools


Similar Threads
Thread Forum
32 bit winmail is launching 64 bit winmail Vista mail
winmail.dat Browsers & Mail
Migration from Winmail to Winmail Vista mail
Winmail Vista account administration
WinMail Vista General


Vista Forums is an independent web site and has not been authorized,
sponsored, or otherwise approved by Microsoft Corporation.
"Windows Vista", the Start Orb, and related materials are trademarks of Microsoft Corp.
© Designer Media Ltd

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 39 40 41 42 43 44 45 46