Thanks for replying Glen.
I am looking for that as what I posted was a new addition. If you want to see something that Howard did YEARS ago, before my time, here is what he wrote but I do not know how to utilize.

 Code:
; DFS logic by Howard B 8/30/2010
Dim $DFS, $DFSshare_suffices, $path_parts, $DFSshare_suffixes, $DFSdrives, $counter

if instr($Hserver, $Domain) and
	(
	instr($Hserver, "servera")=11
	or instr($Hserver, "serverb")=11
	)
	$path_parts = split($Hserver, "\")
	$bldg=right($path_parts[1],3)

	$NTDataServer = join($path_parts, "\", 2)
	; these two arrays need to match in number of elements (share to drive letter)
;	$DFSshare_suffixes="Apps","Data","Ptemp","EApps","AApps","EData"
;	$DFSdrives="L","N","P","R","T","J"
	$DFSshare_suffixes="Apps","Data","EApps","AApps","EData"
	$DFSdrives="L","N","R","T","J"
	for $counter=0 to ubound($DFSshare_suffixes)
		If exist("\\" +$NTDataServer + "\" + $bldg + $DFSshare_suffixes[$counter])
			MapDrive($DFSdrives[$counter]+":", $NTDataServer, $bldg + $DFSshare_suffixes[$counter])
		Endif
	next
else
	Select
		Case $Hserver="serverfp01"
			$NTDataServer="serverfp00"
			$APPServer="serverfp00"

		Case 1
	  		; Added by H. B 6/19/2009
			if instr($Hserver, "users") > 0
			  $Hserver=Substr($Hserver,1, instr($Hserver, "users")-2)
			Endif

			$NTDataServer=$Hserver
			$APPServer=$Hserver
	EndSelect


Edited by Allen (2022-04-19 06:33 AM)
Edit Reason: code tags