[Perl] Win32API et return code

Win32API et return code [Perl] - Perl - Programmation

Marsh Posté le 02-03-2004 à 21:35:31    

Je tente d'utiliser Win32API pour faire le changement des mots de passe d'usager sur une centaine de machine pour un même user. Mais voilà, le rc est toujours de 0, même si ca ne fonctionne pas (mauvais ancien mot de passe, machine éteinte, ...)
 
si jamais vous pouvez aider, merci
 
voici un exemple (les trucs en commentaires étant des essaies peu fructueux)
 

Code :
  1. use strict;
  2. use Win32API::Net;
  4. my $server = "jacktst";
  5. my $user = "yaberger";
  6. my $old = "test12e";
  7. my $new = "test14e";
  9. my $rc = Win32API::Net::UserChangePassword($server, $user, $old, $new);
  10. print $rc;
  11. #my $gle = Win32::GetLastError();
  12. #print $gle;
  13. #print Win32::FormatMessage($gle);

Reply

Marsh Posté le 02-03-2004 à 21:35:31   

Reply

Marsh Posté le 03-03-2004 à 13:37:19    

up
 
question en plus, ya pas moyen d'utiliser la librairie Win32 sous unix mais vers des poste sur windows?

Reply

Marsh Posté le 03-03-2004 à 15:15:54    

j'ai opté pour un autre module
 
Win32::NetAdmin::UserChangePassword($server, $user, $old, $new);
if (Win32::NetAdmin::GetError()) {
  print Win32::FormatMessage(Win32::NetAdmin::GetError())
}
 
jcrois pas non plus qu'il soit possible d'avoir win32 sous unix alors sujet clos à moins que quelqu'un ait quelque chose à y apporter

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed