; 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