Network Inventory (Visual Basic Script)

ADDRESSES

First of all we must obtain in some way the directions to which to connect, this can be obtained in several ways.

By the Active Directory of the domain:

For this sure there are simpler ways, but I used this one time, it worked, and I always use it, it consists in "extracting" the domain from your PC, connect to your active directory and extract the "Computer" 's:

Set objRoot = GetObject("LDAP://RootDSE")               'Objeto local de la cual se extrae el dominio
strDefaultDomainName = objRoot.Get("DefaultNamingContext")      'Extraccion de dominio
Set objRoot = Nothing                           'Vacio el objeto local.
CortstrDefaultDomainName = Split(strDefaultDomainName, "DC=")
CortstrDefaultDomainName2 = Split(CortstrDefaultDomainName(1), ",")
set Dominio = GetObject( "WinNT://" & CortstrDefaultDomainName2(0))     'Objeto, reprecenta al active directory del dominio.
For Each child in Dominio                           'Recorro los objetos del Objeto-Dominio
    If child.Class = "Computer" then                    'Si el objeto resulta ser de la clase "Computer" (computadora)
        Computer = child.Name
        Do
            Err.Clear()
            On Error Resume Next 'Ignoro errores
            'CONEXION
            If Err.Number <> 0 Then Exit Do End If 'Para ir al siguiente ciclo del for, devido al error
            On Error GoTo 0     'Dejo de ignorar errores
            'OBTENCION DE DATOS
            'REGISTRO DE DATOS
        Loop While False
    End If
Next

By IP to "Brute Force":

This consists of the never-weighted technique of For Each's nested, it would be at best something like this:

For A = 1 To 255
    For B = 1 To 255
        For C = 1 To 255
            For D = 1 To 255
                Computer = CStr(A) & "." & CStr(B) & "." & CStr(C) & "." & CStr(D)
                Do
                    Err.Clear()
                    On Error Resume Next 'Ignoro errores
                    'CONEXION
                    If Err.Number <> 0 Then Exit Do End If 'Para ir al siguiente ciclo del for, debido al error
                    On Error GoTo 0     'Dejo de ignorar errores
                    'OBTENCION DE DATOS
                    'REGISTRO DE DATOS
                Loop While False
            Next
        Next
    Next
Next

Either you can be sure that you are in a private network and / or you use known "Subnets" and therefore it would be somewhat shorter:

Subredes=Array(0,1,210) 
For Each C In Subredes
    For D = 1 To 255
        Computer = "192.168." & CStr(C) & "." & CStr(D)
        Do
            Err.Clear()
            On Error Resume Next 'Ignoro errores
            'CONEXION
            If Err.Number <> 0 Then Exit Do End If 'Para ir al siguiente ciclo del for, devido al error
            On Error GoTo 0     'Dejo de ignorar errores
            'OBTENCION DE DATOS
            'REGISTRO DE DATOS
        Loop While False
    Next
Next

By "External links":

This can be from the execution of a tool to the simple reading of a text file, the generic version would be like this:

WScript.CreateObject("WScript.Shell").Run "Cmd.exe /c Net View > C:\Windows\Temp\NetViewList.txt", 2, False, -2
Set objTextFile = FileSystem.OpenTextFile("C:\Windows\Temp\NetViewList.txt", 1)
Do Until objTextFile.AtEndOfStream      'Until es como While Not
    Linea = Trim(objTextFile.readline)
    If Asc(Linea) = -15441 Or Asc(Linea) = 239 Then Linea = Mid(Linea,4) End If  'Para eliminar el pocible caracter "BOM"
    Computer = Linea
    'Formatear "Computer" '(esto depende del "formato" del archivo)
    Do
        Err.Clear()
        On Error Resume Next
        'Conexion
        If Err.Number <> 0 Then Exit Do End If 'Para ir al siguiente ciclo del for, devido al error
        On Error GoTo 0
        'OBTENCION DE DATOS
        'REGISTRO DE DATOS
    Loop While False
Loop

CONNECTION

In all cases we will have a "ForEach base" which will provide us with a connection address (Computer). With this we will establish the connection to the Windows Management Instrumentation ( Windows Management Instrumentation or WMI for short). Through this connection we access the WMI Services.

If your current user (of execution) has the administrative permissions on the computers to connect you (normally, if you are a domain administrator), The way to connect would be the following:

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\" & Computer & "\root\cimv2") 'Obviamente tenemos la variable "Computer" gracias al proceso mostrado anteriormente. (Puedes eliminar el "{impersonationLevel=impersonate}!" si no realizas "configuraciones delicadas".. o en este caso es innecesario dado que no vas a configurar nada sino solo consultar.

Otherwise, if you create a user that can connect to the computers, but it is not the one that executes the script, the method to connect would be the following:

UserAndDomain = ".\Administrator" 'Account WITH domain "\"
Pass = "" 'Account Password
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = objSWbemLocator.ConnectServer(Computer, "Root\CIMv2", UserAndDomain , Pass)
objWMIService.Security_.ImpersonationLevel = 3 'Esto es para añadir privilegios, al igual que el caso anterior, puede omitirse esta linea.

DATA OBTAINING

Once we have obtained the WMI services object (objWMIService), we will highlight the queries WMI , over classes and instances of classes. The WMI queries will allow us to access (and if necessary configure) the different properties of the classes consulted, in this case, checking the classes instances Win32_NetworkAdapterConfiguration is required, other information such as the name of the PC and the user logged in, such as free hard disk space up to the resolution of the screen
can be obtained through Win32_ComputerSystem , Win32_LogicalDisk , Win32_DesktopMonitor respectively. For the conformation of the collections of classes returned by the WMI queries, the only way to go through them is (regardless of whether the collection is one or more elements) is the For Each. The following code shows a query in the following way:

Set colNetAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") 'El Where aqui identifica la coneccion "activa"
For Each objNetAdapter in colNetAdapters
    Mac = objNetAdapter.MACAddress 'La direccion Mac
    IP = objNetAdapter.IPAddress(0) 'La direccion IP (es un array, tomo el primer objeto "0" del mismo)
    'IPX = objNetAdapter.IPXAddress 'Si tiene...
Next

DATA RECORD

At this point we have the data stored (the way you want, independent variables, arrays, data structures, etc. is your decision). Here you either use the Exel application object, or you dump it into a plain text file in CSV format, or whatever you want. I was going to expand on this point but it is clear that you understand the concept.