code:

---

Break on


deldrive("h")

function DelDrive($letter)
	dim $d[6], $dp[6], $loop, $desktop

	$desktop=readvalue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","Desktop")
	$desktop=expandenvironmentvars($desktop)
	$d=DriveProp("$letter")
	if $d[1]="network"
		use "$letter:" /d
		$dp=split($d[2],"\")
		$icon=dir("$desktop\shortcut to*.lnk")
		while not @error
			if instr($icon,$dp[2]) and instr($icon,$dp[3])
				? "got it" $icon
				del "$desktop\$icon"
				endif
			$icon=dir()
			loop
		endif

	endfunction

function DriveProp($Drive)
	dim $fso, $Drives, $list, $param, $property
	$DriveType="unknown","removable","fixed","network","cd-rom","ram"
	$DrivePara="driveletter","drivetype","sharename","isready","filesystem","volumename","serialnumber"
	dim $temparray[6]
	$fso = createobject("scripting.filesystemobject")
	if $fso
		$D=$fso.getdrive("$Drive")
		for $param = 0 to ubound($DrivePara)
			$property=$DrivePara[$param]
			$ret=execute('$$temparray[$param]=$$d.$property')
			if $param=1	$temparray[$param]=$DriveType[$temparray[$param]]	endif
			next
		$DriveProp=$temparray
		$fso=""
		endif
	exit @error
	endfunction

---