code:

---

$destfile="c:\shareddrives-@year-@monthno.txt"

shell '%comspec% /c net use | find /i ":" > c:\@userid-@day-drives.txt'
$q = open(5,"c:\@userid-@day-drives.txt",2)
if $q=0
	$line = readline(5)
	do
		$drive = substr("$line",14,2)
		$share = substr("$line",24,26)
		$ret=WRITEPROFILESTRING("$destfile", "@userid", "@userid-$drive", "$share")
		$line = readline(5)
		until @error <> 0 or $line=""
	endif
$q = close(5)

---