Map drive script

Что-то у меня не работает политика map drive  для winxp, поэтому использую этот скрипт (решение с serfault.com):

' Author: Chris Stone
' Date: 29 MAY 2009  Version: 1.3
' Purpose: Map network drives

On Error Resume Next
Set objNet = CreateObject("WScript.Network")

Public Sub CheckAndMapNetDrive(Letter, Path, Persist)
    'Check if drive letter is already used
    Set colNetDrives = objNet.EnumNetworkDrives
    For i = 0 To colNetDrives.Count - 1 Step 2
        If colNetDrives.Item(i) = Letter Then
            'Drive Letter Exists, Test if it's the same Path
            If colNetDrives.Item(i+1) = Path Then
                'It's the same, no new mapping necessary.
                Exit Sub
            Else
                'It's different, remove old.
                objNet.RemoveNetworkDrive colNetDrives.Item(i)
            End If
        End If
    Next
    'Drive does not exist now, never did or removed.
    objNet.MapNetworkDrive Letter, Path, Persist
End Sub 

CheckAndMapNetDrive "X:", "\\server\share1", True
CheckAndMapNetDrive "Y:", "\\server\share2", True

А это решение с мелкомягкой викии ))

А вот тут вообще всё по полочкам разложено ))