Break On

$nul = SetOption('Explicit','On')
$nul = SetOption('NoVarsInStrings','On')
$nul = SetOption('WrapAtEOL','On')

Dim $sUNC

$sUNC = fnGetUNC('E:\')
$sUNC ?
@ERROR " | " @SERROR ?

Function fnGetUNC($sDrive)
   Dim $oFSO,$oDrive
   
   $oFSO = CreateObject('Scripting.FileSystemObject')
   If @ERROR Exit @ERROR EndIf
   
   If $oFSO.DriveExists($sDrive)
      $oDrive = $oFSO.GetDrive($sDrive)
      If $oDrive.DriveType = 3
         $fnGetUNC = $oDrive.ShareName
      Else
         Exit 1
      EndIf
   Else
      Exit 15
   EndIf
EndFunction