ole, wmi, what the hell did I change?

[woof]

Here's my very first stab at wmi. What did I change? I was trying
to change SystemStartupDelay in Win32_ComputerSystem.Name=WX4
The wmi browser says I changed nothing. If I run this and read
only, it says I did.... change something. I get the "55".
Thanks.

use Win32::OLE;

$wmi = Win32::OLE->GetObject("winmgmts:{impersonationLevel=impersonate,
(security)}//./") || die;

($obj = $wmi->Get("Win32_ComputerSystem")) || die;

# commented out and run again to check for change.
#$obj->{"SystemStartupDelay"} = "55";
#$obj->Put_();

$s = $obj->{"SystemStartupDelay"};
print qq(Is the new value $s\n);

 

[Ivan Brugiolo [MSFT]]

I'm not familiar woth PERL,
but the code below is changing the default value on the class and not the
value on the instance.
Is this expected and intended ?

 

[woof]

I forgot the key value. It should have been
($obj = $wmi->Get("Win32_ComputerSystem.Name='ComputerNameHere'")) || die;
Thanks - I'm a little further now.