I'm new to these forums and to coding so please don't eat me alive if I come across as a complete amateur

I want to pull information from my computer and then add this information to the Excel Sheet. How do I do this? I have a column in B in Excel Sheet as that's were I'd like the information to go. Here is my code:

Code:
Option Explicit

'declare variables
Dim objDomain, objFSO, objExcel, objSheet, objWMI, objItem
Dim userSheet, intRow, colItem
Dim strComputer, strIP

'assign spreadsheet to variables
userSheet = "c:\Computers.xlsx"

'connect to Excel spreadsheet
Set objExcel = Createobject("Excel.Application")

'creating a connection to file system object
Set objFSO = CreateObject("Scripting.FileSystemObject")

'open spreadsheet
Set objSheet = objExcel.Workbooks.Open(userSheet)
intRow = 3

'loop that gets data from cells
Do Until objExcel.Cells(introw,1).Value = ""
strIP = Trim(objExcel.Cells(introw, 1).Value)

strComputer = strIP

WScript.Echo(strComputer)

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

Set colItem = objWMI.ExecQuery("Select * from Win32_OperatingSystem",,48)
For Each objItem In colItem
WScript.Echo "Name " & objItem.Name
Next

intRow = intRow + 1

Loop

WScript.Quit
If I need to provide anything more or something is unclear please let me know. I'd let to get this resolved as quick as possible as time is pressing for this.