$home = ExpandEnvironmentVars("%HOMESHARE%")
$errcount = 0USE H: /DEL
USE I: /DEL
USE K: /DEL
USE L: /DEL
USE M: /DEL
USE N: /DEL
USE Y: /DEL
messagebox('Mapping Network Drives...','Connecting Network Drives',64,2)
USE H: "\\server\engineering"
if (@ERROR > 0)
$errcount = $errcount + 1
endif
USE I: "\\server\services"
if (@ERROR > 0)
$errcount = $errcount + 1
endif
USE K: "\\server\admin"
if (@ERROR > 0)
$errcount = $errcount + 1
endif
USE L: "\\server\proj_pur"
if (@ERROR > 0)
$errcount = $errcount + 1
endif
USE M: "\\server\sales"
if (@ERROR > 0)
$errcount = $errcount + 1
endif
USE N: "\\server\universal"
if (@ERROR > 0)
$errcount = $errcount + 1
endif
USE Y: @HOMESHR
if (@ERROR > 0)
$errcount = $errcount + 1
endif
if ($errcount > 0)
messagebox('At least one network drive failed to connect.','Network Drive Failure',48)
endif