سعی کنید مشکل دیر لود شدن کارت شبکتون رو حل کنید
اما تا اون موقع برای اینکه کارت زمین نمونه از این اسکریپت استفاده کن و بذارش تو startup کلاینتت .
این اسکریپت به صورت بازگشتی عمل میکنه
یعنی مرتب ارتباطت رو با یک Ip خاص چک میکنه ، هر وقت اون ip در دسترس اومد یک برنامه رو اجرا میکنه .
آدرس مورد نظر و مسیر برنامه ای رو که باید اجرا بشه رو مشخص کردم برات .
خودم هم تست کردم اوکی هست
اگه مشکلی داشت بهم بگو درستش کنم
کد:
call check
Function Reachable(strComputer)
' On Error Resume Next
Dim wmiQuery, objWMIService, objPing, objStatus
wmiQuery = "Select * From Win32_PingStatus Where Address = '" & strComputer &
"'"
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set objPing = objWMIService.ExecQuery(wmiQuery)
For Each objStatus in objPing
If IsNull(objStatus.StatusCode) Or objStatus.Statuscode<>0 Then
Reachable = False 'if computer is unreacable, return false
Else
Reachable = True 'if computer is reachable, return true
End If
Next
End Function
Sub Run(ByVal sFile)
Dim shell
Set shell = CreateObject("WScript.Shell")
shell.Run Chr(34) & sFile & Chr(34), 1, false
Set shell = Nothing
End Sub
sub check
If Reachable("8.8.8.8") Then
Run "C:\Program Files (x86)\Cisco Packet Tracer 5.3\bin\PacketTracer5.exe"
Else
check
End If
end sub