Option Explicit

Public Declare Function GetIpAddrTable Lib "iphlpapi" (pIpAddrTable As MIB_IPADDRTABLE, pdwSize As Long, ByVal Border As Long) As Long

Public Type MIB_IPADDRROW
    dwAddr(0 To 3) As Byte                ' IP address
    dwIndex As Long                       ' interface index
    dwMask(0 To 3) As Byte                ' subnet mask
    dwBCastAddr(0 To 3) As Byte           ' broadcast address
    dwReasmSize As Long                   ' rassembly size
    unused As Long                        ' not currently used
End Type

Public Type MIB_IPADDRTABLE
    dwNumEntries As Long                  ' number of entries in the table
    Table(1 To 16) As MIB_IPADDRROW       ' array of IP address entries
End Type


Public Function LocalIPList() As String

Dim Table As MIB_IPADDRTABLE, i As Integer, acc As String
acc = ""
If GetIpAddrTable(Table, Len(Table), 0) = 0 Then
  For i = 1 To UBound(Table.Table)
    If CLng(Table.Table(i).dwAddr(0)) + CLng(Table.Table(i).dwAddr(1)) + CLng(Table.Table(i).dwAddr(2)) + CLng(Table.Table(i).dwAddr(3)) > 0 Then
      acc = acc + ", " + CStr(Table.Table(i).dwAddr(0)) & "." & CStr(Table.Table(i).dwAddr(1)) & "." & CStr(Table.Table(i).dwAddr(2)) & "." & CStr(Table.Table(i).dwAddr(3))
    End If
  Next
End If
LocalIPList = Mid$(acc, 3)

End Function

Option Explicit

Public Declare Function GetComputerNameA Lib "kernel32" (ByVal lpBuffer As String, nSize As Long) As Long

Public Function GetMachineName() As String
  Dim sBuffer As String * 255
  If GetComputerNameA(sBuffer, 255&) <> 0 Then
    GetMachineName = Left$(sBuffer, InStr(sBuffer, vbNullChar) - 1)
  Else
    GetMachineName = "UNKNOWN"
  End If
End Function

Public Function SystemUserName(Optional WithDomain As Boolean = False) As String
   
Dim WshNetwork As Object
Set WshNetwork = CreateObject("WScript.Network")
SystemUserName = IIf(WithDomain, WshNetwork.UserDomain + "\", "") + WshNetwork.UserName
Set WshNetwork = Nothing
   
End Function