Private Type SESSION_INFO_10
    sesi10_cname As Long
    sesi10_username As Long
    sesi10_time As Long
    sesi10_idle_time As Long
End Type
 
Private Declare Function NetSessionEnum Lib "netapi32.dll" _
    (ByVal lptstr As String, ByVal lptstr As String, ByVal lptstr As String, _
    ByVal dword As Long, ByVal pbyte As String, ByVal dword As Long, _
    ByRef pdword As Long, ByRef pdword As Long, ByRef pdword As Long) As Long
 
Private Declare Function NetSessionGetInfo Lib "netapi32.dll" _
    (ByVal lptstr As String, ByVal lptstr As String, ByVal lptstr As String, _
    ByVal dword As Long, ByVal pbyte As String) As Long
 
Private Declare Function NetSessionDel Lib "netapi32.dll" _
    (ByVal lptstr As String, ByVal lptstr As String, ByVal lptstr As String) As _
    Long