Software inventarisatie batch file WinNT

Batchfile voor WinNT om automatisch alle filenamen met gewenste extenties die op een computer staan te verzamelen en naar een textfile te schrijven.

@echo off :: Batchfile om een software inventarisatie te maken van een computer :: written by Ad Slijkerman with thanks to Stan van Mortel :: Instellen van path naar systeem-batchfiles set logdir=\\ethanol\system\inventarisatie set logfile=NUL; set choice=\\ethanol\system\inventarisatie\choice.exe :: Stel klok gelijk net time \\helium /set /yes > NUL :: Bepaal Besturingssysteem if '%OS%' == 'Windows_NT' goto verder call \\ethanol\system\inventarisatie\sw_inv98.bat goto einde :verder :: Toon bericht echo --------------------------------------------------------- echo Welkom %username% echo U bent ingelogd op '%computername%', een %OS%-computer. echo Momenteel is het %date% %time%. echo --------------------------------------------------------- echo. :: Gebruikers input :: variabelen leeg maken set serienummer= set serienummer2= :keuze cls echo TYPE HET MACHINE-NUMMER  ECHO (GEBRUIK HOOFDLETTERS EN EINDIG MET EEN *:) echo %serienummer%%choice% /c:1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ* /n if ERRORLEVEL 1 set serienummer2=1 if ERRORLEVEL 2 set serienummer2=2 if ERRORLEVEL 3 set serienummer2=3 if ERRORLEVEL 4 set serienummer2=4 if ERRORLEVEL 5 set serienummer2=5 if ERRORLEVEL 6 set serienummer2=6 if ERRORLEVEL 7 set serienummer2=7 if ERRORLEVEL 8 set serienummer2=8 if ERRORLEVEL 9 set serienummer2=9 if ERRORLEVEL 10 set serienummer2=0 if ERRORLEVEL 11 set serienummer2=A if ERRORLEVEL 12 set serienummer2=B if ERRORLEVEL 13 set serienummer2=C if ERRORLEVEL 14 set serienummer2=D if ERRORLEVEL 15 set serienummer2=E if ERRORLEVEL 16 set serienummer2=F if ERRORLEVEL 17 set serienummer2=G if ERRORLEVEL 18 set serienummer2=H if ERRORLEVEL 19 set serienummer2=I if ERRORLEVEL 20 set serienummer2=J if ERRORLEVEL 21 set serienummer2=K if ERRORLEVEL 22 set serienummer2=L if ERRORLEVEL 23 set serienummer2=M if ERRORLEVEL 24 set serienummer2=N if ERRORLEVEL 25 set serienummer2=O if ERRORLEVEL 26 set serienummer2=P if ERRORLEVEL 27 set serienummer2=Q if ERRORLEVEL 28 set serienummer2=R if ERRORLEVEL 29 set serienummer2=S if ERRORLEVEL 30 set serienummer2=T if ERRORLEVEL 31 set serienummer2=U if ERRORLEVEL 32 set serienummer2=V if ERRORLEVEL 33 set serienummer2=W if ERRORLEVEL 34 set serienummer2=X if ERRORLEVEL 35 set serienummer2=Y if ERRORLEVEL 36 set serienummer2=Z set serienummer=%serienummer%%serienummer2% if not ERRORLEVEL 37 goto keuze :: serienummer in textfile op machine zetten (in root) echo %serienummer% > c:\Machinnr.txt :: Toon bericht echo. echo uw Machine-nummer is dus : %serienummer% echo. :: logfile definieren & filename creeren voor .exe files set logfile=softw_invent_%serienummer%_%date%.txt dir c:\*.exe /S /TA >> %logdir%\%logfile% net use | find "D:" >NUL if NOT ERRORLEVEL 0 goto end if NOT exist d:\NUL goto end if NOT ERRORLEVEL 0 goto end dir d:\*.exe /S /TA >> %logdir%\%logfile% ::net use | find "E:" >NUL ::if NOT ERRORLEVEL 0 goto end ::if NOT exist e:\NUL goto end dir e:\*.exe /S /TA >> %logdir%\%logfile% :: nu de .com files verzamelen :: set logfile=softw_invent_com_%serienummer%_%date%.txt dir c:\*.com /S /TA >> %logdir%\%logfile% net use | find "D:" >NUL if NOT ERRORLEVEL 0 goto end if NOT exist d:\NUL goto end if NOT ERRORLEVEL 0 goto end dir d:\*.com /S /TA >> %logdir%\%logfile% ::net use | find "E:" >NUL ::if NOT ERRORLEVEL 0 goto end ::if NOT exist e:\NUL goto end dir e:\*.com /S /TA >> %logdir%\%logfile% :: nu de .bat files verzamelen :: set logfile=softw_invent_bat_%serienummer%_%date%.txt dir c:\*.bat /S /TA >> %logdir%\%logfile% net use | find "D:" >NUL if NOT ERRORLEVEL 0 goto end if NOT exist d:\NUL goto end if NOT ERRORLEVEL 0 goto end dir d:\*.bat /S /TA >> %logdir%\%logfile% ::net use | find "E:" >NUL ::if NOT ERRORLEVEL 0 goto end ::if NOT exist e:\NUL goto end dir e:\*.bat /S /TA >> %logdir%\%logfile% :: nu de .bas files verzamelen :: set logfile=softw_invent_bas_%serienummer%_%date%.txt dir c:\*.bas /S /TA >> %logdir%\%logfile% net use | find "D:" >NUL if NOT ERRORLEVEL 0 goto end if NOT exist d:\NUL goto end if NOT ERRORLEVEL 0 goto end dir d:\*.bas /S /TA >> %logdir%\%logfile% ::net use | find "E:" >NUL ::if NOT ERRORLEVEL 0 goto end ::if NOT exist e:\NUL goto end dir e:\*.bas /S /TA >> %logdir%\%logfile% :: nu de .dll files verzamelen :: set logfile=softw_invent_dll_%serienummer%_%date%.txt dir c:\*.dll /S /TA >> %logdir%\%logfile% net use | find "D:" >NUL if NOT ERRORLEVEL 0 goto end if NOT exist d:\NUL goto end if NOT ERRORLEVEL 0 goto end dir d:\*.dll /S /TA >> %logdir%\%logfile% ::net use | find "E:" >NUL ::if NOT ERRORLEVEL 0 goto end ::if NOT exist e:\NUL goto end dir e:\*.dll /S /TA >> %logdir%\%logfile% :: nu de .inf files verzamelen :: set logfile=softw_invent_inf_%serienummer%_%date%.txt dir c:\*.inf /S /TA >> %logdir%\%logfile% net use | find "D:" >NUL if NOT ERRORLEVEL 0 goto end if NOT exist d:\NUL goto end if NOT ERRORLEVEL 0 goto end dir d:\*.inf /S /TA >> %logdir%\%logfile% ::net use | find "E:" >NUL ::if NOT ERRORLEVEL 0 goto end ::if NOT exist e:\NUL goto end dir e:\*.inf /S /TA >> %logdir%\%logfile% :: nu de .ini files verzamelen :: set logfile=softw_invent_ini_%serienummer%_%date%.txt dir c:\*.ini /S /TA >> %logdir%\%logfile% net use | find "D:" >NUL if NOT ERRORLEVEL 0 goto end if NOT exist d:\NUL goto end if NOT ERRORLEVEL 0 goto end dir d:\*.ini /S /TA >> %logdir%\%logfile% ::net use | find "E:" >NUL ::if NOT ERRORLEVEL 0 goto end ::if NOT exist e:\NUL goto end dir e:\*.ini /S /TA >> %logdir%\%logfile% :: nu de .sys files verzamelen :: set logfile=softw_invent_sys_%serienummer%_%date%.txt dir c:\*.sys /S /TA >> %logdir%\%logfile% net use | find "D:" >NUL if NOT ERRORLEVEL 0 goto end if NOT exist d:\NUL goto end if NOT ERRORLEVEL 0 goto end dir d:\*.sys /S /TA >> %logdir%\%logfile% ::net use | find "E:" >NUL ::if NOT ERRORLEVEL 0 goto end ::if NOT exist e:\NUL goto end dir e:\*.sys /S /TA >> %logdir%\%logfile% :: nu de .scp files verzamelen :: set logfile=softw_invent_scp_%serienummer%_%date%.txt dir c:\*.scp /S /TA >> %logdir%\%logfile% net use | find "D:" >NUL if NOT ERRORLEVEL 0 goto end if NOT exist d:\NUL goto end if NOT ERRORLEVEL 0 goto end dir d:\*.scp /S /TA >> %logdir%\%logfile% ::net use | find "E:" >NUL ::if NOT ERRORLEVEL 0 goto end ::if NOT exist e:\NUL goto end dir e:\*.scp /S /TA >> %logdir%\%logfile% :: nu de .js javascript files verzamelen :: set logfile=softw_invent_js_%serienummer%_%date%.txt dir c:\*.js /S /TA >> %logdir%\%logfile% net use | find "D:" >NUL if NOT ERRORLEVEL 0 goto end if NOT exist d:\NUL goto end if NOT ERRORLEVEL 0 goto end dir d:\*.js /S /TA >> %logdir%\%logfile% ::net use | find "E:" >NUL ::if NOT ERRORLEVEL 0 goto end ::if NOT exist e:\NUL goto end dir e:\*.js /S /TA >> %logdir%\%logfile% :: nu de .vbs files verzamelen :: set logfile=softw_invent_vbs_%serienummer%_%date%.txt dir c:\*.vbs /S /TA >> %logdir%\%logfile% net use | find "D:" >NUL if NOT ERRORLEVEL 0 goto end if NOT exist d:\NUL goto end if NOT ERRORLEVEL 0 goto end dir d:\*.vbs /S /TA >> %logdir%\%logfile% ::net use | find "E:" >NUL ::if NOT ERRORLEVEL 0 goto end ::if NOT exist e:\NUL goto end dir e:\*.vbs /S /TA >> %logdir%\%logfile% :: nu de .dat files verzamelen :: set logfile=softw_invent_dat_%serienummer%_%date%.txt dir c:\*.dat /S /TA >> %logdir%\%logfile% net use | find "D:" >NUL if NOT ERRORLEVEL 0 goto end if NOT exist d:\NUL goto end if NOT ERRORLEVEL 0 goto end dir d:\*.dat /S /TA >> %logdir%\%logfile% ::net use | find "E:" >NUL ::if NOT ERRORLEVEL 0 goto end ::if NOT exist e:\NUL goto end dir e:\*.dat /S /TA >> %logdir%\%logfile% :end :einde exit

Reacties & suggesties : adjes@startmail.nl