VBScript waarden niet weg geschreven

[midget]

Onderstaand script word gebruikt om Outlook Web Access bij je internet instellingen / programma's toe te voegen.
Echter worden de instellingen niet in het register weg geschreven.
Ook kan ik niks vinden waarop het script spaak loopt.
Script wordt uitgevoerd op WIndows XP

code:

<package>
<Job id="OutlookWebAccessAsMailClient">
<script language="VBScript">

' DESCRIPTION:  This Windows Script file adds all necessary registry keys
'               to add OWA as selectable mail client in IE
'
' Copyright (c) Siegfried Weber. All rights reserved.
'               http://groups.yahho.com/group/mscollaboration
'
'------------------------------------------------------------------------

' Initialize error handling
Option Explicit
On Error Resume Next

Dim objWSHShell     ' As WScript.Shell
Dim strInput        ' As String

' Ask for FQDN to Exchange Server
strInput = InputBox("Please enter the Exchange Server full qualified domain name (like: <http://era01mx001.era.local>)")

' Check if server FQDN has been supplied
If Trim(strInput) <> "" Then
' Put registry settings to make OWA a mail client one can choose in IE

 Set objWSHShell = WScript.CreateObject("WScript.Shell")
 With objWSHShell
  .RegWrite "HKLM\SOFTWARE\Clients\Mail\Outlook Web Access\", "Microsoft Outlook Web Access", "REG SZ"
  .RegWrite "HKLM\SOFTWARE\Clients\Mail\Outlook Web Access\Protocols\mailto\", "URL:MailTo Protocol", "REG SZ"
  .RegWrite "HKLM\SOFTWARE\Clients\Mail\Outlook Web Access\Protocols\mailto\URL Protocol", "", "REG SZ"
  .RegWrite "HKLM\SOFTWARE\Clients\Mail\Outlook Web Access\Protocols\mailto\EditFlags", &H00000002, "REG BINARY"
  .RegWrite "HKLM\SOFTWARE\Clients\Mail\Outlook Web Access\Protocols\mailto\DefaultIcon\", "%ProgramFiles%\Outlook Express\msimn.exe,-2", "REG EXPAND SZ"
  .RegWrite "HKLM\SOFTWARE\Clients\Mail\Outlook Web Access\shell\open\command\", """%ProgramFiles%\Internet Explorer\iexplore.exe"" " & strInput & "/exchange/", "REG EXPAND SZ"
 
  ' For Exchange 2003 use the following line to pull up the built-in OWA 2003 new mail Web form
  .RegWrite "HKLM\SOFTWARE\Clients\Mail\Outlook Web Access\Protocols\mailto\shell\open\command\", """%ProgramFiles%\Internet Explorer\iexplore.exe"" " & strInput & "/exchange/%USERNAME%/drafts/?cmd=new&mailtoaddr=%1", "REG EXPAND SZ"
 End With

 ' Tidy up
 Set objWSHShell = Nothing
Else
 WScript.Echo "Please enter a valid Exchange Server full qualified domain name"
End If

' Say good bye
WScript.Echo "Thank you for using this script."

</script>
</Job>
</package>

[LuCarD]

Wat gebeurt er wel?
Wat heb je al gedaan om te debuggen?
Komt hij wel in de if statement?
Heb je de On Error Resume Next al een keer uitgeschakeld?
Krijg je foutmeldingen?

Heb je de FAQ gelezen over debuggen?


Is dit geen standaard mee geleverd script van MS? Is dit topic dan niet beter op zijn plaats in WOS of SA?

[ Voor 21% gewijzigd door LuCarD op 01-12-2004 15:49 ]

[Equator]

Begin eens met de regel "On Error resume Next" te vervangen door Option Explicit.
Dan zie je tenminste waar het foutgaat.

Probeer het eens met een valuetype: REG_SZ i.p.v. REG SZ
Zo ook REG_BINARY en REG_EXPAND_SZ

[ Voor 33% gewijzigd door Equator op 01-12-2004 15:58 ]

[midget]

CyberJ schreef op woensdag 01 december 2004 @ 15:49:
Begin eens met de regel "On Error resume Next" te vervangen door Option Explicit.
Dan zie je tenminste waar het foutgaat.

Probeer het eens met een valuetype: REG_SZ i.p.v. REG SZ
Zo ook REG_BINARY en REG_EXPAND_SZ

Dankje hierna wordt het script netjes geimporteerd in het register.
Echter werkt er iets nog iets niet aan het script ik ben weer verder aan het debuggen

[gorgi_19]

In Programming & Webscripting geven we geen support op scripts van anderen Verder is debuggen met On Error Resume Next aan niet echt aan te raden Neem eens contact op met de maker als z'n script niet werkt

[ Voor 6% gewijzigd door gorgi_19 op 02-12-2004 09:37 ]