Addextender("WWWNT34I.DLL")

MyDialogFormat=`WWWDLGED,5.0`

MyDialogCaption=`Install Clean Sweep.`
MyDialogX=90
MyDialogY=109
MyDialogWidth=148
MyDialogHeight=102
MyDialogNumControls=5

MyDialog01=`38,40,64,DEFAULT,PUSHBUTTON,DEFAULT,"Install",1`
MyDialog02=`0,0,0,DEFAULT,PUSHBUTTON,DEFAULT,"",0`
MyDialog03=`0,0,0,DEFAULT,PUSHBUTTON,DEFAULT,"",0`
MyDialog04=`38,66,64,DEFAULT,PUSHBUTTON,DEFAULT,"Exit",3`
MyDialog05=`34,12,72,DEFAULT,STATICTEXT,DEFAULT,"Clean Sweep installtion Utility"`

ButtonPushed=Dialog("MyDialog")
If ButtonPushed==3 then EXIT
If ButtonPushed==1 then goto REG


:REG
key=RegOpenkey(@REGMACHINE,"SOFTWARE\Microsoft\Exchange\Client\Extensions")
RegSetValue( key,"[CLNSWP]","4.0;C:\WINNT\SYSTEM32\CLNSWP32.DLL;2")
RegCloseKey(key)
FileCopy("Clnswp32.dll","c:\winnt\system32",@False)
Test=FileExist("C:\winnt\system32\Clnswp32.dll")
If Test==@true then goto REGTEST
else
Message("Error", "Could not copy Clnswp32.dll to System32 Directory!")
Exit

:REGTEST
J=RegExistValue(@REGMACHINE,"SOFTWARE\Microsoft\Exchange\Client\Extensions[CLNSWP]")
If J==@TRUE then Message("Success","Clean Sweep Installed")
else Message("Error","Could not update registry!")
Exit