Solved How do I REMOVE a Network Drive [and the horse it rode in on]

const HKEY_CURRENT_USER = &H80000001 strComputer = "."   Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_  strComputer & "\root\default:StdRegProv")   strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2" oReg.EnumKey HKEY_CURRENT_USER, strKeyPath, arrSubKeys   For Each subkey In arrSubKeys     If CBool(Instr(subkey,"##")) Then         oReg.DeleteKey HKEY_CURRENT_USER, strKeyPath&"\"&subkey     End If Next

The following VBScript will enumerate all network drives, ping the  server extracted from each drive path, and removes the network drive if  server doesn't reply. Of course this script can only be used if Ping is  something that you can rely on.
 Set objNetwork = CreateObject("WScript.Network")  Set objDrives = objNetwork.EnumNetworkDrives  For i = 0 to objDrives.Count - 1 Step 2     DriveLetter = objDrives.Item(i)     DrivePath = objDrives.Item(i+1)     If Len(DriveLetter) > 0 Then         DriveServer = getServerFromPath(DrivePath)         If Not Ping(DriveServer) Then             objNetwork.RemoveNetworkDrive DriveLetter, True, True         End If     End If Next  Function getServerFromPath(txt) ' Function to extract server name from share path     strPattern = "[^\\][A-Za-z0-9.]+"     Set regEx = New RegExp     regEx.Pattern = strPattern     Set Matches = regEx.Execute(txt)     For Each Match in Matches         getServerFromPath = Match.Value     Next End Function  Function ping (host) ' Function that checks whether or not the specified computer replies to Ping   Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}")._     ExecQuery("select * from Win32_PingStatus where address = '"_         & host & "'")   For Each objStatus in objPing     If IsNull(objStatus.StatusCode) or objStatus.StatusCode<>0 Then         ping = FALSE     Else         ping = TRUE     End If   Next End Function

HKEY_CURRENT_USER\Software\Microsoft\windows\CurrentVersion\Explorer\Mountpoint key