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