HKEY_LOCAL_MACHINE = &H80000002

strComputer = "."

Set ObjRegistry = _

    GetObject("winmgmts:{impersonationLevel = impersonate}!\\" _

    & strComputer & "\root\default:StdRegProv")

strPath = "SOFTWARE\MyKey\MySubKey"

Return = objRegistry.CreateKey(HKEY_LOCAL_MACHINE, strPath)

If Return <> 0 Then

    WScript.Echo "The operation failed." & Err.Number

    WScript.Quit

Else

    wScript.Echo "New registry key created" & VBCRLF _

        & "HKLM\SOFTWARE\MYKey\"

End If