Private Function GetAllUsernames() As List(Of String)
        Dim _users As List(Of String) = New List(Of String)
        Dim EntriesRead As Int32
        Dim TotalEntries As Int32
        Dim [Resume] As Int32
        Dim bufPtr As IntPtr
        NetUserEnum(My.Computer.Name, 0, 2, bufPtr, -1, EntriesRead, _
          TotalEntries, [Resume])
        If EntriesRead > 0 Then
            Dim Users(EntriesRead) As USER_INFO_0
            Dim iter As IntPtr = bufPtr
            Dim _type As Type = GetType(USER_INFO_0)
            For i As Int32 = 0 To EntriesRead - 1
                Users(i) = CType(Runtime.InteropServices.Marshal.PtrToStructure( _
                  iter, _type), USER_INFO_0)
                iter = New IntPtr(iter.ToInt32 + _
                Runtime.InteropServices.Marshal.SizeOf(_type))
                _users.Add(Users(i).Username)
            Next i
            NetApiBufferfree(bufPtr)
        End If
        Return _users
    End Function
    <Runtime.InteropServices.DllImport("netapi32.dll")> Public Shared _
      Function NetUserEnum(<Runtime.InteropServices.MarshalAs( _
      Runtime.InteropServices.UnmanagedType.LPWStr)> ByVal servername As _
      String, ByVal level As Int32, ByVal filter As Int32, ByRef bufptr As _
      IntPtr, ByVal prefmaxlen As Int32, ByRef entriesread As Int32, ByRef _
      totalentries As Int32, ByRef resume_handle As Int32) As Int32
    End Function
    <Runtime.InteropServices.DllImport("netapi32.dll")> Public Shared _
      Function NetApiBufferFree(ByVal buffer As IntPtr) As Int32
    End Function
    <Runtime.InteropServices.StructLayout( _
      Runtime.InteropServices.LayoutKind.Sequential, _
      CharSet:=Runtime.InteropServices.CharSet.Unicode)> Public Structure _
      USER_INFO_0
        Public Username As String
    End Structure