Create Endorsement Key Pair (WMI)

[JBond]

Dear Friends!

I need a programm to create the EndorsementKeyPair on my notebooks.

EKP can be created by starting the WMI-Function "CreateEndorsementKeyPair".

Following script:

MsgBox(0,"Start","Start of Skript")

; get the WIM object
$objWMIService = ObjGet("WinMgmts:{impersonationLevel=impersonate,AuthenticationLevel=pktprivacy}//" & "." & "\root\CIMV2\Security\MicrosoftTpm")
$objTPMwmi = $objWMIService.InstancesOf("Win32_Tpm")

Dim $ReturnPresent
Dim $ReturnCreate
Dim $objSetting

For $objSetting In $objTPMwmi
$settingEK = $objSetting.IsEndorsementKeyPairPresent($ReturnPresent)

MsgBox(0,"Text","For Check: IsEndorsementKeyPresent Value($ReturnPresent) should be False(0) if Not available: " & $ReturnPresent)
MsgBox(0,"Text","For Check2: IsEndorsementKeyPresent Return($settingEK) should be 0 if run: " & $settingEK)
Next


If $ReturnPresent = 1 Then ; <== Means EKP is available
MsgBox(0,"text","ReturnCode ReturnPresent = TRUE (1) - EK available " & $ReturnPresent)
ElseIf $ReturnPresent = 0 Then ; <== Means EKP NOT available
MsgBox(0,"text","ReturnCode ReturnPresent = FALSE (0) - EK NOT available " & $ReturnPresent)
MsgBox(0,"text","I now create the EndorsementKeyPair")

$settingCR = $objSetting.CreateEndorsementKeyPair($ReturnCreate)
MsgBox(0,"Text","I created the EKP. Return Code of $ReturnCreate: " & $ReturnCreate)
MsgBox(0,"Text","I created the EKP. Return Code of the methode: " & $settingCR)
EndIf

MsgBox(0,"End","End of script")

Evereything is running fine up to "MsgBox(0,"text","I now create the EndorsementKeyPair")"

But then it's telling me "Line 24: Error: Variable must be of type "object".

Could you help me out, please?

[ripdad]

untested with no error checking. It should point you in the right direction.

MsgBox(0, "Start", "Start of Skript")

; get the WIM object

Local $objWMIService = ObjGet("Winmgmts:{ImpersonationLevel=Impersonate,AuthenticationLevel=PktPrivacy,(Debug,Security)}!.rootCIMV2SecurityMicrosoftTpm")

Local $objTPMwmi = $objWMIService.InstancesOf("Win32_Tpm")

Local $ReturnPresent

For $objSetting In $objTPMwmi
    $objSetting.IsEndorsementKeyPairPresent($ReturnPresent)
    If $ReturnPresent Then
        MsgBox(0, "text", "ReturnCode ReturnPresent = TRUE (1) - EK available: " & $ReturnPresent)
    Else
        ;Method: CreateEndorsementKeyPair()
        ;Quote: "This method has no parameters."
        ;Source: "http://msdn.microsoft.com/en-us/library/windows/desktop/aa376422(v=vs.85).aspx"
        If $objSetting.CreateEndorsementKeyPair() Then
            MsgBox(0, "text", "An endorsement key pair already exists on this TPM.")
        Else
            MsgBox(0, "text", "An endorsement key pair was successfully created."); A return of 0 = Success
        EndIf
    EndIf
Next

MsgBox(0, "End", "End of script")