strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colSettings = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")
For Each objComputer in colSettings
Wscript.Echo "Processing Hardware on: " & objComputer.Name
Wscript.Echo date
systemmanufacturer = objComputer.Manufacturer
systemmodel = objComputer.Model
totalphysmem = objComputer.TotalPhysicalMemory
computername = objComputer.Name
processors = objcomputer.NumberOfProcessors
user = objcomputer.UserName
Next


Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_DiskDrive", "WQL", _
                                      wbemFlagReturnImmediately + wbemFlagForwardOnly)

 For Each objItem In colItems
 diskinfo = objitem.PNPDeviceID
 next

Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_DisplayControllerConfiguration", "WQL", _
                                      wbemFlagReturnImmediately + wbemFlagForwardOnly)


 For Each objItem In colItems
 videoinfo = objItem.Description
 next


 Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_BIOS", "WQL", _
                                      wbemFlagReturnImmediately + wbemFlagForwardOnly)


 For Each objItem In colItems
 releasedate = objItem.ReleaseDate
 serialnumber = objItem.SerialNumber
 next



Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Processor", "WQL", _
                                      wbemFlagReturnImmediately + wbemFlagForwardOnly)


 For Each objItem In colItems
 cpuid1 = objItem.DeviceID
 cputype1 = objItem.Name
 next




arrComputers = Array("localhost")
For Each strComputer In arrComputers

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("select * from win32_networkadapterconfiguration WHERE IPEnabled='TRUE' " & "AND ServiceName<>'AsyncMac' " & "AND ServiceName<>'VMnetx' " & "AND ServiceName<>'VMnetadapter' " & "AND ServiceName<>'Rasl2tp' " & "AND ServiceName<>'msloop' " & "AND ServiceName<>'PptpMiniport' " & "AND ServiceName<>'Raspti' " & "AND ServiceName<>'NDISWan' " & "AND ServiceName<>'NdisWan4' " & "AND ServiceName<>'RasPppoe' " & "AND ServiceName<>'NdisIP' " & "AND ServiceName<>'' " & "AND Description<>'PPP Adapter.'",,48)

'=== mac address find
For Each objItem in colItems
   count_all = count_all + 1

   if objItem.IPAddress(0) <> "0.0.0.0" then
     count = count + 1
     if count = 1 then
        'net_ip_address = objItem.IPAddress(0)
        'objOutputFile.WriteLine date & " " & time & " IP: " & net_ip_address
        'net_mac_address = objItem.MACAddress
        STRIPAddress = objItem.IPAddress(0)
     end if
   end if
Next

next










Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile("\\something\something\"& computername &"Hardware.tsv", True)

objTextFile.WriteLine "Computer Name : " & computername & crlf
objTextFile.WriteLine "Date : " & date & crlf
objTextFile.WriteLine "Manufacturer : " & systemmanufacturer & crlf
objTextFile.WriteLine "System Model : " & systemmodel & crlf
objTextFile.WriteLine "Total Physical Memory : " & totalphysmem & crlf
objTextFile.WriteLine "Disk Information : " & diskinfo & crlf
objTextFile.WriteLine "Video Information : " & videoinfo & crlf
objTextFile.WriteLine "Bios Date : " & releasedate & crlf
objTextFile.WriteLine "Serial number : " & serialnumber & crlf
objTextFile.WriteLine "IP Address : " & STRIPAddress & crlf
objTextFile.WriteLine "Number of Processors : " & processors & crlf
objTextFile.WriteLine "CPU Type : " & cputype1 & crlf
objTextFile.WriteLine "UserName : " & user & crlf





strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSettings = objWMIService.ExecQuery _
    ("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colSettings

    objTextFile.WriteLine "Available Physical Memory: " &  objOperatingSystem.FreePhysicalMemory &crlf
    objTextFile.WriteLine "Total Virtual Memory: " & objOperatingSystem.TotalVirtualMemorySize & crlf
    objTextFile.WriteLine "Available Virtual Memory: " & objOperatingSystem.FreeVirtualMemory & crlf
    objTextFile.WriteLine "OS Name: " & objOperatingSystem.Name & crlf
    objTextFile.WriteLine "Version: " & objOperatingSystem.Version & crlf
    objTextFile.WriteLine "Service Pack: " &  objOperatingSystem.ServicePackMajorVersion _
            & "." & objOperatingSystem.ServicePackMinorVersion & crlf
    objTextFile.WriteLine "OS Manufacturer: " & objOperatingSystem.Manufacturer & crlf
    objTextFile.WriteLine "Windows Directory: " & objOperatingSystem.WindowsDirectory & crlf
    objTextFile.WriteLine "Locale: " & objOperatingSystem.Locale & crlf
    objTextFile.WriteLine "OS Name: " & objOperatingSystem.SizeStoredInPagingFiles & crlf



Next


Set colSettings = objWMIService.ExecQuery _
    ("Select * from Win32_ComputerSystem")
For Each objComputer in colSettings
    Wscript.Echo "Processing Software on: " & objComputer.Name
    computername = objComputer.Name
Next

objTextFile.Close


Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile("\\something\something\"& computername &"software.tsv", True)

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSoftware = objWMIService.ExecQuery _
    ("Select * from Win32Reg_AddRemovePrograms")

objTextFile.WriteLine computername & crlf
objTextFile.WriteLine "Description" & vbtab & vbtab & "Install Date" & vbtab & vbtab & "Vendor" & vbtab & vbtab     & "Version" & crlf
objTextFile.WriteLine crlf
For Each objSoftware in colSoftware
    objTextFile.WriteLine objSoftware.DisplayName & vbtab & _
objSoftware.InstallDate & vbtab & _
    objSoftware.Publisher & vbtab & _
    objSoftware.Version & crlf
objTextFile.WriteLine crlf
Next
objTextFile.Close