7 lines
298 B
Plaintext
7 lines
298 B
Plaintext
for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("win32_WindowsProductActivation")
|
|
if Obj.ActivationRequired <> 0 then
|
|
'If necessary, save/set proxy
|
|
Obj.ActivateOnline()
|
|
'If necessary, restore proxy
|
|
end if
|
|
next |