Ok , here is function

 Code:
Function ConnectShare($DriveDefinition)
  $DriveLetter = SubStr($DriveDefinition, 1, InStr($DriveDefinition, ",") - 1)
  $DriveDefinition = LTrim(RTrim(SubStr($DriveDefinition, InStr($DriveDefinition, ",") + 1)))
  $Share = LTrim(RTrim(SubStr($DriveDefinition, 1, InStr($DriveDefinition, ",") - 1)))
  $ShareDesc = LTrim(RTrim(SubStr($DriveDefinition, InStr($DriveDefinition, ",") + 1)))
  
  ;Check Use List ;    $ListOfConnection=USE LIST
  Progress("Connecting " + $DriveLetter + " to " + $Share)
  DbgMessage("Info", "  - Connecting " + $DriveLetter + " on " + $Share)
  Use $DriveLetter $Share
  If @ERROR <> 0
    If @ERROR = 85
      DbgMessage("Info", "  - Disconnecting " + $DriveLetter + " on " + $Share)
      Use $DriveLetter /delete /persistent
      If @ERROR <> 0
        DBGMessage("DisMountError", $DriveLetter)
      EndIf
      If ($NT_mode = "no")
        $returnCode = 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

Edited by Glenn Barnas (2013-08-12 03:35 PM)
Edit Reason: add code tags