Um die Werte weiterverarbeiten zu können, habe ich mir ein VBS-Skript erstellt, dass ich euch gerne auch zu Verfügung stellen möchte.
' TPM auslesen Set wmi1 = GetObject("winmgmts:{impersonationLevel=impersonate,authenticationLevel=pktPrivacy}!root\cimv2\Security\MicrosoftTPM") set TPM = wmi1.ExecQuery("SELECT * FROM Win32_Tpm") Set TPM_Import = TPM.ItemIndex(0) Msgbox "TPM-Spezifikation: " & TPM_Import.SpecVersion Msgbox "TPM-Chip initialisiert: " & TPM_Import.IsEnabled_InitialValue Msgbox "TPM-Owner-Kennwort gesetzt: " & TPM_Import.IsOwned_InitialValue
' Bitlocker auslesen Set wmi2 = GetObject("winmgmts:{impersonationLevel=impersonate,authenticationLevel=pktPrivacy}!root\cimv2\Security\MicrosoftVolumeEncryption") set VOL = wmi2.ExecQuery("SELECT * FROM Win32_EncryptableVolume") Set VOL_Import = VOL.ItemIndex(0) Msgbox "Partition: " & VOL_Import.DriveLetter Msgbox "Verschlüsselung aktiviert: " & VOL_Import.ProtectionStatus
Diese muss wie bereits im vorherigen Artikel beschrieben mit administrativen Rechten ausgeführt werden.