• Çözüldü

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

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

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

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

Re: .VBS Dosyası ile Ağa girmek