VBscript to remove drives EXCEPT HOME (H:) DIR???

[bran2235]

OK, before everyone tells me to look at the FAQs... I have!

I have ascript that deletes all mapped network drives, but I want to preserve their H: drive (user Home Dir).

Here's the basic remove all:

===============
On error resume next

Set WshNetwork = WScript.CreateObject("WScript.Network")
Set oDrives = WshNetwork.EnumNetworkDrives
Set oPrinters = WshNetwork.EnumPrinterConnections

For i = 0 to colDrives.Count-1 Step 2
WshNetwork.RemoveNetworkDrive oDrives.Item(i),true,true
Next

For i = 0 to oPrinters.Count - 1 Step 2
WshNetwork.RemovePrinterConnection oPrinters.Item(i+1)

Next

==========================

How do I keep users' H: drive and remove all the others?


Thanks!!
Brandon

 

[HarleyQuinn]

Something like:

For i = 0 to oDrives.Count-1 Step 2
If oDrives.Item(i) <> "H:" then WshNetwork.RemoveNetworkDrive oDrives.Item(i),true,true
Next

Hope this helps

HarleyQuinn
---------------------------------
Carter, hand me my thinking grenades!

You can hang outside in the sun all day tossing a ball around, or you can sit at your computer and do something that matters. - Eric Cartman

Get the most out of Tek-Tips, read FAQ222-2244: How to get the best answers before posting.

http://lessthandot.com

 

[bran2235]

OK,
I tried this:
On error resume next

Set WshNetwork = WScript.CreateObject("WScript.Network")
Set oDrives = WshNetwork.EnumNetworkDrives
Set oPrinters = WshNetwork.EnumPrinterConnections

For i = 0 to oDrives.Count-1 Step 2
If oDrives.Item(i) <> "H:" then WshNetwork.RemoveNetworkDrive oDrives.Item(i),true,true
Next


For i = 0 to oPrinters.Count - 1 Step 2
WshNetwork.RemovePrinterConnection oPrinters.Item(i+1)

Next
=========================

AND it still deletes everything.
I want to keep "H" and remove all others.

Thank yoU!!

 

[PHV]

What about this instead ?

For i = oDrives.Count-2 To 0 Step -2
  If oDrives.Item(i) <> "H:" Then
    WshNetwork.RemoveNetworkDrive oDrives.Item(i),True,True
  End If
Next

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[bran2235]

You Da Man, PHV!!
Worked great!!

Care to explain that to me??


THANK YOU!!
Brandon