Sayfa 4/4 İlkİlk ... 234
33 sonuçtan 31 ile 33 arası

Konu: Terminallerde görev çubuğunun gösterilmemesi

  1. #31

    Standart Ynt: Terminallerde görev çubuğunun gösterilmemesi

    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ı.
     

  2. #32

    Standart Ynt: Terminallerde görev çubuğunun gösterilmemesi

    kısayolları kopyaladım. klasör kopyalayabilirmiyiz. birde term1 içinde bütün kullanıcılar aynı programı kullanıyor.
    11a grubu a, 11b grubu b programını çlıştırsıın istiyoruz
     

  3. #33

    Standart Ynt: Terminallerde görev çubuğunun gösterilmemesi

    scripti çalıştıramadım. bilgisayar ayarları\windows ayarları\login kısmına yazdık. çalışmadı. daha önce kullanılan birden fazla policy tanımlı. bunları sileyimmi
     

Yetkileriniz

  • Konu Açma Yetkiniz Yok
  • Cevap Yazma Yetkiniz Yok
  • Eklenti Yükleme Yetkiniz Yok
  • Mesajınızı Değiştirme Yetkiniz Yok
  •  
Hakkımızda
MSHOWTO, herhangi bir firma ya da kuruluş ile bağı olmayan bağımsız teknik bir topluluktur.
Sosyal Medya Linklerimiz