W
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);
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);