code:

---

;Make the window appear
IF @dos = 5.0
 $HKLMS = 'HKEY_LOCAL_MACHINE\SOFTWARE'
       IF 1 <> ReadValue($hklms+"\Microsoft\Windows NT\CurrentVersion\Winlogon",
 "RunLogonScriptSync")
             $ = WriteValue ($hklms+"\Microsoft\Windows NT\CurrentVersion\Winlog
on", "RunLogonScriptSync", "1", "REG_DWORD")
       ENDIF
 ENDIF


;Clear all possible network drive mappings

use M: /d
use N: /d
use O: /d
use P: /d
use Q: /d
use R: /d
use S: /d
use T: /d
use U: /d
use V: /d
use W: /d
use X: /d
use Y: /d
use Z: /d

IF InGroup("Test1")
        ? "Mapping X:"
        use X: \\dusty\1
        If @error = 0
                ? " Mapping of drive X Successful"
        ELSE
                ? " Error mapping drive X to \\Dusty\1"
        ENDIF
ELSE
        ? " Not in Test1"
ENDIF

IF InGroup("Test2")
        ? "Mapping X:"
        use Y: \\dusty\2
        If @error = 0
                ? " Mapping of drive Y Successful"
        ELSE
                ? " Error mapping drive Y to \\Dusty\2"
        ENDIF
ELSE
        ? " Not in Test2"
ENDIF
IF InGroup("Test3")
        ? "Mapping Z:"
        use Z: \\dusty\3
        If @error = 0
                ? " Mapping of drive Z Successful"
        ELSE
                ? " Error mapping drive Z to \\Dusty\3"
        ENDIF
ELSE
        ? " Not in Test3"
ENDIF

Color y+/n
At (23,32) "<any key to continue>"
Get $x

---