Moin,
ich habe in VB6 eine Klasse, die mir die erreichbaren SQL-Server-Instanzen im Netzwerk liefern soll (s.u.).
Nun habe ich leider zwei Server, auf denen mir nur eine 32bit-Instanz angezeigt wird und die gesuchte 64bit-Instanz des SQL Server 2008 R2 nicht.
Die gesuchte Instanz ist nicht auf "versteckt" gesetzt.
Hat hierzu jemand eine Idee, woran das liegen könnte?
VG
Reiner
hier der Code von clsSQLBrowse:
Option Explicit
' Klasse erstellt von Reiner Wolff
' erstellt am: 20.02.2014
'bekannte Einschränkung:
' findet ausschließlich benannte Instanzen
' Standardinstanzen werden nicht aufgelistet
'
' SQL-Browser-Dienst muss auf dem Zielrechner gestartet sein
' und Port 1434 für den Dienst muss in den Firewalls freigegeben sein
Private WithEvents objWinSock As MSWinsockLib.Winsock
Private RequestString As String
Private ServerName As String
Private ServerInstanz As String
Private tmpServerList As String
Private PauseAbbrechen As Boolean
Public RequestHost As String
'Zeit in Sekunden wie lange auf eine Antwort des Browser-Dienstes gewartet werden soll
'Standard = 1 Sekunde, muss > 0 sein, da ansonsten keine Antworten eintreffen würden
Public WaitingTime As Long
'Liste als Variant deklarieren, damit ein Array zurückgegeben werden kann
Public SQLServerList As Variant
Public Event SQLServerFound(ServerName As String, Instanzname As String, ByRef Cancel As Boolean)
Private Sub Class_Initialize()
' Winsock anlegen
Set objWinSock = frmWinSock.Winsock
'Standard auf Broadcast stellen
RequestHost = "255.255.255.255"
'Zeichenfolge für die Abfrage des BrowserDienstes setzen
RequestString = Chr$(&H2) & Chr$(&H0)
WaitingTime = 1
End Sub
'geändert am:
' 01.12.2014 - W&W - Fehlerabfangroutine eingebaut, damit bei nicht erreichbarem Host die Zeile mit 'SendData' nicht direkt einen Fehler auslöst (zB beim Netzwerk Außerhaus)
Friend Sub Connect()
On Error GoTo Fehler
' Winsock mit Daten füttern
With objWinSock
.RemoteHost = RequestHost
.RemotePort = 1434
.Protocol = sckUDPProtocol
.SendData RequestString
End With
PauseAbbrechen = False
Pause WaitingTime
Rückgabe:
SQLServerList = Split(tmpServerList, ";")
If (objWinSock.State <> StateConstants.sckClosed) Then
' Nein, unbedingt schließen
objWinSock.Close
' nachfolgender Befehl ist wichtig!
DoEvents
End If
Exit Sub
Fehler:
Select Case Err.Number
Case 10014 'ungültiges Argument
'wenn der RequestHost nicht aufgelöst werden kann, tritt dieser Fehler auf.
'd.h. auch, dass der SQL-Server im Netz nicht erreichbar ist
GoTo Rückgabe
Case Else
Err.Raise Err.Number, Err.Source & ". Connect", Err.Description
End Select
End Sub
Private Sub Class_Terminate()
' Wurde ein Winsock-Control angelegt?
If Not (objWinSock Is Nothing) Then
' Ja, ist die Verbindung nicht geschlossen?
If (objWinSock.State <> StateConstants.sckClosed) Then
' Nein, unbedingt schließen
objWinSock.Close
' nachfolgender Befehl ist wichtig!
DoEvents
End If
' Winsock entfernen
Set objWinSock = Nothing
Unload frmWinSock
End If
End Sub
'Private Sub objWinSock_ConnectionRequest(ByVal requestID As Long)
''Hinweis zu Fehler 'Invalid operation at current state'
' If objWinSock.State <> sckClosed Then objWinSock.Close 'closes connection if one is already open
' objWinSock.Accept requestID 'allows new connection
'End Sub
Private Sub objWinSock_DataArrival(ByVal bytesTotal As Long)
Dim MSG As String
Dim Cancel As Boolean
Cancel = False
' Received message from server
objWinSock.GetData MSG, vbString
If MSG Like "*" Then ' Received message from server
ServerName = Split(MSG, ";")(1)
ServerInstanz = Split(MSG, ";")(3)
tmpServerList = tmpServerList & ServerName & "\" & ServerInstanz & ";"
RaiseEvent SQLServerFound(ServerName, ServerInstanz, Cancel)
PauseAbbrechen = Cancel
End If
End Sub
' Hilfsfunktionen
Private Function TimeStamp(Optional ByVal Seconds As Double) As Double
TimeStamp = Int(Now) + (Timer + Seconds) / 86400
End Function
Private Sub Pause(ByVal Seconds As Double)
Dim t As Double
t = TimeStamp(Seconds)
Do Until TimeStamp >= t Or PauseAbbrechen = True
DoEvents
Loop
End Sub
