code:

---

CLS
BREAK ON
md temp
$DriveLetterCHAR=67
WHILE $DriveLetterCHAR=>65 AND $DriveLetterCHAR=<90
$DriveLetter=CHR($DriveLetterCHAR)+":"
IF EXIST($DriveLetter)
SHELL '%COMSPEC% /c NET USE $DriveLetter>c:\temp\NetUSe_$DriveLetterCHAR.dat'
CLS
ENDIF
$NULL=OPEN(1,"c:\temp\NetUSe_$DriveLetterCHAR.dat")
$LINE1=READLINE(1)
$NULL=CLOSE(1)
IF INSTR($LINE1,"Local name")<>0
AT(02,02)"Drive : "$DriveLetter AT(04,02)
$CLSID="{AAAAAAAA-0000-0000-0000-0000000000"+$DriveLetterCHAR+"}"
$LinkName=$DriveLetter+"@Userid Home Drive"
$Command="%SystemRoot%\Explorer.exe "+$DriveLetter
$NULL=addkey("HKEY_CLASSES_ROOT\CLSID\$CLSID")
$NULL=addkey("HKEY_CLASSES_ROOT\CLSID\$CLSID\DefaultIcon")
$NULL=addkey("HKEY_CLASSES_ROOT\CLSID\$CLSID\InProcServer32")
$NULL=addkey("HKEY_CLASSES_ROOT\CLSID\$CLSID\Shell")
$NULL=addkey("HKEY_CLASSES_ROOT\CLSID\$CLSID\Shell\Connect")
$NULL=addkey("HKEY_CLASSES_ROOT\CLSID\$CLSID\Shell\Connect\Command")
$NULL=addkey("HKEY_CLASSES_ROOT\CLSID\$CLSID\ShellEx")
$NULL=addkey("HKEY_CLASSES_ROOT\CLSID\$CLSID\ShellEx\PropertySheetHandlers")
$NULL=addkey("HKEY_CLASSES_ROOT\CLSID\$CLSID\ShellEx\PropertySheetHandlers\$CLSID")
$NULL=addkey("HKEY_CLASSES_ROOT\CLSID\$CLSID\ShellEx\ShellFolder")
$NULL=writevalue("HKEY_CLASSES_ROOT\CLSID\$CLSID","",$LinkName,"REG_SZ")
$NULL=writevalue("HKEY_CLASSES_ROOT\CLSID\$CLSID\DefaultIcon","","%SystemRoot%\System32\Shell32.dll,9","REG_SZ")
$NULL=writevalue("HKEY_CLASSES_ROOT\CLSID\$CLSID\InProcServer32","","shell32.dll","REG_SZ")
$NULL=writevalue("HKEY_CLASSES_ROOT\CLSID\$CLSID\InProcServer32","ThreadingModel","Apartment","REG_SZ")
$NULL=writevalue("HKEY_CLASSES_ROOT\CLSID\$CLSID\Shell\Connect\Command","",$Command,"REG_SZ")
$NULL=writevalue("HKEY_CLASSES_ROOT\CLSID\$CLSID\ShellFolder","Attributes","0","REG_DWORD")
$NULL=addkey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\$CLSID")
ENDIF
$DriveLetterCHAR=$DriveLetterCHAR+1
LOOP
DEL"c:\temp\NetUSe_*.dat"  

---