Need to run on multiple remote machine

Hello Guys,

Good day!!!!

I need to run the below VB script on multiple remote using the input file and capture the out on excel or text file.

On Error Resume Next

Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20

Set wshNetwork = WScript.CreateObject("WScript.Network")
strComputer = wshNetwork.ComputerName

strQuery = "SELECT * FROM Win32_ComputerSystem"


Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\ROOT\cimv2")
Set colItems = objWMIService.ExecQuery(strQuery, "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)

For Each objItem in colItems

    WScript.StdOut.WriteLine "Manufacturer: " & objItem.Manufacturer
    WScript.StdOut.WriteLine "Model: " & objItem.Model
    WScript.StdOut.WriteLine "Name: " & objItem.Name
    WScript.StdOut.WriteLine "SystemSKUNumber: " & objItem.SystemSKUNumber

Next

THANKS SURESH M