الى محترفي ال VBScript

السلام عليكم....

تحية طيبة وبعد,,,,

اخواني انا بحثت عن سكربت يبحث في الويندوز عن الـ Map Network drive ويحذفه (disconnect) ثم ينشيء Network Drive آخر...... اليكم الكود:

اقتباس

dim WshNetwork

Set WshNetwork = WScript.CreateObject("WScript.Network")

Set MappedDrives = WshNetwork.EnumNetworkDrives

For i = 0 To MappedDrives.Count - 1

    If  ucase(MappedDrives.Item(i)) = "Z:" Then

WshNetwork.RemoveNetworkDrive MappedDrives.Item(i),True

    End If

Next

WshNetwork.MapNetworkDrive "Z:", "\\servername\share2"

المشكلة هي : اذا كان الـ Network drive (هنا الـ Z ) مربوط مع مجلد share اسمه share1 ثم نفذت هذا السكربت بحيث انه يعمل disconnect من الـ share1 ثم connect للـ share2 بنفس الـ Network drive -Z يعطيني error ....

الـ error مرفق في صورة..

من يملك الاجابة ؟؟؟

وشكراً