Reply to thread

Message

<blockquote data-quote="LZP1992" data-source="post: 30752607" data-attributes="member: 498630">Save as &quot;script.bat&quot; and run this[CODE]@echo offsetlocal enabledelayedexpansionREM --- Configuration ---set &quot;OutputFile=Installed_Software_Report_%date:~-4,4%%date:~-10,2%%date:~-7,2%_%time:~0,2%%time:~3,2%%time:~6,2%.csv&quot;echo Generating CSV report: %OutputFile%echo.REM --- Header for the CSV file ---(&nbsp; &nbsp; echo &quot;Display Name&quot;,&quot;Install Date&quot;) &gt; &quot;%OutputFile%&quot;REM --- Registry paths to check ---set &quot;RegPaths[0]=HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall&quot;set &quot;RegPaths[1]=HKLM\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall&quot;REM Add more paths if needed, e.g., for HKCU:REM set &quot;RegPaths[2]=HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall&quot;REM set &quot;RegPaths[3]=HKCU\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall&quot;REM --- Process each registry path ---for /L %%N in (0,1,1) do (&nbsp; &nbsp; if defined RegPaths[%%N] (&nbsp; &nbsp; &nbsp; &nbsp; set &quot;CurrentRegPath=!RegPaths[%%N]!&quot;&nbsp; &nbsp; &nbsp; &nbsp; echo Processing: !CurrentRegPath!&nbsp; &nbsp; &nbsp; &nbsp; REM Iterate through each subkey under the Uninstall key&nbsp; &nbsp; &nbsp; &nbsp; for /f &quot;delims=&quot; %%K in ('reg query &quot;!CurrentRegPath!&quot; 2^&gt;nul') do (&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set &quot;KeyName=%%K&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set &quot;DisplayName=&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set &quot;InstallDate=N/A&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; REM Check if it's a valid subkey (not the root path itself)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if not &quot;!KeyName!&quot;==&quot;!CurrentRegPath!&quot; (&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; REM Get DisplayName&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; for /f &quot;tokens=2,*&quot; %%A in ('reg query &quot;!KeyName!&quot; /v DisplayName 2^&gt;nul ^| findstr /R /C:&quot;DisplayName&quot;') do (&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set &quot;DisplayName=%%B&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; )&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; REM Get InstallDate&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; for /f &quot;tokens=2,*&quot; %%A in ('reg query &quot;!KeyName!&quot; /v InstallDate 2^&gt;nul ^| findstr /R /C:&quot;InstallDate&quot;') do (&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set &quot;RawInstallDate=%%B&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; REM Attempt to format YYYYMMDD to YYYY-MM-DD if it looks like it&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if &quot;!RawInstallDate:~8,1!&quot;==&quot;&quot; if &quot;!RawInstallDate:~4,1!&quot; NEQ &quot;-&quot; if &quot;!RawInstallDate:~4,1!&quot; NEQ &quot;/&quot; (&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set &quot;InstallDate=!RawInstallDate:~0,4!-!RawInstallDate:~4,2!-!RawInstallDate:~6,2!&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ) else (&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set &quot;InstallDate=!RawInstallDate!&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; )&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; )&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; REM If DisplayName exists and doesn't look like a Windows Update KB&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if defined DisplayName (&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; echo !DisplayName! | findstr /R /C:&quot;KB[0-9][0-9][0-9][0-9][0-9][0-9]*&quot; &gt;nul&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if errorlevel 1 (&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; echo !DisplayName! | findstr /R /C:&quot;Update for Microsoft&quot; &gt;nul&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if errorlevel 1 (&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; REM Clean quotes from DisplayName before wrapping, just in case&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; set &quot;CleanDisplayName=!DisplayName:&quot;=!&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; set &quot;CleanInstallDate=!InstallDate:&quot;=!&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; (echo &quot;!CleanDisplayName!&quot;,&quot;!CleanInstallDate!&quot;) &gt;&gt; &quot;%OutputFile%&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; )&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; )&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; )&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; )&nbsp; &nbsp; &nbsp; &nbsp; )&nbsp; &nbsp; ))endlocalpause[/CODE]This is a chatgpt generated <img class="smilie smilie--emoji" loading="lazy" alt="💪" title="Flexed biceps&nbsp; &nbsp; :muscle:" src="https://cdn.jsdelivr.net/joypixels/assets/6.6/png/unicode/64/1f4aa.png" data-shortname=":muscle:" /></blockquote>

[QUOTE="LZP1992, post: 30752607, member: 498630"] Save as "script.bat" and run this [CODE] @echo off setlocal enabledelayedexpansion REM --- Configuration --- set "OutputFile=Installed_Software_Report_%date:~-4,4%%date:~-10,2%%date:~-7,2%_%time:~0,2%%time:~3,2%%time:~6,2%.csv" echo Generating CSV report: %OutputFile% echo. REM --- Header for the CSV file --- ( echo "Display Name","Install Date" ) > "%OutputFile%" REM --- Registry paths to check --- set "RegPaths[0]=HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall" set "RegPaths[1]=HKLM\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall" REM Add more paths if needed, e.g., for HKCU: REM set "RegPaths[2]=HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall" REM set "RegPaths[3]=HKCU\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall" REM --- Process each registry path --- for /L %%N in (0,1,1) do ( if defined RegPaths[%%N] ( set "CurrentRegPath=!RegPaths[%%N]!" echo Processing: !CurrentRegPath! REM Iterate through each subkey under the Uninstall key for /f "delims=" %%K in ('reg query "!CurrentRegPath!" 2^>nul') do ( set "KeyName=%%K" set "DisplayName=" set "InstallDate=N/A" REM Check if it's a valid subkey (not the root path itself) if not "!KeyName!"=="!CurrentRegPath!" ( REM Get DisplayName for /f "tokens=2,*" %%A in ('reg query "!KeyName!" /v DisplayName 2^>nul ^| findstr /R /C:"DisplayName"') do ( set "DisplayName=%%B" ) REM Get InstallDate for /f "tokens=2,*" %%A in ('reg query "!KeyName!" /v InstallDate 2^>nul ^| findstr /R /C:"InstallDate"') do ( set "RawInstallDate=%%B" REM Attempt to format YYYYMMDD to YYYY-MM-DD if it looks like it if "!RawInstallDate:~8,1!"=="" if "!RawInstallDate:~4,1!" NEQ "-" if "!RawInstallDate:~4,1!" NEQ "/" ( set "InstallDate=!RawInstallDate:~0,4!-!RawInstallDate:~4,2!-!RawInstallDate:~6,2!" ) else ( set "InstallDate=!RawInstallDate!" ) ) REM If DisplayName exists and doesn't look like a Windows Update KB if defined DisplayName ( echo !DisplayName! | findstr /R /C:"KB[0-9][0-9][0-9][0-9][0-9][0-9]*" >nul if errorlevel 1 ( echo !DisplayName! | findstr /R /C:"Update for Microsoft" >nul if errorlevel 1 ( REM Clean quotes from DisplayName before wrapping, just in case set "CleanDisplayName=!DisplayName:"=!" set "CleanInstallDate=!InstallDate:"=!" (echo "!CleanDisplayName!","!CleanInstallDate!") >> "%OutputFile%" ) ) ) ) ) ) ) endlocal pause [/CODE] This is a chatgpt generated 💪 [/QUOTE]

Verification

Hath warak paha keeyada? (hatha wadikireema paha)

Search

Latest ads

Reply to thread