Windows Produkt Aktivierung (WPA)

Eintrag zuletzt aktualisiert am: 14.10.2004

Mit Hilfe der Klasse Win32_WindowsProductActivation kann geprüft werden, ob die Windows Produkt Aktivierung (WPA) bereits ausgeführt wurde. Mit der Methode ActivateOnline() kann die Online-Aktivierung gestartet werden.

Const COMPUTER = "."
Dim WPA
Set WPA = WMIGetFirstObject(COMPUTER, "\root\cimv2", "Win32WindowsProductActivation")

If WPA.ActivationRequired = 0 Then
say "Dieses Produkt ist bereits aktiviert!"
Else
say "Produkt wird aktiviert..."
WPA.ActivateOnline
End If

Sind die Inhalte hilfreich?