code:

---

for each $drive in split(DriveEnum(3))
	$share=DriveProp($Drive)
	$sharepath=$share[2]
	$name=split($sharepath,"\")[3]
	$server=split($sharepath,"\")[2]
	$=WshShortCut("$desktop\$name on $server.lnk","$sharepath")
	next

---