Hi,
rchiav's link shows how to create a new process - you can get the remote workstations 'handle' as follows.
#In a "Workstation" module...
sub get_wmi {
my $self = shift;
my $name = $self->name or do {
warn("Cannot return WMI handle for anonymous workstati
+on.\n");
return 0;
};
use Win32::OLE ;
my $wmi = Win32::OLE->GetObject( "winmgmts:{impersonationLevel
+=impersonate,(security)}//$name");
if ($wmi) {
return $wmi;
}else{
return 0;
}
}
You can then use that handle to start/stop processes on remote machines or list shares etc.
- Mark |