Here is a slight modification to Fabian's script. It places Icons for all drives (local and network) and removes the ones that are no longer present (disconnected)

never let a good script go unmodified...

code:

CLS
BREAK ON
$DriveLetterCHAR=67
WHILE $DriveLetterCHAR=>65 AND $DriveLetterCHAR=<90
	$DriveLetter=CHR($DriveLetterCHAR)+":"
	$CLSID="{AAAAAAAA-0000-0000-0000-0000000000"+$DriveLetterCHAR+"}"
	IF EXIST($DriveLetter)
		SHELL'%ComSpec% /C NET USE $DriveLetter>d:\temp\NetUSe_$DriveLetterCHAR.dat 2>nul'
		$LinkName=$DriveLetter+" [Local]"
		$driveicon="8"
		if getfilesize("d:\temp\NetUSe_$DriveLetterCHAR.dat")>0
			$LinkName=$DriveLetter+" [Network]"
			$driveicon="9"
			endif
		$Command="%SystemRoot%\Explorer.exe "+$DriveLetter
		$=addkey("HKEY_CLASSES_ROOT\CLSID\$CLSID")
		$=addkey("HKEY_CLASSES_ROOT\CLSID\$CLSID\DefaultIcon")
		$=addkey("HKEY_CLASSES_ROOT\CLSID\$CLSID\InProcServer32")
		$=addkey("HKEY_CLASSES_ROOT\CLSID\$CLSID\Shell")
		$=addkey("HKEY_CLASSES_ROOT\CLSID\$CLSID\Shell\Connect")
		$=addkey("HKEY_CLASSES_ROOT\CLSID\$CLSID\Shell\Connect\Command")
		$=addkey("HKEY_CLASSES_ROOT\CLSID\$CLSID\ShellEx")
		$=addkey("HKEY_CLASSES_ROOT\CLSID\$CLSID\ShellEx\PropertySheetHandlers")
		$=addkey("HKEY_CLASSES_ROOT\CLSID\$CLSID\ShellEx\PropertySheetHandlers\$CLSID")
		$=addkey("HKEY_CLASSES_ROOT\CLSID\$CLSID\ShellEx\ShellFolder")
		$=writevalue("HKEY_CLASSES_ROOT\CLSID\$CLSID","",$LinkName,"REG_SZ")
		$=writevalue("HKEY_CLASSES_ROOT\CLSID\$CLSID\DefaultIcon","","%SystemRoot%\System32\Shell32.dll,$driveicon","REG_SZ")
		$=writevalue("HKEY_CLASSES_ROOT\CLSID\$CLSID\InProcServer32","","shell32.dll","REG_SZ")
		$=writevalue("HKEY_CLASSES_ROOT\CLSID\$CLSID\InProcServer32","ThreadingModel","Apartment","REG_SZ")
		$=writevalue("HKEY_CLASSES_ROOT\CLSID\$CLSID\Shell\Connect\Command","",$Command,"REG_SZ")
		$=writevalue("HKEY_CLASSES_ROOT\CLSID\$CLSID\ShellFolder","Attributes","0","REG_DWORD")
		$=addkey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\$CLSID")
	else 
		$=deltree("HKEY_CLASSES_ROOT\CLSID\$CLSID")
		$=deltree("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\$CLSID")
		endif
	$DriveLetterCHAR=$DriveLetterCHAR+1
	LOOP
DEL"d:\temp\NetUSe_*.dat"
_________________________
How to ask questions the smart way <-----------> Before you ask