Hi All,
I have a scenario, I'm running a power point slideshow on group of machines as soon as user login to the machine. The file is placed on a shared drive and can open only when the intranet network connection is established. The target environment doesn't have
internet access.
Expectation is: As soon as user login, slideshow must begin without further wait.
Challenge is: I need to run the slideshow only after the intranet connection is established. ( In target environment, it takes 3-5 min to connect to the network)
I have tried the below code. It works fine on machine which is connected to internet with WiFi. But doesn't work on LAN with INTRANET.
Any insights are really helpful below VB Script code.
Option Explicit
Dim MyLoop,strComputer,objPing,objStatus
MyLoop = True
While MyLoop = True
strComputer = "google.com" '##### Here I want to use any intranet site link as there is no internet connection in the target environment.
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}!\\").ExecQuery _
("select * from Win32_PingStatus where address = '" & strComputer & "'")
For Each objStatus in objPing
If objStatus.Statuscode = 0 Then
MyLoop = False
Call MyProgram()
wscript.quit
End If
Next
Wscript.Sleep(5000)
Wend
Sub MyProgram()
'###########################
'I want to write some code here after the network connection is established
' Open the powerpoint slide show file.
'###########################
End Sub
