Uma vez conectado, como uma unidade de rede, um caminho UNC digitado ou pela navegação do navegador, o Windows lembra as credenciais dessa conexão, desde que você permaneça conectado. Isso é particularmente irritante se o servidor aceitar logons anônimos para acesso, mas credenciais anônimas para outras operações.
Para descartar a conexão sem a necessidade de fazer logoff ou reinicializar, escrevi um script VBS. Cole o seguinte código no bloco de notas e salve-o como um arquivo .VBS. Execute este código clicando duas vezes no arquivo. As credenciais antigas serão liberadas, dando a você a oportunidade de se conectar com outras credenciais.
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set oDrives = WshNetwork.EnumNetworkDrives
Set oPrinters = WshNetwork.EnumPrinterConnections
If (oDrives.Count = 0) And (oPrinters.Count = 0) Then MsgBox "There are no mapped drives or printers", vbOkOnly, "Network mappings"
For i = oDrives.Count - 2 To 0 Step -2
If oDrives.Item(i) = "" Then
msg = "Network Drive" & vbCr & "(No drive letter)" & vbCr & oDrives.Item(i+1)
Else
msg = "Network Drive" & vbCr & oDrives.Item(i) & vbCr & oDrives.Item(i+1)
End If
Answer = MsgBox(msg & vbCr & vbCr & "Disconnect?", vbYesNoCancel + vbQuestion, "Network drive mappings")
If Answer = vbCancel Then WScript.Quit
If Answer = vbYes Then WshNetwork.RemoveNetworkDrive oDrives.Item(i+1)
Next
For i = oPrinters.Count - 2 To 0 Step -2
msg = "Printer Connection" & vbCr & oPrinters.Item(i) & vbCr & oPrinters.Item(i+1)
Answer = MsgBox(msg & vbCr & vbCr & "Disconnect?", vbYesNoCancel + vbQuestion, "Network printer mappings")
If Answer = vbCancel Then WScript.Quit
If Answer = vbYes Then WshNetwork.RemovePrinterConnection oPrinters.Item(i+1)
Next
Espero que isso ajude você!
Elmer.