Foro de elhacker.net

Option Explicit

Private Sub Form_Load()
Me.AutoRedraw = True: Me.Height = 6045: Me.Width = 4300
LoadControl
End Sub

Sub LoadControl()
  If WMI_disponible() Then
    'Me.Print "TU SISTEMA TIENE WMI", vbOKOnly + vbInformation, "WMI"
    getWMI_Info
  Else
    Me.Print "TU SISTEMA NO TIENE WMI", vbOKOnly + vbExclamation, "WMI"
  End If
End Sub

Public Function WMI_disponible() As Boolean
Dim WMI As Object
On Error Resume Next
Set WMI = GetObject("winmgmts:")
WMI_disponible = (Err.Number = 0)
End Function

Private Sub getWMI_Info()

Dim oAdapters As Object
Dim oAdapter As Object
On Error GoTo Fehler_WMI

Me.Print "----------------------------------------------------------------------------------------------"

Set oAdapters = GetObject("winmgmts:").ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")

Dim ctlip1 As String: Dim ctlip2 As String

For Each oAdapter In oAdapters
  With oAdapter
    'Me.Cls '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    If Join(.IPAddress) <> ctlip1 Then
        Me.Print "NOMBRE:" & vbTab & vbTab & vbTab & Environ$("computername")
        Me.Print "DIRECCION IP:" & vbTab & vbTab & vbTab & Join(.IPAddress)
        Me.Print "MASCARA DE SUBRED:" & vbTab & Join(.IPSubnet)
        'If Not IsNull(.DefaultIPGateway) Then
            Me.Print "PUERTA DE ENLACE:" & vbTab & vbTab & Join(.DefaultIPGateway)
        'End If
        Me.Print "DIRECCION MAC:" & vbTab & vbTab & .MACAddress
        Me.Print "DNS:" & vbTab & vbTab & vbTab & vbTab & .DNSHostName
        'If .WINSPrimaryServer <> "" Then
            Me.Print "WINS 1:" & vbTab & vbTab & vbTab & .WINSPrimaryServer
        'End If
        'If .WINSSecondaryServer <> "" Then
            Me.Print "WINS 2:" & vbTab & vbTab & vbTab & .WINSSecondaryServer
        'End If
        Me.Print ":---------------------------------------------------------------------------------------------"
        ctlip1 = Join(.IPAddress)
    End If
  End With
Next

On Error GoTo 0
Exit Sub

Fehler_WMI:
MsgBox "Error: " & Err.Number & vbTab & Err.Description, vbCritical
Resume Next
End Sub