Masaüstüne paylaşım klasörü oluşturan script-----------------------------------------------------------------------------------

'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:", "\\10.0.0.16\share"
'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
-----------------------------------------------------------------------------------------------------------------------------------------------------
Dosya kopyalamanızı sağlayan script %100 çalıştığına eminim.-------------------------------------------------------------------

option explicit

Dim objNetwork
Dim strUserName
Dim FSO
Dim WshShell

Set WshShell = WScript.CreateObject("WScript.Shell&quot
Set objNetwork = CreateObject("Wscript.Network&quot
Set FSO = CreateObject("Scripting.FileSystemObject&quot
strUserName = objNetwork.userName

ON ERROR RESUME NEXT
FSO.CopyFile "\\ip adresi\klasör adı\kopyalanacak dosya","C:\DOCUME~1\"+strUserName+& quot;\STARTM~1\"
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Not: birinci scriptte sadece ipleri ve dosya isimlerini değiştirmeniz yeterlidir birden fazla paylaşım klasörüde yaratibilmeniz için tüm kodu okursanız aradaki açıklama satırlarından bunu çözebilirsiniz.

ikinci script te ise tabikide ip adreslerini ve klasör isimlerini ayarlamanız gerekiyor ve yine bu scriptte de birden fazla dosyayı kopyalamak için en son satırdaki FSO.CopyFile satırını kopyalayıp altına yapıştırarak yenilerini oluşturabilirsiniz. Nedendir bilmiyorum ama şunuda açıklama ihtiyacı hissettim bu script ile klasör kopyalamazsınız, tek tek dosyaları kopyalayabilirsiniz. sizin istediğinizde buydu sanırsam. masaüstüne tüm kısayolları kopyalayabilirsiniz.

Yapmanız gereken şudur; önce masaüstüne paylaşım klasörü oluşturan script in daha sonrada dosya kopyalayan scriptin çalışmasını sağlamak, çalışma sıralamasında kısayol oluşturan script üstte olmalı.

Paylaşım klasörü ise server üzerinde paylaşıma açılmış herhangi bir klasör olmalı ve okuma yetkisi vermeniz yeterlidir. Scriptler önce bu paylaşım klasörünü map edip vede mapladiği klasörüde masaüstüne kısayol oalrak oluşturduktan sonra ikinci script vasıtasıyla bu maplenmiş klasörün içinden gerekli dosyaları masaüstüne kopyalıyor.

Şimdi şunu diyebilirsiniz ki masaüstüne zaten kısayol var çocuklar bunu içine girip oradan açsınlar diyebilirisiniz ama bu kopyalama scripti herzaman işinize yarar diye bunu da eklemek istedim. Ayrıca bu masaüstündeki kısayol klasörünü öğrencilere materyal dağıtmak için de kullanabilirsiniz. Mesela bir yazı hazırlamışsınızdır dersiniz ki çocuklar masaüstünden paylaşım klasörünü açıp içinden şu makalemi okuyun yazılı yapıcam bundan gibi çok kötüyüm hehe, artık sizin hayal gücünüze kalmış bundan sonrası.