Overblog
Editer l'article Suivre ce blog Administration + Créer mon blog

To check if TPM Device is Activated

Publié le par damcuvelier

 

On error resume Next
strComputer = "."
Dim oOsdV4

Set oOsdV4 = CreateObject("Microsoft.SMS.TSEnvironment")
oOsdV4("OSDTPIValue")="FALSE"

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2\Security\MicrosoftTpm")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Tpm",,48)
For Each objItem in colItems
    if objItem.IsActivated_InitialValue=TRUE _
    or objItem.IsEnabled_InitialValue=TRUE _
    or objItem.IsOwned_InitialValue=TRUE then
    oOsdV4("OSDTPIValue")="TRUE"
    end if
Next


'Wscript.Echo "TPIValue = " & TPIValue

Commenter cet article

Retour à l'accueil