dim fs, filetxt

Const strComputer = "."
Const ForReading = 1, ForWriting = 2, ForAppending = 8 

Set fs = CreateObject("Scripting.FileSystemObject")

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colSoftware = objWMIService.ExecQuery ("Select * from Win32_Product")
Set comSystem = objWMIService.ExecQuery("select * from Win32_ComputerSystem")

set filetxt = fs.OpenTextFile("list-soft.txt", ForAppending, True)

for Each objSystem in comSystem
		filetxt.WriteLine objSystem.UserName
Next

For Each objSoftware in colSoftware
		filetxt.WriteLine "Name: " & objSoftware.Name & " Version:" & objSoftware.Version
Next

filetxt.Close