Discussion :

[smg257]

Voilà j'ai un petit problème.
Je souhaite me connecter a distance sur un serveur, qui a un mot de passe différent de ma station d'administration.

voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
use strict;
use Win32::OLE('in');
 
 
use constant wbemFlagReturnImmediately => 0x10;
use constant wbemFlagForwardOnly => 0x20;
 
my @computers = ("Serveur_distant");
open FILE,">resultat.txt";
 
foreach my $computer (@computers) {
 
   my $objWMIService = Win32::OLE->GetObject("winmgmts:\\\\$computer\\root\\CIMV2") or die "WMI connection failed.\n";
   my $colItems = $objWMIService->ExecQuery("SELECT * FROM Win32_LogicalDisk", "WQL",

Il faudrait que je rentre juste le login et mot de passe du serveur distant.

merci

[Mr6]

Salut !

Je n'ai jamais testé, mais bon, mon ami google m'a trouvé ca pour toi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Win32::OLE->GetObject("winmgmts:
{impersonationLevel=impersonate}!\\\\$computer\\root\\CIMV2")
or die "WMI connection failed: ".Win32::OLE->LastError()."\n";

Ca t'aidera peut-être

@+
Mr6