broly

dim objFileSys
dim objFile
i = 1

set objFileSys = wscript.Createobject("Scripting.FileSystemObject")
set objFile = objFileSys.createTextFile("WKS_Info.txt",True)



strComputer ="."

Set oWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colComputerSystemItems = oWMIService.ExecQuery ("SELECT * FROM Win32_ComputerSystem",,48)
Set colComputerSystemProductItems = oWMIService.ExecQuery ("SELECT * FROM Win32_ComputerSystemProduct",,48)
Set colSMBIOSItems = oWMIService.ExecQuery( "Select * from Win32_BIOS where PrimaryBIOS = true", , 48 )
Set colNetworkAdapterItems = oWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled = 1",,48)
set hostname = hostname

' On Error Resume Next
For Each oComputerSystem In colComputerSystemItems

        objFile.Writeline("Name is: " & oComputerSystem.Name)
        objFile.Writeline("Made by: " & oComputerSystem.Manufacturer)
        objFile.Writeline("Model is: " & oComputerSystem.Model)
        objFile.Writeline()
        
Next

For Each oComputerSystemProduct In colComputerSystemProductItems
        
        objFile.writeline("UUID is: " & oComputerSystemProduct.UUID)
        objFile.Writeline()
Next
        
For Each oSMBIOS In colSMBIOSItems
        
        objFile.Writeline("BIOS version is: " & oSMBIOS.SMBIOSBIOSVersion)
        objFile.Writeline("Serial Number is: " & oSMBIOS.SerialNumber)
        objFile.Writeline()
Next
        objFile.Writeline("hostname is: " & hostname)
   
Next

For Each NetworkAdapter in colNetworkAdapterItems  
                    
           If i < 3 Then
         
        objFile.Writeline("NIC " & i & " name is: " & NetworkAdapter.Description)
        objFile.writeline("MAC address is: " & NetworkAdapter.MACAddress)
        objFile.Writeline()

        i = i + 1
        
        End If

  
Next  

wscript.echo "Workstation info dumping is finished!"