Çözüldü - .VBS Dosyası ile Ağa girmek

Programlama dilleri konusunda bilgi paylaşım alanıdır.
Cevapla
mozdem
Bit
Bit
Mesajlar: 1
Kayıt: 10 Kas 2018, 23:08

Çözüldü - .VBS Dosyası ile Ağa girmek

Mesaj gönderen mozdem » 10 Kas 2018, 23:24

Merhaba,
Aşağıdaki .vbs dosyasındaki kodlar ile ağ'ıma girebiliyorum. Ancak ağ'a ulaşılamadığı dırumda Hata Mesaj kutusu geliyor
ağa ulaşılamadığı zaman hata mesajı gelmesin.

Kod: Tümünü seç

Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run("\\192.168.1.1\Mozdem")
______________________________
Windows Script Host

Kod : C:\User.............
Satır:6
Hata Ağ yolu bulunamadı
Kod: 80070035
Kaynak : (null)
__________________________________

Eğer ("\\192.168.1.1\Mozdem") ulaşılıyor ise
"\\192.168.1.1\Mozdem" açılsın
ulaşılamıyor ise
D:Mozdem\
klasörü açılsın

yardımlarınızı bekliyorum
teşekkür ederim



Kullanıcı avatarı
velociraptor
Yottabyte3
Yottabyte3
Mesajlar: 28626
Kayıt: 14 Mar 2006, 02:33
cinsiyet: Erkek

Re: .VBS Dosyası ile Ağa girmek

Mesaj gönderen velociraptor » 13 Kas 2018, 21:38

Herhangi bir ağım olmadığı için deneme imkanım yok sadece vasayımsal olarak kodları veriyorum denersin

yöntem 1 :
--------------

Kod: Tümünü seç

strServer = "\\192.168.1.1\Mozdem"

Set oWMI = GetObject("winmgmts:\\.\root\cimv2")
Set oPing = oWMI.Get("Win32_PingStatus.Address='"& strServer & "'")

If oPing.StatusCode = 0 Then 
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run("\\192.168.1.1\Mozdem")
Else
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run("D:Mozdem\")
End If
yöntem 2 :
--------------

Kod: Tümünü seç

Dim target
Dim result

target= "\\192.168.1.1\Mozdem"
Set shell = WScript.CreateObject("WScript.Shell")
Set shellexec = shell.Exec("ping " & target) 
result = LCase(shellexec.StdOut.ReadAll)

If InStr(result , "reply from") Then
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run("\\192.168.1.1\Mozdem")  
Else
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run("D:Mozdem\")
End If
Yöntem 3 :
--------------

Kod: Tümünü seç

Dim target
Dim result

target= "\\192.168.1.1\Mozdem"
Set shell = WScript.CreateObject("WScript.Shell")
Set shellexec = shell.Exec("ping -n 1 " & target)
result = LCase(shellexec.StdOut.ReadAll)

If InStr(result , "reply from") Then
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run("\\192.168.1.1\Mozdem")
Else
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run("D:Mozdem\")
End If
Knowledge determines destiny, And ye shall know the Truth and the Truth shall make you free

Cevapla