![]() Set objFile = objFSO.CreateTextFile(outFile,True) Set objFSO = CreateObject("Scripting.FileSystemObject") Set objReg = GetObject("winmgmts://" & "." & "/root/default:StdRegProv") It dumps Wow6432Node as well as standard entries into "programms.txt"įrom command line type: wscript dump.vbs Const HKLM = &H80000002 I adapted the MS-Technet VBScript for my needs. I.e., enumerating all MS Office versions in use on a network is a task to make a grown man weep. Trying really hard to refrain from dumping a ton of salt on Microsoft here for making an absolutely trivial thing next to impossible. Realize this is a little too Perl-ish in a bad way, but all other alternatives I've seen involved insanity with wrapper scripts and similar clever-clever solutions, and this seems a little more human. Found something like this to be the most straightforward solution in my particular case: Function Get - Programs ( $Bits ) ![]() Hope this helps somebody: I've been using the registry-based enumeration in my scripts (as suggested by some of the answers above), but have found that it does not properly enumerate 64-bit software when run on Windows 10 圆4 via SCCM (which uses a 32-bit client). ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |