Script perl connexion à distance sur un serveur.
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:
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
