code:

---

$Index = 0
:Loop1
$drives = EnumKey("HKEY_CURRENT_USER\Network", $Index)
If @ERROR = 0
 	ReDirectOutput ("c:\drives.log", 0) ; 0 to append to file. 1 to overwrite
 	? "Drive found: $drives"
	$Index = $Index + 1
  	Goto Loop1
EndIf

---

code:

---

$Index = 0
:Loop1
$drives = EnumKey("\\workstationname\HKEY_CURRENT_USER\Network", $Index)
If @ERROR = 0
 	ReDirectOutput ("c:\drives.log", 0) ; 0 to append to file. 1 to overwrite
 	? "Drive found: $drives"
	$Index = $Index + 1
  	Goto Loop1
EndIf

---

quote:

---

All mapped drives are listed in: HKEY_CURRENT_USER\Network.

---

code:

---

$Drives = GetObject("winmgmts:").ExecQuery("select Name,DriveType from Win32_LogicalDisk")

If @error <> 0
   ? @error + " / " @serror
Else
   For Each $Drive in $Drives
       ? $Drive.Name
   Next
EndIf

---