Theoretisch könnte es so funktionieren:
Delphi-Quellcode:
...
while oEnum.Next(1, FWbemObject, iValue) = 0 do
begin
if (FWbemObject.WriteProtectOn=false) then
Writeln('WriteProtectOn OFF')
else
Writeln('WriteProtectOn ON');
...
aber möglicherweise wird das in neueren WINDOWS-Versionen nicht angewendet, weil es andere Schreibschutzgründe gibt.