# This code sets the startup delay to 10 seconds.
# ---------------------------------------------------------------
# Adapted from VBScript code contained in the book:
#      "Windows Server Cookbook" by Robbie Allen
# ISBN: 0-596-00633-0
# ---------------------------------------------------------------

use Win32::OLE qw(in);
$Win32::OLE::Warn = 3;

# ------ SCRIPT CONFIGURATION ------
$strComputer = '.';
# e.g. rallen-srv01
# ------ END CONFIGURATION ---------
$objWMI = Win32::OLE->GetObject('winmgmts:\\\\' . $strComputer . '\\root\\cimv2');
$colCompSys = $objWMI->InstancesOf('Win32_ComputerSystem');
foreach my $objCompSys (in $colCompSys) {
    print 'Startup Delay Before: ' . $objCompSys->SystemStartupDelay, "\n";
    $objCompSys->{SystemStartupDelay} = 10;
    $objCompSys->Put_;
    print 'Startup Delay After: ' . $objCompSys->SystemStartupDelay, "\n";
}