Réponse acceptée !
J'ai trouvé une réponse, sur un autre forum, la voici si ça peut dépanner : Option Explicit 'partie permettant de récuperer le workgroup 'aide de ThierryAIM sur developpez.com Private Const MAX_PREFERRED_LENGTH As Long = -1 Private Const NERR_SUCCESS As Long = 0& Private Const ERROR_MORE_DATA As Long = 234& Private Const SV_TYPE_DOMAIN_ENUM As Long = &H80000000 Private Type SERVER_INFO_101 sv101_platform_id As Long sv101_name As Long sv101_version_major As Long sv101_version_minor As Long sv101_type As Long sv101_comment As Long End Type Private Declare Function NetServerEnum Lib "netapi32" (ByVal servername As Long, ByVal level As Long, buf As Any, ByVal prefmaxlen As Long, entriesread As Long, totalentries As Long, ByVal servertype As Long, ByVal domain As Long, resume_handle As Long) As Long Private Declare Function NetApiBufferFree Lib "netapi32" (ByVal Buffer As Long) As Long Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pTo As Any, uFrom As Any, ByVal lSize As Long) Private Declare Function lstrlenW Lib "kernel32" (ByVal lpString As Long) As Long Private Sub Form_Load() Call GetServers End Sub Private Function GetServers() As Long Dim bufptr As Long Dim dwEntriesread As Long Dim dwTotalentries As Long Dim dwResumehandle As Long Dim dwServertype As Long Dim se101 As SERVER_INFO_101 Dim success As Long Dim nStructSize As Long Dim cnt As Long nStructSize = LenB(se101) dwServertype = SV_TYPE_DOMAIN_ENUM success = NetServerEnum(0&, 101, bufptr, MAX_PREFERRED_LENGTH, dwEntriesread, _ dwTotalentries, dwServertype, 0&, dwResumehandle) If success = NERR_SUCCESS And success <> ERROR_MORE_DATA Then For cnt = 0 To dwEntriesread - 1 CopyMemory se101, ByVal bufptr + (nStructSize * cnt), nStructSize MsgBox GetPointerToByteStringW(se101.sv101_name) Next End If Call NetApiBufferFree(bufptr) GetServers = dwEntriesread End Function Private Function GetPointerToByteStringW(ByVal dwData As Long) As String Dim tmp() As Byte Dim tmplen As Long If dwData <> 0 Then tmplen = lstrlenW(dwData) * 2 If tmplen <> 0 Then ReDim tmp(0 To (tmplen - 1)) As Byte CopyMemory tmp(0), ByVal dwData, tmplen GetPointerToByteStringW = tmp End If End If End Function