Solved

Testing to see if a server/computer is up and running is a vb.net appication

Posted on 2011-03-09
4
332 Views
Last Modified: 2012-05-11
Sql 2005
Vb .net 2008

I am building an application to put any warning or errors in the event file into a table. I have one table with all the server and users machine name.  I also am putting what areas in the Event log I want. ( application – security – system) I have a table where I will add any non informational errors/warning to.

My questions are
 How can I tell a server/computer is up and running? How can I tell I successfully read a record in the say application area in my event log? I mean right now I can read thought the event logs and get the transactions and log them but I have no status checking to say oh yes my server ‘abc’ is up and running.
I read though and get a table of all machines up and responding now.(old way see code )

‘code
    Public Function GetNetworkComputers() As ArrayList
        Dim networkComputers As New ArrayList()
        Const MAX_PREFERRED_LENGTH As Integer = -1
        Dim SV_TYPE_WORKSTATION As Integer = 1
        Dim SV_TYPE_SERVER As Integer = 2
        Dim buffer As IntPtr = IntPtr.Zero
        Dim tmpBuffer As IntPtr = IntPtr.Zero

        Dim entriesRead As Integer = 0
        Dim totalEntries As Integer = 0
        Dim resHandle As Integer = 0
        Dim sizeofINFO As Integer = Marshal.SizeOf(GetType(_SERVER_INFO_100))

        Try
            Dim ret As Integer = NetServerEnum(Nothing, 100, buffer, MAX_PREFERRED_LENGTH, entriesRead, totalEntries, _
                                               SV_TYPE_WORKSTATION Or SV_TYPE_SERVER, Nothing, resHandle)

            If ret = 0 Then
                For i As Integer = 0 To totalEntries
                    tmpBuffer = New IntPtr(CType(buffer, Integer) + (i * sizeofINFO))
                    Dim svrInfo As _SERVER_INFO_100 = CType(Marshal.PtrToStructure(tmpBuffer, _
                                                            GetType(_SERVER_INFO_100)), _SERVER_INFO_100)
‘code end

 
-      But even now once they are in my array it doesn’t mean by the time I go to read then they are they still up and running? I guess also I  am also asking for the way I am doing it now can I do a check and see if a machine is still up and responding Which probably is the same answer  I need for above.
Thanks
0
Comment
Question by:john M
  • 3
4 Comments
 
LVL 74

Expert Comment

by:käµfm³d 👽
ID: 35086981
0
 
LVL 3

Author Comment

by:john M
ID: 35087845
Kaufmed
can you give me some code examples?
I am new and yes i see what your talking about- but how do I apply it?

Thanks

John
0
 
LVL 74

Accepted Solution

by:
käµfm³d   👽 earned 500 total points
ID: 35088673
It's quite simple actually:
Imports System.Net.NetworkInformation

...

Dim pinger As New Ping()
Dim reply As PingReply

reply = pinger.Send("www.example.com")

If reply.Status = IPStatus.Success Then
    Console.WriteLine("Server alive!")
    Console.WriteLine("TTL: {0}", reply.Options.Ttl)
    Console.WriteLine("Time: {0}ms", reply.RoundtripTime)
End If

Open in new window

0
 
LVL 74

Expert Comment

by:käµfm³d 👽
ID: 35088704
The above WILL NOT tell you if a particular service (port) is available--it will only tell you if the server is responding to pings (there is the potential that you server, or router, could be blocking ICMP messages). If you need to know if a particular port is available, then you will need to look into the Sockets class.
0

Featured Post

Zoho SalesIQ

Hassle-free live chat software re-imagined for business growth. 2 users, always free.

Join & Write a Comment

Introduction When many people think of the WebBrowser (http://msdn.microsoft.com/en-us/library/2te2y1x6%28v=VS.85%29.aspx) control, they immediately think of a control which allows the viewing and navigation of web pages. While this is true, it's a…
Calculating holidays and working days is a function that is often needed yet it is not one found within the Framework. This article presents one approach to building a working-day calculator for use in .NET.
Excel styles will make formatting consistent and let you apply and change formatting faster. In this tutorial, you'll learn how to use Excel's built-in styles, how to modify styles, and how to create your own. You'll also learn how to use your custo…
Polish reports in Access so they look terrific. Take yourself to another level. Equations, Back Color, Alternate Back Color. Write easy VBA Code. Tighten space to use less pages. Launch report from a menu, considering criteria only when it is filled…

706 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

19 Experts available now in Live!

Get 1:1 Help Now