Imports System.Windows.Forms
Imports System.Data.SqlClient
Imports System.Data
Public Class MainClass
Public Shared Function IsSQLServerOnline(ByVal ServerAddress As String) As Boolean
Try
Dim objIPHost As New System.Net.IPHostEntry()
objIPHost = System.Net.Dns.Resolve(ServerAddress)
Dim objAddress As System.Net.IPAddress
objAddress = objIPHost.AddressList(0)
Dim objTCP As System.Net.Sockets.TcpClient = New System.Net.Sockets.TcpClient()
objTCP.Connect(objAddress, 1433)
objTCP.Close()
objTCP = Nothing
objAddress = Nothing
objIPHost = Nothing
Return True
Catch ex As Exception
Return False
End Try
End Function
Public Shared Sub Main()
If IsSQLServerOnline("127.0.0.1") Then
System.Console.WriteLine("Can connect to server!")
Else
System.Console.WriteLine("Server not available!")
End If
End Sub
End Class
|
