Using Perl set windows scheduler password.

use Win32::TaskScheduler;

my @jobs;
my $schedulers = Win32::TaskScheduler->New();

@jobs = $schedulers->Enum();
foreach (@jobs){

print "$_";

$schedulers->Activate("$_");

my $rtn = $schedulers->SetAccountInformation('DWSERVER\Administrator','set password here');

$rtn += $schedulers->Save();

print "success\n" if $rtn == 2;

print "error\n" if $rtn != 2;
}

check remote server freespace

hehe, just using WMI.

$objWMIService = $objSWbemLocator->ConnectServer($computer,"\\root\\CIMV2",$user,$password) or die "WMI connection failed.\n";
$colItems = $objWMIService->ExecQuery ("SELECT * FROM Win32_LogicalDisk","WQL",wbemFlagReturnImmediately wbemFlagForwardOnly);
foreach my $objItem (in $colItems){
... ...
}