ASP til .NET - Ping med C# og VB.NET
Taget udgangspunkt i spørgsmål fra http://www.eksperten.dk/spm/838433
Noget som jeg selv har siddet og bikset med for en del år tilbage er hvordan man henter oplysninger omkring "state", så man kan få at vide om en maskine er oppe eller nede. Jeg snakker her om netværkets allerførste funktion - ping!
start -> kør -> cmd
Sådan gør du i windows, men der findes desværre ikke en tilsvarende metode i ASP.
I .NET derimod findes der et helt namespace spækket med lækre funktioner til netop at lave disse netværks forspørgelser. Ja, der findes skam også en ping metode, og den ligger under namespacet System.Net.NetworkInformation.
Så hvis vi gerne vil pinge en maskine kan vi lave en metode overpå der f.eks ser således ud:
1: using System;
2: using System.Net.NetworkInformation;
3:
4: namespace PingMachine
5: {
6: class Program
7: {
8: static void Main( string[] args )
9: {
10: Console.WriteLine( PingAddress( "192.168.1.2" ) );
11: Console.ReadLine();
12: }
13:
14: private static bool PingAddress( string address )
15: {
16: using( Ping ping = new Ping() ) {
17: PingReply reply = ping.Send( address );
18:
19: if( reply.Status == IPStatus.Success ) {
20: return true;
21: } else {
22: return false;
23: }
24: }
25: }
26: }
27: }
Og i VB.NET kan du gøre det sådan her (har ikke tester VB udgaven, sorry)
1: Imports System
2: Imports System.Net.NetworkInformation
3:
4: Namespace PingMachine
5: Friend Class Program
6: Shared Sub Main(ByVal args() As String)
7: Console.WriteLine(PingAddress("192.168.1.2"))
8: Console.ReadLine()
9: End Sub
10:
11: Private Shared Function PingAddress(ByVal address As String) As Boolean
12: Using ping As New Ping()
13: Dim reply As PingReply = ping.Send(address)
14:
15: If reply.Status = IPStatus.Success Then
16: Return True
17: Else
18: Return False
19: End If
20: End Using
21: End Function
22: End Class
23: End Namespace
Det er da nemt :0)
