deleting mapped drives in .vbs that are mapped with .bat

[timbo343]

Hi,

Im new here...


We have moved our scripts to .vbs as we were running .bat log ons, so now when the scripts run, we get this drive is already in use. The only way to get rid of this is to delete the local profile on the computer, but with over 1000 clients we dont want to do that so..... is there any way that we can put in the first part of the vbscript a script that will automatically delete these mapped drives that are stored on the local computer???

This is what is running now... and we get the error this drive is already in use

Const Pupils = "cn=pupils"

set wshNetwork = CreateObject("WScript.Network")

Set ADSysInfo = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)
strGroups = LCase(Join(CurrentUser.MemberOf))

If InStr(strGroups,pupils) Then
wshNetwork.MapNetworkDrive "p:","\\hades\upublic"
wshNetwork.MapNetworkDrive "s:","\\hades\business"
wshNetwork.MapNetworkDrive "v:","\\hades\uapps"

End If

ive aslo got this

These are supposed to delete the drives, but it doesnt work...

Sub DeleteDriveMapping(s"p:")
' This will remove the mapped drive sDriveLetter
CreateObject("WScript.Shell").Run "net.exe use " _ & sDriveLetter & " /delete", 0, True
WScript.Sleep 250
End Sub

or

Option Explicit
Dim objShell, objNetwork, DriveLetter1

DriveLetter1 = "P:"

Set objShell = CreateObject("WScript.Shell")
Set objNetwork = CreateObject("WScript.Network")

objnetwork.removenetworkdrive DriveLetter1

wscript.quit

Any ideas???

Cheers

Tim

[Ric_]

you need to enumerate all the network drives and then iterate through and delete them.

I don't know if this is correct but give it a bash...

Set objNetwork = WScript.CreateObject("WScript.Network")
Set colDrives = objNetwork.EnumNetworkDrives
For i = 0 to colDrives.Count-1 Step 2
   objNetwork.RemoveNetworkDrive colDrives.Item(i)
Next

Hope it works - more info at http://www.microsoft.com/technet/scr..._wsh_peht.mspx

[timbo343]

thanks for the reply....

Ive looked at the microsoft site and used this one

Set objNetwork = WScript.CreateObject("Wscript.Network")
objNetwork.RemoveNetworkDrive "G:"

now, it says it has disconnected the drive, but since the drive has been mapped on the local computer with the .bat logon using the command net use l: "....." it is still present and when i double click on the so called disconnected drive it connects again.

Does the scirpt in green above delete the local profile of the user and then creates it again, thats what im looking to do

Tim

[ChrisH]

If you want to delete local profiles then you need Delprof

[Ric_]

to delete the local profile simply add the following line to a startup batch file:

delprof /q /i

or in VBScript try...

Set objShell = Wscript.CreateObject("Wscript.Shell")
CMDLine = "delprof /q /i"
objShell.Run CMDLine

check out http://www.microsoft.com/technet/scr..._wsh_pkoy.mspx