Private Declare Function NetServerEnum Lib "netapi32" _ (lpServer
As Any, ByVal lLevel As Long, vBuffer As Any, _ lPreferedMaxLen As
Long, lEntriesRead As Long, lTotalEntries As Long, _ ByVal lServerType
As Long, ByVal sDomain$, vResume As Any) As Long Private Declare Sub
CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination _ As Any,
Source As Any, ByVal Length As Long) Private Declare Function lstrlenW
Lib "kernel32" (ByVal lpString As Long) As Long
Private Type
SV_100 platform As Long name As Long End Type
dim sv100
As SV_100, nRet As Long, i as long, lServerInfo As Long dim lServerInfo
As Long, lPreferedMaxLen As Long, lEntriesRead As Long dim
lTotalEntries As Long, sDomain As String, vResume As Variant dim
buffer() As Byte, nLen As Long lPreferedMaxLen = 65536 nRet =
NetServerEnum(0, 101, lServerInfo, lPreferedMaxLen, lEntriesRead,
lTotalEntries, 4, sDomain, vResume) If nRet = 0 Or nRet = 234&
Then For i = 0 To lEntriesRead - 1 CopyMemory sv100, ByVal
lServerInfo, Len(sv100) nLen = lstrlenW(sv100.name) * 2 If nLen
Then ReDim buffer(0 To (nLen - 1)) As Byte CopyMemory
buffer(0), ByVal sv100.name, nLen End If Combo1.List(i) = buffer
'服务器名 lServerInfo = lServerInfo + 24 Next i End
If 得到的服务器名通过Combo1控件显示,可从中选择储存档案数据的服务器名,再通过下列语句连接到选定服务器中的数据库: