Forum

Share Folder Map Sc...
 
Bildirimler
Hepsini Temizle

Share Folder Map Script

8 Yazılar
4 Üyeler
0 Reactions
507 Görüntüleme
(@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

(@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

(@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

(@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

(@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

(@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

(@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

(@Anonim)
Gönderiler: 0
 

Geri dönüş için teşekkürler...

 
Gönderildi : 10/11/2008 21:36

Paylaş: