Инвентаризация ПК по IP-адресам из заданного диапазона и формирование отчёта в формате Excel

Option Explicit
 
Dim ReportFile, strComputer, objWMIService, colItems, objItem, FS, File, Line
Dim ComputerName, Processor, RAM, HDD
 
ReportFile  = "D:\\REPORT\SYS_INV_REP.csv"
strComputer = "." 
 
' СИСТЕМА 
Set objWMIService = GetObject("winmgmts:" & strComputer & "\root\CIMV2") 
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_ComputerSystem",,48) 
For Each objItem in colItems 
    ComputerName = objItem.Name
 
Next
ComputerName = """" & ComputerName & """"
 
' Процессор
Set objWMIService = GetObject("winmgmts:" & strComputer & "\root\CIMV2") 
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_Processor",,48) 
For Each objItem in colItems 
    Processor = objItem.Name
Next
Processor = """" & Processor & """"
 
' Оперативка
Set objWMIService = GetObject("winmgmts:" & strComputer & "\root\CIMV2") 
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_PhysicalMemory",,48) 
For Each objItem in colItems 
    RAM = RAM + Round(objItem.Capacity / (1024*1024*1024), 2)
Next
RAM = """" & RAM & "GB"""
 
' Локальні жорсткі диски
Set objWMIService = GetObject("winmgmts:" & strComputer & "\root\CIMV2") 
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_LogicalDisk where DriveType=3",,48) 
For Each objItem in colItems 
    HDD = HDD + Round(objItem.Size / (1024*1024*1024), 2)
Next
HDD = """" & HDD & "GB"""
 
 
Line = ComputerName & "," & Processor & "," & RAM & "," & HDD 
Line = CutSpaces(Line)
'Wscript.Echo Line
 
' запис у файл
Set FS = CreateObject("Scripting.FileSystemObject")
If Not FS.FileExists(ReportFile) then
    Set File = FS.CreateTextFile(ReportFile, False)
    File.Write "НАЗВА ПК,ПРОЦЕССОР,ОПЕРАТИВНА ПАМЯТЬ (ОБЄМ), ОБЄМ ПАМЯТІ ЖОРСТКИХ ДИСКІВ" & vbCrLf
Else
    ' Search for existing string
    Set File = FS.OpenTextFile(ReportFile)
    If InStr(File.ReadAll, Line) > 0 Then
        File.Close
        Wscript.Sleep 100
        WScript.Quit 1
    End If
 
 
    File.Close
    Wscript.Sleep 100
    Set File = FS.OpenTextFile(ReportFile, 8, True) 
End If
 
' запис у файл
File.Write Line & vbCrLf
File.Close
WScript.Quit 0
 
Function CutSpaces (Input)
    Dim objRegEx
    Set objRegEx = CreateObject("VBScript.RegExp")
    objRegEx.Global = True
    objRegEx.Pattern = "\s+|\t+/ig"
    CutSpaces = objRegEx.Replace(Input, " ")
End Function

File.WriteLine Line

File.Write Line & vbCrLf