'Daha önceden bağlanmış olan sürücüleri kopart

On Error Resume Next
Set NetworkBagla = WScript.CreateObject("WScript.Network&quot
Set BagliSuruculer = NetworkBagla.EnumNetworkDrives
For i = 0 To BagliSuruculer.Count - 1 Step 2
If BagliSuruculer.Item(i) = "" Then
Else
If BagliSuruculer.count < 0 Then
Else
NetworkBagla.RemoveNetworkDrive BagliSuruculer.Item(i)
End If
End If
Next



'Sürücüleri bağla

NetworkBagla.MapNetworkDrive "Z:", "\\IPadresi\paylaşımAdı"
'Değişkenleri tanımlayalım ben burada hepsine 1 dedim çünkü 1 tane sürücü bağlayacağım.
Dim y
Dim KisaYolIsimleri (1)
Dim Aciklamalar (1)
Dim Iconlar (1)
Dim kisayolTus (1)
Set KisayolIcinBaglan = CreateObject("WScript.Shell&quot
YolTanimla = KisayolIcinBaglan.SpecialFolders("Desktop&quo t


' Kisayol isimlerini verelim
KisaYolIsimleri(0) = "PAYLAŞIM"


' Mouse ile üzerine gelindiginde cikacak olan aciklamayi verelim
Aciklamalar(0) = "Genel paylaşım dosyanız"


'iconlari atayalim, WINDOWS un altındaki dll lerden ve exe den aldım
'buradaki numara dll in içindeki yada exe nin içindeki kaçıncı icon olduğunu gösterir
Iconlar(0) = "C:\WINDOWS\system32\cscui.dll, 2"


'Kisayol Tuslari
kisayolTus(0) = "Ctrl+Alt+p"


'şimdi işlemi başlatabiliriz
Set BagliSuruculer1 = NetworkBagla.EnumNetworkDrives
If BagliSuruculer1.count < 0 Then
Else
y = 0
For i = 0 To BagliSuruculer1.Count - 1 Step 2
If BagliSuruculer1.Item(i) = "" Then
Else
Set LinkOlustur = KisayolIcinBaglan.CreateShortcut(YolTanimla & "\" & KisaYolIsimleri(y)&".lnk&quot
LinkOlustur.TargetPath = BagliSuruculer1.Item(i)
LinkOlustur.WindowStyle = 8
LinkOlustur.Hotkey = kisayolTus(y)
LinkOlustur.IconLocation = Iconlar(y)
LinkOlustur.Description = Aciklamalar(y)
LinkOlustur.Save
y = y + 1
End If
Next
End If
[hr]
Scripti sizin sisteminize göre düzenledim ama yinede IP ve klasör adı girmeniz gereken yerler var o yüzden tüm scripti baştan sona birkez okuyup düzeltilmesi gerekenleri düzeltin.

Bu script ile paylaşımlı duruma getirilmiş bir klasörü ağdan bulup "Z" sürücüsü olarak mapliyebilirsiniz ve bu maplanmiş klasörün kısayolunu da masaüstüne atarsınız.