Untitled

Option Explicit

On Error Resume Next

Dim oNetwork, wshShell



Set oNetwork = CreateObject("WScript.Network")

Set wshShell = CreateObject("Wscript.Shell")






oNetwork.RemoveNetworkDrive "t:"

oNetwork.RemoveNetworkDrive "p:"

oNetwork.MapNetworkDrive "t:", "\\komodo\accounts"

oNetwork.MapNetworkDrive "p:", "\\komodo\public"