I know you say a script, but if its just a a pc, then you could install something like belarc adivsor, that works just as well and its all pretty when its outputted !
Dim strComputer, strKey, strSubKey
DIM fso, GuyFile
Dim objRegistry
Dim arrSubKeys()
Dim strDisplayName, strDisplayVersion, strInstallLocation
Const HKEY_LOCAL_MACHINE = &H80000002
' BEGIN CALLOUT A
Set objRegistry = GetObject("winmgmts:" & _
"{impersonationLevel=Impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")
' END CALLOUT A
' BEGIN CALLOUT B
objRegistry.EnumKey HKEY_LOCAL_MACHINE, strKey,
arrSubKeys
' END CALLOUT B
' BEGIN CALLOUT C
On Error Resume Next
For Each strSubKey In arrSubKeys
objRegistry.GetStringValue HKEY_LOCAL_MACHINE, _
strKey & "\" & strSubKey, "DisplayName",
strDisplayName
Set fso = CreateObject("Scripting.FileSystemObject")
Set GuyFile = fso.CreateTextFile(strLocation, True)
GuyFile.WriteLine(strDisplayName)
strDisplayName = vbEmpty
Next
GuyFile.Close
' END CALLOUT C
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.