- Код: Выделить всё
Option Explicit
Private Declare Function lstrlenW Lib "kernel32" (ByVal lpString As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Declare Function NetServerEnum Lib "netapi32" (Servername As Any, ByVal Level As Long, Address As Long, ByVal prefmaxlen As Long, ServersCount As Long, Count As Long, ByVal ServerType As Long, strDomain As Any, resumehandle As Long) As Long
Private Declare Function NetApiBufferFree Lib "Netapi32.dll" (ByVal lpBuffer As Long) As Long
Private Const SV_TYPE_SERVER As Long = &H2
Private Const SV_TYPE_SQLSERVER As Long = &H4
Private Type SV_100
platform As Long
name As Long
End Type
Public Function GetServers(Domain As String) As String
'
Dim Response As Long
Dim ServersCount As Long
Dim Count As Long
Dim hResume As Long
Dim Address As Long
Dim Level As Long
Dim prefmaxlen As Long
Dim ServerType As Long
Dim Buffer() As Byte
Dim Iterator As Long
Dim sv100 As SV_100
Level = 100
prefmaxlen = -1
ServerType = SV_TYPE_SERVER
Buffer = Domain & vbNullChar
Response = NetServerEnum(ByVal 0&, Level, Address, prefmaxlen, ServersCount, Count, ServerType, Buffer(0), hResume)
If Response = 0 Or Response = 234& Then
For Iterator = 0 To ServersCount - 1
CopyMemory sv100, ByVal Address, Len(sv100)
GetServers = GetServers & vbLf & Pointer2StringW(sv100.name)
Address = Address + Len(sv100)
Next
Else
GetServers = "#Error"
End If
NetApiBufferFree Address
End Function
Private Function Pointer2StringW(ByVal Address As Long) As String
Dim Buffer() As Byte
Dim Count As Long
Count = lstrlenW(Address) * 2
If Count Then
ReDim Buffer(0 To (Count - 1)) As Byte
CopyMemory Buffer(0), ByVal Address, Count
Pointer2StringW = Buffer
End If
End Function
Private Sub Command1_Click()
MsgBox GetServers("RIF-1")
End Sub
Проблемма в следующем: как мне узнать имена доступных доменов? Ведь в примере я узнаю имена компов по имени домена "RIF-1".
А как мне узнать доступные все домены?
