Forum

Bildirimler

Hepsini Temizle

Share Folder Map Script

Windows Client

Son Cevaplar gön: Anonim 16 yıl önce

8 Yazılar

4 Üyeler

0 Reactions

516 Görüntüleme

RSS

Ufuk TATLIDIL

(@ufuktatlidil)

Gönderiler: 5718

Illustrious Member

Konu başlatıcı

Merhaba ,

Set objNetwork = CreateObject("WScript.Network")
objNetwork.MapNetworkDrive "T:" , "\\10.1.0.125\ofis" böyle bir vbs hazırladım. Yanlız 2. bir map daha eklemem gerekiyor. örn. \\10.1.0.125\users\finans gibi.. Bunu nasıl eklersem çalışır?

Tşk.

Gönderildi : 10/11/2008 14:57

Murat AYDIN

(@murataydin)

Gönderiler: 1514

Noble Member

Merhaba;

objNetwork.MapNetworkDrive "T:" , \\10.1.0.125\ofis

objNetwork.MapNetworkDrive "X:" , \\10.1.0.125\finans Finans klasörünü paylasına actıgın için users yazmana gerek yok.

hazırladıgın scriptin sonun eklersen T nin hemen altına 2 dosyayıda mapler.

Örnek; Log on için.

On Error Resume Next
Set objNetwork=CreateObject("WScript.Network")
objNetwork.MapNetworkDrive "x:" , "\\192.168.1.10\data"
objNetwork.MapNetworkDrive "p:" , \\192.168.1.5\abc

Log off için;

On Error Resume Next
Set objNetwork=CreateObject("WScript.Network")
objNetwork.RemoveNetworkDrive "x:"
objNetwork.RemoveNetworkDrive "p:"

Gönderildi : 10/11/2008 15:26

Ufuk TATLIDIL

(@ufuktatlidil)

Gönderiler: 5718

Illustrious Member

Konu başlatıcı

objNetwork.MapNetworkDrive "X:" , "\\10.1.0.125\Users\Muhasebe\ilhan"

Bu dizinde map etmiyor.

objNetwork.MapNetworkDrive "X:" , "\\10.1.0.125\Users" bu dizinde ediyor. Neden acaba?

Gönderildi : 10/11/2008 16:42

Murat CAN

(@muratcan-2)

Gönderiler: 2192

Üye

\\10.1.0.125\Users\Muhasebe\ilhan bu dizin paylaşıma açık mı? Açık değilse açmanız gerekir.

Gönderildi : 10/11/2008 16:57

Ufuk TATLIDIL

(@ufuktatlidil)

Gönderiler: 5718

Illustrious Member

Konu başlatıcı

\\10.1.0.125\Users\Muhasebe\ilhan bu dizin paylaşıma açık mı? Açık değilse açmanız gerekir.

Açık paylaşıma \\fileserver\users\Muhasebe\İlhan yaptığımda erişebiliyorum.

Gönderildi : 10/11/2008 17:03

Ufuk TATLIDIL

(@ufuktatlidil)

Gönderiler: 5718

Illustrious Member

Konu başlatıcı

çalıştı hocam. bir değişiklik yapmadım. Teşekkürler.

Gönderildi : 10/11/2008 17:10

Murat CAN

(@muratcan-2)

Gönderiler: 2192

Üye

On Error Resume Next
Set objNetwork=CreateObject("WScript.Network")
objNetwork.MapNetworkDrive "x:" , "\\10.1.0.125\Users"
objNetwork.MapNetworkDrive "p:" , "\\10.1.0.125\Users\Muhasebe\ilhan"

Ben yukarıdaki kodu kendime göre düzenlediğimde erişiyorum. Kodunu bir kontrol eder misin?

Gönderildi : 10/11/2008 17:10