Function ConnectSpecialShares()
  ;******************************
  ; SpecialShares
  ;******************************
  Dim $ShareEntries
  Dim $numShareEntries
  $numShareEntries = 1
  Progress("Connecting Special Shares")
  DbgMessage("Info", "Connecting Special Shares")
  DbgMessage("Info", "  SpecialSharesinifile = " + $SpecialSharesIniFile)
  If Exist($SpecialSharesIniFile)
  ;Walk through SpecialSharesIniFile and generate array
  $MainGroup = "ALLSTAFF"
  $Handle = FreeFileHandle()
  If $Handle > 0
    If Open($Handle, $SpecialSharesIniFile, 2) = 0
      $line = ReadLine($Handle)
      While @ERROR = 0
        If Left($line, 1) = "["
          $GroupName = SubStr($line, 2, Len($line) - 2)
          If InGroup($GroupName)
            ReDim preserve $ShareEntries[$numShareEntries]
            $ShareEntries[$numShareEntries] = $GroupName
            $numShareEntries = $numShareEntries + 1
          EndIf
        EndIf
        $line = ReadLine($Handle)
      Loop
      Close($Handle)
    EndIf
  EndIf
  For $shares = 1 to UBound($ShareEntries)
    For $x = 1 to 10
      $DriveDefinition = ReadProfileString($SpecialSharesIniFile, $ShareEntries[$shares], "drive" + $x)
      If @ERROR = 0
        If $DriveDefinition <> ""
          ConnectShare($DriveDefinition)
        EndIf
      Else
        Return
      EndIf
    Next
  Next
  EndIf
EndFunction