[DeLit]

думаю вначале стоило собрать информацию о имени компа и текущем пользователе
а выдачу ответа на консоль вставить в цикле получения информации об IP-адресе и MAC
тогда ты получишь несколько строк

Измененный код

Код:

on error resume next

strComputer = Wscript.Arguments.Item(0)

' Use "." (local computer) if no computer-name was entered
if strComputer = "" then
	strComputer="."
end if


' GET HOST NETBIOS NAME
If strComputer = "." Then
	Set objWMIService = GetObject( "winmgmts:\\" & strComputer & "\root\cimv2")
	Set colItems = objWMIService.ExecQuery( "Select * from Win32_ComputerSystem", , 48 )

	'Grab the netbios name of each computer
	For Each objItem in colItems
		info_nbname = objItem.Name
		' WScript.Echo "MAC Address for Computer Name: " & host & " is " & macinfo 'Uncomment to display     
	Next
Else
	info_nbname = strComputer
End If


' GET CURRENT USER
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_ComputerSystem")

For Each objItem In colItems
	info_user = objItem.UserName
Next


Dim objFile, objFolder, objFSO
Dim strFolder, strFile, strLine
strFolder = "c:\"
strFile = "USERS.txt"

Set objFSO = CreateObject("Scripting.FileSystemObject")

set objFile = nothing
	' For auditing, we want APPEND mode to track all MAC/IPs for the computer
Const ForAppending = 8

Set objFile = objFSO.OpenTextFile (strFolder & strFile, ForAppending, True)
	' Write Computer Name, MAC address, IP Address(es) and Date to a text file

objFile.WriteLine("NEW LAUNCH")

		
		
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
	
Set IPConfigSet = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
	
For Each IPConfig in IPConfigSet
    If Not IsNull(IPConfig.IPAddress) Then  
        For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
			info_ip = IPConfig.IPAddress(i)
        Next
		'WScript.Echo IPConfig.MacAddress
		info_mac = IPConfig.MacAddress
		strLine = info_user & "," & info_mac & "," & info_ip & "," & info_nbname
		objFile.WriteLine(strLine)
		MsgBox(strLine)
    End If
Next

objFile.Close


wscript.quit(0)

Обращаю внимание, что я немного поменял названия переменных, чтоб немного понимать, где наши целевые значения находятся