IF Exist('R:')
          SHELL '%COMSPEC% /C NET USE R: /D > nul'
          SLEEP 2
       ENDIF
       USE R: /delete /persistent
       IF 0=Exist('R:')
          USE R: '\\NEWSERVER\APPS'
       ENDIF

if exist('R:\')
  use R: /delete /persistent
  if @error=0
    use R: '\\NEWSERVER\APPS'
  endif
endif

Function MapDrive($Drive, $Server, $Share)

	Dim $Drive, $Server, $Share, $shell

	Color c+/n



	If $Drive<>"" and $Server<>"" and $Share<>""

		$LogText="Connecting $Drive to \\$Server\$Share"

		? $LogText

		USE $Drive /Delete /Persistent

		USE $Drive "\\$Server\$Share"

		If @error=0

			color g+/n

			$x=" - Success"

			"$x"

			If val($DOS) >= 5

				$shell=createobject("shell.application")

				$shell.namespace($Drive+"\").self.name=$Share + " on '" + $Server + "'"

				$shell = 0

			Endif

		Else

			color r+/n

			$x=" - Failed: Error @error"

			"$x"

			$ErrorState=1

		Endif

		WriteLog ($LogText + $x)

		WriteLog2("%temp%\MapDrive.log",$LogText + $x,1)

		Color w+/n

	Else

		WriteLog ("Function 'MapDrive' called with invalid parameters: '$Drive', '$Server', '$Share'")

	Endif

Endfunction

  

Quote:

---

Though, even NET USE has a persistent switch as well.

---