@echo off
cd /d %0\..
mode con lines=80 cols=160
setlocal enableDelayedExpansion
pushd
for /F %%i in ('cd^|findstr ":"') do set ibin=%%i
echo|set /p=
title #################Reinis-PC-Information##################
echo\ 
echo Bitte Geduld, Informationen werden ermittelt
echo\
:Nein
set "Pfad="
set /p Pfad=In welchen Ordner sollen die Informationen gesammelt werden? Default = ".\reinis-pc-info-temp":
IF not defined Pfad set Pfad=%ibin%\reinis-pc-info-temp
if not exist "%Pfad%" goto Ja
echo %Pfad% ist nicht leer!
:nochmal
set /p wahl=Trotzdem verewenden [j/n]?
if '%wahl%' == 'n' goto Nein
if '%wahl%' == 'j' goto Ja
goto :nochmal
:Ja
echo\
echo Subordner %Pfad% wird verwendet.
echo\
echo Informationserstellung kann mehrere Minuten dauern .....
echo\
for /F %%i in ('wmic os get muilanguages ^| findstr {') do set Spra=%%i
set Sprache=%Spra:~2,5%
rmdir /s /q %Pfad% 2>NUL
mkdir %Pfad%
set outdir=%Pfad%
for /f "skip=1 tokens=2 delims=," %%a in ('wmic alias list brief /format:"%WINDIR%\System32\wbem\%Sprache%\csv"^|findstr -V Software^|findstr -V Produkt^|findstr -V FSDir^|findstr -V DataFile^|findstr -V Server^|findstr -V NTEvent') do wmic %%a list full /format:"%WINDIR%\System32\wbem\%Sprache%\hform" 2>NUL > %outdir%\%%a.html
echo Set WshShell = CreateObject("WScript.Shell") > %outdir%\serial.vbs
echo Set objStdOut = WScript.StdOut >> %outdir%\serial.vbs
echo objStdOut.Write ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId")) >> %outdir%\serial.vbs
echo\ >> %outdir%\serial.vbs 
echo Function ConvertToKey(Key) >> %outdir%\serial.vbs
echo Const KeyOffset = 52 >> %outdir%\serial.vbs
echo i = 28 >> %outdir%\serial.vbs
echo Chars = "BCDFGHJKMPQRTVWXY2346789" >> %outdir%\serial.vbs
echo Do >> %outdir%\serial.vbs
echo Cur = 0 >> %outdir%\serial.vbs
echo x = 14 >> %outdir%\serial.vbs
echo Do >> %outdir%\serial.vbs
echo Cur = Cur * 256 >> %outdir%\serial.vbs
echo Cur = Key(x + KeyOffset) + Cur >> %outdir%\serial.vbs
echo Key(x + KeyOffset) = (Cur \ 24) And 255 >> %outdir%\serial.vbs
echo Cur = Cur Mod 24 >> %outdir%\serial.vbs
echo x = x -1 >> %outdir%\serial.vbs
echo Loop While x ^>= 0 >> %outdir%\serial.vbs
echo i = i -1 >> %outdir%\serial.vbs
echo ^KeyOutput ^= Mid(Chars, Cur + 1, 1) ^& ^KeyOutput >> %outdir%\serial.vbs
echo If (((29 - i) Mod 6) ^= 0) And (i ^<^> -1) Then >> %outdir%\serial.vbs
echo i ^= i ^-1 >> %outdir%\serial.vbs
echo ^KeyOutput ^= "-" ^& ^KeyOutput >> %outdir%\serial.vbs
echo End If >> %outdir%\serial.vbs
echo Loop While i ^>^= 0 >> %outdir%\serial.vbs
echo ConvertToKey = KeyOutput >> %outdir%\serial.vbs
echo End Function >> %outdir%\serial.vbs
for /F %%i in ('cscript.exe %outdir%\serial.vbs') do set serial=%%i
echo ^<HTML^>^<BODY^> > %outdir%\serial.html
echo ^<FONT SIZE="5"^>Windows-Serien-Nummer:^<^/FONT^>^<^/BR^> >> %outdir%\serial.html
echo ^<FONT SIZE="4"^>%serial%^<^/FONT^> >> %outdir%\serial.html
echo ^<^/BODY^>^<^/HTML^> >> %outdir%\serial.html
del %outdir%\serial.vbs
echo ^<HTML^>^<BODY^> > %outdir%\index.html
echo ^<font color=#000000^>^<marquee bgcolor=#a0aff^>Reinis-PC-Information^<^/marquee^>^<^/font^> >> %outdir%\index.html
echo ^<^/BR^> >> %outdir%\index.html
echo ^<^/BR^> >> %outdir%\index.html
for /f "delims=" %%i in ('dir /s /b %outdir%\^|findstr -V index.html') do if %%~zi geq 200 echo ^<a href="%%~ni.html" ^>%%~ni^<^/^>^<^/BR^> >> %outdir%\index.html
echo ^<a href="serial.html" ^>SerialNummer^<^/^>^<^/BR^> >> %outdir%\index.html
echo ^<^/HTML^>^</BODY^> >> %outdir%\index.html
start %outdir%\index.html