[Webinar] Streamline your web hosting managementRegister Today

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 364
  • Last Modified:

Stop Script Box Display During Ping Test

I am using a standard piece of code for a ping test but i would like to do it in the background without displaying the command box - how do i modify the script?

Function SystemOnline(ByVal ComputerName As String)

Dim oShell, oExec As Variant
Dim strText, strCmd As String
 
strText = ""
strCmd = "ping -n 3 -w 1000 " & ComputerName
Set oShell = CreateObject("WScript.Shell")
Set oExec = oShell.Exec(strCmd)
 
Do While Not oExec.StdOut.AtEndOfStream
    strText = oExec.StdOut.ReadLine()
    If InStr(strText, "Reply") > 0 Then
        SystemOnline = True
        Exit Do
    End If
Loop

End Function

Thanks
0
SweetingA
Asked:
SweetingA
1 Solution
 
Jim Dettman (Microsoft MVP/ EE MVE)PresidentCommented:
I know if you call Shell(), you can add the optional vbHide to hide the window.  Not sure with the Windows scripting shell.

 But there's plenty of ping code floating around like the one here:

http://bytes.com/topic/access/answers/909569-how-ping-smtp-server-vba-ms-access

 Cut and Paste into a new module and you should be set.

Jim.
0

Featured Post

[Webinar] Kill tickets & tabs using PowerShell

Are you tired of cycling through the same browser tabs everyday to close the same repetitive tickets? In this webinar JumpCloud will show how you can leverage RESTful APIs to build your own PowerShell modules to kill tickets & tabs using the PowerShell command Invoke-RestMethod.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now