Function ConnectShare($DriveDefinition)
Dim $Rc
; split string on commas
$DriveDefinition = Split($DriveDefinition, ',')
; assign array elements to working vars
$DriveLetter = $DriveDefinition[0]
$Share = $DriveDefinition[1]
;Check Use List ; $ListOfConnection=USE LIST <- THIS IS NOT DONE SO REMOVE THIS COMMENT!!!
Progress("Connecting " + $DriveLetter + " to " + $Share)
DbgMessage("Info", " - Connecting " + $DriveLetter + " on " + $Share)
Use $DriveLetter $Share
If @ERROR
If @ERROR = 85
DbgMessage("Info", " - Disconnecting " + $DriveLetter + " on " + $Share)
Use $DriveLetter /delete /persistent
If @ERROR
DBGMessage("DisMountError", $DriveLetter)
EndIf
If ($NT_mode = "no")
$Rc = DelKey("HKEY_CURRENT_USER\Network\Persistent\" + $DriveLetter)
EndIf
Sleep $SleepTime
DbgMessage("Info", " - ReConnecting " + $DriveLetter + " on " + $Share)
Use $DriveLetter $Share
If @ERROR <> 0
DbgMessage("MountError", " - Mount Error " + $DriveLetter + " on " + $Share)
DBGMessage("MountError : ", @ERROR = @SERROR)
DbgMessage("Info", " - Mounting on Next Free Letter : " + $Share)
Use * $Share
EndIf
Else
DBGMessage("MountError : ", $DriveLetter + " on " + $Share)
DBGMessage("MountError : ", @ERROR = @SERROR)
DbgMessage("Info", " - Mounting on Next Free Letter : " + $Share)
Use * $Share
If $DebugFlag = 1
Sleep 3
Else
Sleep $SleepTime
EndIf
EndIf
EndIf
EndFunction