Option Explicit
Sub Main
Dim intReturn As Integer
Dim intUpdateLocation As Integer
Dim varFTPServer As Variant
Dim varNetworkPath As Variant
Dim intShowProgress As Integer
Dim intForceReboot As Integer
intUpdateLocation = 0
varFTPServer = "ftp.unisyn.com"
varNetworkPath = ""
intShowProgress = 1
intForceReboot = 0
intReturn = Action2.UpdateAutoMate (intUpdateLocation, varFTPServer, varNetworkPath, intShowProgress, intForceReboot)
If intReturn = 0 Then
MsgBox "Failure"
MsgBox( Action2.GetLastError )
ElseIf intReturn = 1 Then
MsgBox "Success"
End If
End Sub