code:

---

  $test = USE /List   
  While $test <> ""
   if Instr(Substr($test, 1, 2),"Z:") <> 1
     Loop
   Else
     $t = Substr($test, 1, 2)
     USE $t /delete
     Loop
   ENDIF

---

but it doesnt work
The only way to delete all mapped network drives except Z: is to make something like:

code:

---

  $shares = "E:", "F:", "G:", "H:", "I:", "J:", "K:", "L:", "M:", "N:", "O:", "P:", "Q:", "R:", "S:", "T:", "U:", "V:", "W:", "X:", "Y:"

  for Each $element In $shares
   USE "$element" /delete

   Next

---

code:

---

use "*" /Delete  

---

code:

---

For $i = 69 to 89
   Use chr($i) + ":" /Delete /Persistent
Next  

---

code:

---

for each $line in WshPipe("net use",1)
   if left($line, 2) = "OK"
      $drive = substr($line, 14, 2)
      $path  = substr($line, 24)
      $path  = left($path, instr($path, " ")-1)
      if $drive <> "Z:"
         ;use $drive $path /del /persistent
         ? "use $drive $path /del /persistent"
      endif
   endif
next

---