Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Server erreichbar: schnelle Prüfung
Autor: friendly
Datum: 06.12.04 18:17
Hallo Thomas, vielen Dank für den Tipp. Klappt prima. Zunächst hatte ich das Problem umgangen, indem ich die aktuelle Domäne ermittelt habe. Unser SQL-Server läuft ständig... Wolfgang Option Base 1 Private Type WKSTA_INFO_100 wki100_platform_id As Long wki100_computername As Long wki100_langroup As Long wki100_ver_major As Long wki100_ver_minor As Long End Type Private Declare Function NetWkstaGetInfo Lib "Netapi32" (ByVal sServerName As String, ByVal lLevel As Long, vBuffer As Any) As Long Private Declare Sub lstrcpyW Lib "kernel32" (vDest As Any, ByVal vSrc As Any) Private Declare Sub lstrcpy Lib "kernel32" (vDest As Any, ByVal vSrc As Any) Private Declare Sub lstrcpynW Lib "kernel32" (ByVal vDest As Any, ByVal vSrc As Any, lLength As Long) Private Declare Sub RtlMoveMemory Lib "kernel32" (dest As Any, vSrc As Any, ByVal lSize As Long) …… Public Function U_GetDomainName() As String ' www.ms-office-forum.net/forum/archive/index.php/t-94986.html Dim lReturnCode As Long Dim bBuffer(512) As Byte Dim I As Integer Dim twkstaInfo100 As WKSTA_INFO_100, lwkstaInfo100 As Long Dim lwkstaInfo100StructPtr As Long Dim sDomainName As String lReturnCode = NetWkstaGetInfo("", 100, lwkstaInfo100) lwkstaInfo100StructPtr = lwkstaInfo100 If lReturnCode = 0 Then RtlMoveMemory twkstaInfo100, ByVal lwkstaInfo100StructPtr, Len(twkstaInfo100) lstrcpyW bBuffer(1), twkstaInfo100.wki100_langroup 'Get every other byte from Unicode string. I = 1 Do While bBuffer(I) <> 0 sDomainName = sDomainName & Chr(bBuffer(I)) I = I + 2 Loop U_GetDomainName = sDomainName End If End Function

Server erreichbar: schnelle Prüfung	985	friendly	05.12.04 13:03
Re: Server erreichbar: schnelle Prüfung	526	apo	06.12.04 15:29
Re: Server erreichbar: schnelle Prüfung	565	me36835	06.12.04 16:04
Re: Server erreichbar: schnelle Prüfung	611	friendly	06.12.04 18:17

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen