Can’t Activate Windows 10 TechP (Error Code 0x800732B)

Here’s an interesting one for you ..

Having recently rebuilt one of my test boxes I found that I could not activate Win10 TechP Build 9926, and received the error code 0x800732B.

The build is supposed to be pre-activated, so this error caused a raised eyebrow, especially as I do not have a KMS installed in my test infrastructure. – I’ve spent enough hours viewing this error code when I initiated a KMS whilst testing Vista & deploying early builds of Win7 in a corporate environment.

Casting my memory back & browsing through my previous build notes, I stumbled across the answer ..

You can use the key.vbs script (Below) to obtain your Windows key, but this will not allow activation …

Press +R (Run)

Type “SLUI 3” – without the quotes & remember to include the space!

This will launch the interface (below)

Enter the license key .. PBHCJ-Q2NYD-2PX34-T2TD6-233PK .. This key is provided for recovery scenarios and cannot be used for normal activation .. which will activate against the Microsoft KMS

You should now be up and running

Copy the script below into Notepad – other text editors are available – & save it as “WinKey.vbs”

Apologies, I am the world’s worst script kiddie – there are plenty of people who will attest to this because they’ve spent hours debugging my buggy attempts at code. The code below was copied from the web. I’ve had it for a while so sadly I cannot say who wrote the code, or remember the website that I copied it from; so if you are the original author I apologise for not being able to give you the credit that you deserve …

Option Explicit

Dim objshell,path,DigitalID, Result

Set objshell = CreateObject(“WScript.Shell”)

‘Set registry key path

Path = “HKLMSOFTWAREMicrosoftWindows NTCurrentVersion”

‘Registry key value

DigitalID = objshell.RegRead(Path & “DigitalProductId”)

Dim ProductName,ProductID,ProductKey,ProductData

‘Get ProductName, ProductID, ProductKey

ProductName = “Product Name: ” & objshell.RegRead(Path & “ProductName”)

ProductID = “Product ID: ” & objshell.RegRead(Path & “ProductID”)

ProductKey = “Installed Key: ” & ConvertToKey(DigitalID)

ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey

‘Show messbox if save to a file

If vbYes = MsgBox(ProductData & vblf & vblf & “Save to a file?”, vbYesNo + vbQuestion, “BackUp Windows Key Information”) then

Save ProductData

End If

‘Convert binary to chars

Function ConvertToKey(Key)

Const KeyOffset = 52

Dim isWin8, Maps, i, j, Current, KeyOutput, Last, keypart1, insert

‘Check if OS is Windows 8

isWin8 = (Key(66) 6) And 1

Key(66) = (Key(66) And &HF7) Or ((isWin8 And 2) * 4)

i = 24



Current= 0

j = 14


Current = Current* 256

Current = Key(j + KeyOffset) + Current

Key(j + KeyOffset) = (Current 24)

Current=Current Mod 24

j = j -1

Loop While j >= 0

i = i -1

KeyOutput = Mid(Maps,Current+ 1, 1) & KeyOutput

Last = Current

Loop While i >= 0

keypart1 = Mid(KeyOutput, 2, Last)

insert = “N”

KeyOutput = Replace(KeyOutput, keypart1, keypart1 & insert, 2, 1, 0)

If Last = 0 Then KeyOutput = insert & KeyOutput

ConvertToKey = Mid(KeyOutput, 1, 5) & “-” & Mid(KeyOutput, 6, 5) & “-” & Mid(KeyOutput, 11, 5) & “-” & Mid(KeyOutput, 16, 5) & “-” & Mid(KeyOutput, 21, 5)

End Function

‘Save data to a file

Function Save(Data)

Dim fso, fName, txt,objshell,UserName

Set objshell = CreateObject(“”)

‘Get current user name

UserName = objshell.ExpandEnvironmentStrings(“%UserName%”)

‘Create a text file on desktop

fName = “C:Users” & UserName & “DesktopWindowsKeyInfo.txt”

Set fso = CreateObject(“Scripting.FileSystemObject”)

Set txt = fso.CreateTextFile(fName)

txt.Writeline Data


End Function


Leave a Reply

Fill in your details below or click an icon to log in: Logo

You are commenting using your account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s