VB script to list the software installed from a list of computers

I have a vb script which will list the software installed on local machine.Is there any way to read the computer names from a list and provide the output to a csv file. Output should contain Computer name and list of software installed.
'Use "." for the local computer, or put in the computer name you wish to querystrComputer="."' **** Do not edit beyond this point ****DimobjExplorer,binFirstWindow,strTextOutputconstcrlf="<BR>"SetobjWMIService=GetObject("winmgmts:{impersonationLevel=impersonate}!\\"&strComputer&"\root\cimv2")SetcolSoftware=objWMIService.ExecQuery("Select Name from Win32_Product")strResult=""ForEachobjSoftwareincolSoftwarestrResult=strResult&objSoftware.Name&crlfNextshowText(strResult)showText(crlf&"Done!")Wscript.QuitSubshowText(strText)IfbinFirstWindow=FalseThenbinFirstWindow=TrueSetobjExplorer=WScript.CreateObject("InternetExplorer.Application")WithObjExplorer.Navigate"about:blank".ToolBar=0.StatusBar=0.Width=400.Height=200.Left=0.Top=0EndWithDoWhile(objExplorer.Busy)Wscript.Sleep200LoopstrTextOutput=""objExplorer.Visible=1EndIfstrTextOutput=strTextOutput&strText&crlfobjExplorer.Document.Body.InnerHTML=strTextOutputEndSub