slet gammle drev i vbscript

HEy jeg vil gerne vide vide hvordan jeg slætter de gamle drev i et vbscript?
eller bare retter netværkstien.

jeg kører det her:

On error resume next

Set wshNetwork = CreateObject("WScript.Network")

wshNetwork.MapNetworkDrive "X:", "\\pdcserver\Udveksling"
wshNetwork.MapNetworkDrive "Q:", "\\pdcserver\Orfeus-install"

Set wshNetwork = Nothing

Set oShell = CreateObject("Shell.Application")
Set oShFolder = oShell.Namespace(17)

For Each oShFolderItem In oShFolder.Items
  Select Case oShFolderItem.Path
    Case "X:\"
      oShFolderItem.Name = "Udvekslings Drev"
    Case "Q:\"
      oShFolderItem.Name = "Orfeus"
  End Select
Next

Set oShell = Nothing
Set oShFolder = Nothing
Set oShFolderItem = Nothing