[Webinar] Streamline your web hosting managementRegister Today

x
?
Solved

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

Posted on 2011-03-09
4
Medium Priority
?
343 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 75

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 75

Accepted Solution

by:
käµfm³d   👽 earned 2000 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 75

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

Managing Security & Risk at the Speed of Business

Gartner Research VP, Neil McDonald & AlgoSec CTO, Prof. Avishai Wool, discuss the business-driven approach to automated security policy management, its benefits and how to align security policy management with business processes to address today's security challenges.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

What You Need to Know when Searching for a Webhost Provider
Media Temple is proud to announce our partnership with the Society of Digital Agencies (SoDA) as their exclusive hosting partner.
How to fix display issue, screen flickering issue when I plug in power cord to the machine. Before I start explaining the solution lets check out once the issue how it looks like after I connect the power cord. most of you also have faced this…
Hi, this video explains a free download that you can incorporate into your Access databases, or use stand-alone for contact management. Contacts -- Names, Addresses, Phone Numbers, eMail Addresses, Websites, Lists, Projects, Notes, Attachments…
Suggested Courses
Course of the Month8 days, 15 hours left to enroll

590 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