Windows 8 Setup Tool
http://www.chip.de/downloads/Windows-8-Setup-Tool_58242995.html
http://www.chip.de/downloads/Windows-8-Setup-Tool_58242995.html
Folge dem Video um zu sehen, wie unsere Website als Web-App auf dem Startbildschirm installiert werden kann.
Anmerkung: Diese Funktion ist in einigen Browsern möglicherweise nicht verfügbar.
MrToastbrot schrieb:Ja über PC Auffrischen geht das. Die Sache hat aber nur einen Haken: Du brauchst eine normale Windows 8 Installations-DVD. Und die fehlt SigiSchwarz ja.
Fabian228 schrieb:Falsch, man kann auch von einem Windows 8 starten wenn man die Upgrade Software im Kompatibilitätsmodus laufen lässt, ging zumindest unter der RTM Version.
faltermayer schrieb:Ich hab's selber noch nicht gemacht, aber der Witz an der Sache sollte doch sein, dass man die eben nicht braucht...
Viele ältere Key-Finder können den Windows 8 Key nicht korrekt auslesen - die funktionieren nur bis Windows 7. Speichere das folgende in eine Text-Datei und ändere die Endung von TXT nach VBS. Dann starte die VBS-Datei per Doppelklick.SigiSchwarz schrieb:Jetzt hab ich ein Tool zum Auslesen des Product-Keys runtergeladen und habe ihn mir ausgelesen.
Dann hab ich ihn eingetippt und das Programm zum Herunterladen des Images sagte, dass was "Mit dem Key nicht stimmen würde".blockx schrieb:Versuch mal das Tool: Magical Jelly Bean. Damit habe ich auch mein key (von Win 7 ausgelesen).
Set WshShell = CreateObject("WScript.Shell")
Key = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
DigitalID = WshShell.RegRead(key & "DigitalProductId")
ProductName = "Product Name: " & WshShell.RegRead(Key & "ProductName") & vbNewLine
ProductID = "Product ID: " & WshShell.RegRead(Key & "ProductID") & vbNewLine
ProductKey = "Installed Key: " & ConvertToKey(DigitalID)
ProductID = ProductName & ProductID & ProductKey
If vbYes = MsgBox(ProductId & vblf & vblf & "Save to a file?", vbYesNo + vbQuestion, "Windows Key Information") then
Save ProductID
End if
Function ConvertToKey(Key)
Const KeyOffset = 52
isWin8 = (Key(66) \ 6) And 1
Key(66) = (Key(66) And &HF7) Or ((isWin8 And 2) * 4)
i = 24
Chars = "BCDFGHJKMPQRTVWXY2346789"
Do
Cur = 0
X = 14
Do
Cur = Cur * 256
Cur = Key(X + KeyOffset) + Cur
Key(X + KeyOffset) = (Cur \ 24)
Cur = Cur Mod 24
X = X -1
Loop While X >= 0
i = i -1
KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput
Last = Cur
Loop While i >= 0
If (isWin8 = 1) Then
keypart1 = Mid(KeyOutput, 2, Last)
insert = "N"
KeyOutput = Replace(KeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
If Last = 0 Then KeyOutput = insert & KeyOutput
End If
a = Mid(KeyOutput, 1, 5)
b = Mid(KeyOutput, 6, 5)
c = Mid(KeyOutput, 11, 5)
d = Mid(KeyOutput, 16, 5)
e = Mid(KeyOutput, 21, 5)
ConvertToKey = a & "-" & b & "-" & c & "-" & d & "-" & e
End Function
Function Save(Data)
Const ForWRITING = 2
Const asASCII = 0
Dim fso, f, fName, ts
fName = "Windows Key.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile fName
Set f = fso.GetFile(fName)
Set f = f.OpenAsTextStream(ForWRITING, asASCII)
f.Writeline Data
f.Close
End Function
Aber wie verträgt sich das dann mit der Rechtslage in Deutschland (und ich glaube auch Frankreich und Italien), dass man PC und Betriebssystem als separate Bestandteile ansieht und dass man das Betriebssystem separat verkaufen können muss ?AMDUser schrieb:Es gibt bei Geräten von OEM-Herstellern mit Windows 8 keine separat aufgeklebten Keys mehr
Soweit ich mich erinnere war die Vorgabe von Microsoft:AMDUser schrieb:Was ebenfalls dafür spricht, dass sich der ganze Kram irgendwo im UEFI versteckt bzw. dort entsprechende Hash-Werte sich befinden
Desertdelphin schrieb:Gibt es jetzt eine Möglichkeit wie ich Windows 8 sauber installieren