Solved

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

Posted on 2011-03-09
4
333 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 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 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

Netscaler Common Configuration How To guides

If you use NetScaler you will want to see these guides. The NetScaler How To Guides show administrators how to get NetScaler up and configured by providing instructions for common scenarios and some not so common ones.

Question has a verified solution.

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

1.0 - Introduction Converting Visual Basic 6.0 (VB6) to Visual Basic 2008+ (VB.NET). If ever there was a subject full of murkiness and bad decisions, it is this one!   The first problem seems to be that people considering this task of converting…
Meet the world's only “Transparent Cloud™” from Superb Internet Corporation. Now, you can experience firsthand a cloud platform that consistently outperforms Amazon Web Services (AWS), IBM’s Softlayer, and Microsoft’s Azure when it comes to CPU and …
This is a video describing the growing solar energy use in Utah. This is a topic that greatly interests me and so I decided to produce a video about it.
With Secure Portal Encryption, the recipient is sent a link to their email address directing them to the email laundry delivery page. From there, the recipient will be required to enter a user name and password to enter the page. Once the recipient …

932 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

12 Experts available now in Live!

Get 1:1 Help Now