Using the following code copied from another expert solution I want to know if it is possible to get the code result in to a TXT file:
Dim ListText, S, Key
Set S = CreateObject("RegEdit.Server")
For Each Key In S.Keys("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall").SubKeys
If Key.ExistsValue("DisplayName") Then
ListText = ListText & Key.Values("DisplayName").Value & vbCrLf
ListText = ListText & "(" & Key.Name & ")" & vbCrLf
I want also if possible to get the same type of result but including all the hardware installed in the computer and also all the users names included the access type.