:: OpenClient for Linux automounter
:: This script will mount the Linux shared folder on startup
:: <author>
:: 06/10/2010

@ECHO OFF
SETLOCAL ENABLEDELAYEDEXPANSION
SET FREE=
SET USED=
SET MOUNTED=
SET TMOUNTED=0
SET COUNT=0
SET DRVUNIQ=8

ECHO Mounting share folder

GOTO CHECK

::
:: Check if the server can be reached, also check if the samba
:: is available and is we have any shared folder to map
::
:CHECK
::
ECHO Checking if shared machine is online
PING SMBHOST -n 1 -w 128 > NUL 2>&1
IF ERRORLEVEL 1 GOTO PINGERROR

ECHO Checking if shared server is available
NET VIEW \\SMBHOST > NUL 2>&1
IF ERRORLEVEL 1 GOTO SHAREERROR

ECHO Checking if there are shared folders available
NET VIEW \\SMBHOST | FINDSTR /V "Disk|Disque|Platte" > NUL 2>&1
IF ERRORLEVEL 1 GOTO NOSHARES


FOR /F "tokens=1,2 delims=\ " %%A IN ('FSUTIL FSINFO DRIVES ^| MORE /E /T0') DO (

  IF "%%B"=="" (
    SET USED=!USED! %%A
  ) ELSE (
    SET USED=!USED! %%B
  )
)
::ECHO "Drivers already in use %USED%


FOR %%A IN (F G H I J K L M N O P Q R S T U V W X Y Z) DO (
  ECHO.%USED% | FIND "%%A:" > NUL 2>&1
  IF ERRORLEVEL 1 (
    SET DRVUNIQ=%%A
    GOTO ENDLOOP
  )
)
:ENDLOOP


IF "%DRVUNIQ%"=="8" (
  GOTO ERRORDRIVE
)

GOTO CHECKMAPPED

::GOTO GOAHEAD
::
:: Check End
::


::
:PINGERROR
::
ECHO Unable to connect to \\smbhost. Please check your hosts file
GOTO END


::
:SHAREERROR
::
ECHO Unable to obtain share folder list
GOTO END


::
:NOSHARES
::
ECHO Unable to find a valid shared folder to map. Exiting
GOTO END


::
:ERRORDRIVE
::
ECHO There are no available letters to map the shared folders. Exiting
GOTO END


::
:CHECKMAPPED
::
FOR /F "eol=@ tokens=1,2,3,4 delims=\ " %%A IN ('NET USE ^| FINDSTR "OK"') DO (
  ::ECHO %%A %%B %%D
  IF "!MOUNTED!"=="" (
    SET MOUNTED=%%D
    SET TMOUNTED=1
    %SYSTEMROOT%\EXPLORER.EXE \\SMBHOST\%%D
  ) ELSE (
    SET MOUNTED=!MOUNTED! %%D
    SET TMOUNTED=1
    %SYSTEMROOT%\EXPLORER.EXE \\SMBHOST\%%D 
  )
)
IF !TMOUNTED! == 1 (
  ECHO Already mounted drives = "!MOUNTED!"
)
GOTO GOAHEAD


::
:GOAHEAD
::

  FOR /F "tokens=1 delims= " %%A in ('NET VIEW \\SMBHOST ^| FINDSTR "Disk"') do (   
       
    ECHO %MOUNTED% | FIND "%%A" > NUL 2>&1

    IF ERRORLEVEL 1 (
      NET USE * \\SMBHOST\%%A /P:NO > NUL 2>&1
      IF ERRORLEVEL 0 (
        ECHO %%A succesfully mounted
        %SYSTEMROOT%\EXPLORER.EXE \\SMBHOST\%%A
      ) ELSE (
        ECHO Unable to mount shared folder. You must do it manually
      )
    )
  )

 FOR /F "tokens=1 delims= " %%A in ('NET VIEW \\SMBHOST ^| FINDSTR "Disque"') do (

    ECHO %MOUNTED% | FIND "%%A" > NUL 2>&1

    IF ERRORLEVEL 1 (
      NET USE * \\SMBHOST\%%A /P:NO > NUL 2>&1
      IF ERRORLEVEL 0 (
        ECHO %%A succesfully mounted
        %SYSTEMROOT%\EXPLORER.EXE \\SMBHOST\%%A
      ) ELSE (
        ECHO Unable to mount shared folder. You must do it manually
      )
    )
  )

 FOR /F "tokens=1 delims= " %%A in ('NET VIEW \\SMBHOST ^| FINDSTR "Platte"') do (

    ECHO %MOUNTED% | FIND "%%A" > NUL 2>&1

    IF ERRORLEVEL 1 (
      NET USE * \\SMBHOST\%%A /P:NO > NUL 2>&1
      IF ERRORLEVEL 0 (
        ECHO %%A succesfully mounted
        %SYSTEMROOT%\EXPLORER.EXE \\SMBHOST\%%A
      ) ELSE (
        ECHO Unable to mount shared folder. You must do it manually
      )
    )
  )

  GOTO END

::
:END
::
  ECHO "Finished"