Network Names in a List...

anvil19 · Feb 9, 2004

Hi All

I want to create a drop-down list with the names of all the computers on our network (kinda like Winpop does it).

Anyone know how this is done??

Thanks

anvil19

Juan Pablo González · Feb 11, 2004

This dropdown list, is where ? Userform ? sheet ? if its in a sheet, what toolbar did you use ? or is it a dropdown from Data | Validation ?

Juan Pablo González · Feb 11, 2004

Anyway, here's an example, completely based on this: (Which means, I only did like 1% of the code, just the portion that adds the computers to the Collection)

http://makeashorterlink.com/?N12821E57

Hope it helps you !

Option Explicit

' ============== BOF: MNetEnum.bas ==============
Private Declare Function WNetOpenEnum Lib "mpr" Alias "WNetOpenEnumA" ( _
 ByVal dwScope As Long, ByVal dwType As Long, ByVal dwUsage As Long, _
 lpNetResource As Any, lphEnum As Long) As Long
Private Declare Function WNetCloseEnum Lib "mpr.dll" ( _
 ByVal hEnum As Long) As Long
Private Declare Function WNetEnumResource Lib "mpr.dll" Alias _
 "WNetEnumResourceA" (ByVal hEnum As Long, lpcCount As Long, lpBuffer As Any, _
 lpBufferSize As Long) As Long
Private Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" ( _
 lpString1 As Any, lpString2 As Any) As Long
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" ( _
 lpString As Any) As Long
Private Declare Sub CopyMem Lib "kernel32" Alias "RtlMoveMemory" ( _
 Destination As Any, Source As Any, ByVal Length As Long)

Private Type NETRESOURCE
 dwScope As Long
 dwType As Long
 dwDisplayType As Long
 dwUsage As Long
 lpLocalName As Long
 lpRemoteName As Long
 lpComment As Long
 lpProvider As Long
 ' lpLocalName As String
 ' lpRemoteName As String
 ' lpComment As String
 ' lpProvider As String
End Type

Private Const RESOURCE_CONNECTED = &H1
Private Const RESOURCE_GLOBALNET = &H2
Private Const RESOURCE_REMEMBERED = &H3

Private Const RESOURCETYPE_ANY = &H0
Private Const RESOURCETYPE_DISK = &H1
Private Const RESOURCETYPE_PRINT = &H2
Private Const RESOURCETYPE_UNKNOWN = &HFFFF

Private Const RESOURCEUSAGE_CONNECTABLE = &H1
Private Const RESOURCEUSAGE_CONTAINER = &H2
Private Const RESOURCEUSAGE_RESERVED = &H80000000

Private Const RESOURCEDISPLAYTYPE_GENERIC = &H0
Private Const RESOURCEDISPLAYTYPE_DOMAIN = &H1
Private Const RESOURCEDISPLAYTYPE_SERVER = &H2
Private Const RESOURCEDISPLAYTYPE_SHARE = &H3
Private Const RESOURCEDISPLAYTYPE_FILE = &H4
Private Const RESOURCEDISPLAYTYPE_GROUP = &H5

Private Const NO_ERROR = &H0

Private Const Indent = 2

Sub TestIt()
 Dim Col As New Collection
 Dim i As Long
 NetEnum Col
 Debug.Print "Computers:"
 For i = 1 To Col.Count
 Debug.Print Col(i)
 Next i
End Sub

Public Sub NetEnum(ByRef Col As Collection)
 Dim hEnum As Long
 Dim rc As Long
 Dim cnt As Long
 Dim nr As NETRESOURCE
 Dim b() As Byte
 Dim buflen As Long

 ' start an enumeration process...
 rc = WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, _
 RESOURCEUSAGE_CONTAINER, ByVal 0&, hEnum)
 If rc = NO_ERROR Then
 buflen = 1024
 ReDim b(0 To buflen - 1) As Byte
 ' get network root
 Do
 cnt = 1
 rc = WNetEnumResource(hEnum, cnt, b(0), buflen)
 ' if we have a container, enumerate it...
 If rc = NO_ERROR Then
 CopyMem nr, b(0), Len(nr)
 Debug.Print PointerToStringA(nr.lpRemoteName)
 If (nr.dwUsage And RESOURCEUSAGE_CONTAINER) Then
 Call EnumContainers(nr, 1, Col)
 End If
 Else
 Exit Do
 End If
 Loop
 End If
 ' must close the enumeration handle
 rc = WNetCloseEnum(hEnum)
