VBScript inventario

[Al3x]

Mi occorrerebbe uno script in VBS che fatto girare in un pc da una pendrive ricavi alcune info di sistema e le memorizzi in un file, sempre nella pendrive, che abbia come nome l'hostname del pc.

Le info che dovrebbero confluire dentro il file sono le seguenti:
- Nome macchina
- Versione sistema operativo e Service Pack
- Ram installata
Opzionale, se possibile, la versione di Office con relativo Service Pack

Ho già uno script modificato che ho dato agli utenti per fargli comparire a schermo IP e HOSTNAME ma al suo interno c'è altro codice che ho disattivato e che potrebbe essere utile allo scopo. Il prolema è che non conosco le istruzioni per far si che l'output finisca in un file oltre che a schermo.

Codice: Seleziona tutto

strComputer = "."
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)
            WScript.Echo  "Indirizzo IP: " & IPConfig.IPAddress(i)

        Next
    End If
Next

Set objWMIService = GetObject("winmgmts:" _
 & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSettings = objWMIService.ExecQuery _
 ("SELECT * FROM Win32_OperatingSystem")
For Each objOperatingSystem in colSettings
' Wscript.Echo "OS Name: " & objOperatingSystem.Name
' Wscript.Echo "Version: " & objOperatingSystem.Version
' Wscript.Echo "Service Pack: " & _
' objOperatingSystem.ServicePackMajorVersion _
' & "." & objOperatingSystem.ServicePackMinorVersion
' Wscript.Echo "OS Manufacturer: " & objOperatingSystem.Manufacturer
' Wscript.Echo "Windows Directory: " & _
' objOperatingSystem.WindowsDirectory
' Wscript.Echo "Locale: " & objOperatingSystem.Locale
' Wscript.Echo "Available Physical Memory: " & _
' objOperatingSystem.FreePhysicalMemory
' Wscript.Echo "Total Virtual Memory: " & _
' objOperatingSystem.TotalVirtualMemorySize
' Wscript.Echo "Available Virtual Memory: " & _
' objOperatingSystem.FreeVirtualMemory
' Wscript.Echo "OS Name: " & objOperatingSystem.SizeStoredInPagingFiles
Next
Set colSettings = objWMIService.ExecQuery _
 ("SELECT * FROM Win32_ComputerSystem")
For Each objComputer in colSettings
 Wscript.Echo "Nome Computer: " & objComputer.Name
Next