Find out what software is installed on a pc script

[timbo343]

Ive got this scrpit:

WScript.Echo InstalledApplications(".")

Function InstalledApplications(node)
 Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE
 Set oRegistry = GetObject("winmgmts://" _
  & node & "/root/default:StdRegProv")
 sBaseKey = _
  "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
 iRC = oRegistry.EnumKey(HKLM, sBaseKey, arSubKeys)

 For Each sKey In arSubKeys

  iRC = oRegistry.GetStringValue( _
   HKLM, sBaseKey & sKey, "DisplayName", sValue)
  If iRC <> 0 Then
   oRegistry.GetStringValue _
    HKLM, sBaseKey & sKey, "QuietDisplayName", sValue
  End If
  If sValue <> "" Then
   InstalledApplications = _
    InstalledApplications & sValue & vbCrLf
  End If
 Next

End Function

it shows the user what software is installed on the local machine, but im wanting to output it to a text file

Can someone tell me how to do it please

Thanks

T

[Joedetic]

If it were C i could have a stab at saying something to do with

FILE *out;

fopen(some stuffs i'd need to look up);
fprintf(some more stuffs i'd need to look up);
fclosef(yet more stuffs i'd need to look up);

Have a look on t'internet for streams.

If it's just for running occassionally on one machine try http://www.belarc.com

It'll list all your machine specs, all the software, all the windows patches etc etc into a local HTML file.

Very useful.

[NetworkGeezer]

As you arer coding in VBS you can make use of the FileSystemObject as in this example from the MS scripting docs:

' VBScript
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("c:\testfile.txt", True)
MyFile.WriteLine("This is a test.")
MyFile.Close

In your script you would use something like

OutputFile.WriteLine (InstalledApplications("."))

rather than script echo.

Alternatively why not just pipe the output to a file

 csript Installed_Software.vbs > OutputFile.Txt

[srochford]

have a look at http://techinfo.cnwl.ac.uk/Computer%...re%20Audit.htm

I've just realised that I never finished that set of web pages but this will hopefully point you in the right direction.