End Sub

Public Sub EnumContainers(cntr As NETRESOURCE, ByVal Level As Long, _
 ByRef Col As Collection)
 Dim hEnum As Long
 Dim rc As Long
 Dim cnt As Long
 Dim nr As NETRESOURCE
 Dim b() As Byte
 Dim buflen As Long
 Dim sTemp As String

 ' start an enumeration process
 rc = WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, _
 RESOURCEUSAGE_CONTAINER, cntr, hEnum)
 If rc = NO_ERROR Then
 buflen = 1024
 ReDim b(0 To buflen - 1) As Byte
 ' continue the enumeration
 Do
 cnt = 1
 rc = WNetEnumResource(hEnum, cnt, b(0), buflen)
 If rc = NO_ERROR Then
 CopyMem nr, b(0), Len(nr)
 Debug.Print Space(Indent * Level);
 'Debug.Print PointerToStringA(nr.lpRemoteName)
 sTemp = PointerToStringA(nr.lpRemoteName)
 'Is it a computer
 If Left$(sTemp, 2) = "\\" Then
 'Doesn't have anything else after it
 If InStr(3, sTemp, "\", 1) = 0 Then
 Col.Add Mid$(sTemp, 3)
 End If
 End If
 If (nr.dwUsage And RESOURCEUSAGE_CONTAINER) Then
 Call EnumContainers(nr, Level + 1, Col)
 Call EnumConnections(nr, Level + 1, Col)
 End If
 Else
 Exit Do
 End If
 Loop
 End If
 ' must close the enumeration handle
 rc = WNetCloseEnum(hEnum)
End Sub

Public Sub EnumConnections(cntr As NETRESOURCE, ByVal Level As Long, _
 ByRef Col As Collection)
 Dim hEnum As Long
 Dim rc As Long
 Dim cnt As Long
 Dim nr As NETRESOURCE
 Dim b() As Byte
 Dim buflen As Long

 ' start an enumeration process
 rc = WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, _
 RESOURCEUSAGE_CONNECTABLE, cntr, hEnum)
 If rc = NO_ERROR Then
 buflen = 1024
 ReDim b(0 To buflen - 1) As Byte
 ' continue the enumeration
 Do
 cnt = 1
 rc = WNetEnumResource(hEnum, cnt, b(0), buflen)
 If rc = NO_ERROR Then
 CopyMem nr, b(0), Len(nr)
 Debug.Print Space(Indent * Level);
 Debug.Print PointerToStringA(nr.lpRemoteName)
 Else
 Exit Do
 End If
 Loop
 End If
 ' must close the enumeration handle
 rc = WNetCloseEnum(hEnum)
End Sub

Private Function PointerToStringA(lpStringA As Long) As String
 Dim Buffer() As Byte
 Dim nLen As Long

 If lpStringA Then
 nLen = lstrlen(ByVal lpStringA)
 If nLen Then
 ReDim Buffer(0 To (nLen - 1)) As Byte
 CopyMem Buffer(0), ByVal lpStringA, nLen
 PointerToStringA = StrConv(Buffer, vbUnicode)
 End If
 End If
End Function
' ============== EOF: MNetEnum.bas ==============

anvil19 · Feb 11, 2004

Hi Juan Pablo

Genius!!

It works a treat. I get the users and all their shares too. All I need is the user names so I'll customise it as needed. Thanks a stack for the help.

I'm putting together a Flexi time schedule for each user at our company and I want the user to just click a button and his username and machine name (I have code for that) as well as the date & time will be entered into a worksheet. But if the user is away from their machine and/or in the field (we are an engineering firm) the user must be able to select their own username and add that value to the flexi time sheet.

Thanks again

anvil19

Network Names in a List...

anvil19

Board Regular

Excel Facts

Juan Pablo González

MrExcel MVP

Juan Pablo González

MrExcel MVP

anvil19

Board Regular

Similar threads

Forum statistics

Share this page

Network Names in a List...

anvil19

Board Regular

Excel Facts

Juan Pablo González

MrExcel MVP

Juan Pablo González

MrExcel MVP

anvil19

Board Regular

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock