Break On

$rc=setoption('explicit','on')
$rc=setoption('novarsinstrings','on')
$rc=setoption('wrapateol','on')

Dim $WshNetwork,$oDrives,$i

$WshNetwork = CreateObject("WScript.Network")
$oDrives = $WshNetwork.EnumNetworkDrives

"Network drive mappings:" ?
For $i = 0 to $oDrives.Count - 1 Step 2
   "Drive " + $oDrives.Item($i) + " = " + $oDrives.Item($i+1) ?
Next