SiComponents Forums

[richardd]

Hi all,

I have a routine to change the password on Scheduled Tasks.
Seems to have a problem on Vista.

function TMainForm.ChangeTaskPasswords(const AComputerName, AUserName, APassword: String): Boolean;
// NOTE: Unlike with Services, which uses .\account for local accounts, Scheduled Tasks seem to use
// computername\account.
var
TaskScheduler: TTaskScheduler;
Index: Integer;
LogEntry: String;
ErrorMessage: String;
begin
Result := True;
try
TaskScheduler := TTaskScheduler.Create( nil );
try
TaskScheduler.AutoRefresh := False;
TaskScheduler.Duplicate := tdError;
TaskScheduler.Active := True;
TaskScheduler.TargetComputer := '\\' + AComputerName;
TaskScheduler.UseTaskScheduler1Only := True;
TaskScheduler.Refresh;

for Index := 0 to TaskScheduler.Count - 1 do begin
// Apparently the following call lets us access task properties:

try
TaskScheduler.Items[ Index ].Activate;

if AnsiSameText( TaskScheduler.Items[ Index ].AccountName, AComputerName + '\' + AUserName ) then
begin

// Log the action
LogEntry := Format( 'Changing Password for Task: %0:s', [ TaskScheduler.Items[ Index ].Name ] );
LogAndAddProgress( LogEntry );

TaskScheduler.Items[ Index ].SetAccountInformation( TaskScheduler.TargetComputer {AComputerName} + '\' + AUserName, APassword );
TaskScheduler.Items[ Index ].Save; // when I get here, I always get the error "Access Denied" (I do have the proper remote firewall settings on the Vista machine I am trying to change)

// Log the success
LogEntry := Format( 'Task Password Change (Success) | Task: %0:s',
[ TaskScheduler.Items[ Index ].Name ]);
LogAndAddProgress( LogEntry );
end;

except
on E: Exception do begin
// Log the failure
ErrorMessage := SysErrorMessage( GetLastError );
LogEntry := Format( 'Task Password Change (Failed) | Task: %0:s | Error: %1:s',
[ TaskScheduler.Items[ Index ].Name, ErrorMessage ]);
LogAndAddProgress( LogEntry );
end;
end;
end;
finally
TaskScheduler.Free;
end;
except
Result := False;
end;
end;

Any thoughts/suggestions?

[isiticov]

Hi,

Please try to set

[richardd]

Thanks for the tips, but unfortunately, it did not solve the issue.
I still get the "Access Denied" error.

It works great when running from an XP machine to an XP machine but doesn't work from XP to Vista.

As anybody ever got this to work?
If so, got any code snippet to demonstrate?

Thanks in advance.

[richardd]

More findings:

I tried creating a new task on a remote Vista machine using the demo and I get the same error message (Access Denied).

I know I have firewall settings correct (Remote Task Management, etc) but still get that error on remote Vista machine (the app is running on XP).

I notice in a few places that the code path changes depending on if the current machine is on XP or Vista and above. Shouldn't we check the version of the remote computer not the machine where we run the app from?

Need help on this please.

[isiticov]

Do you have Administrator access rights for Vista PC when you connect to it?

[richardd]

Yes I am an administrator on the remote Vista machine.

[isiticov]

From MSDN: