Discussion :

[Striper]

Bonjour,

J'aimerai un petit peu d'aide ou avoir quelques pistes pour résoudre mon problème.

J'exécute le script script suivant pour récupérer les informations sur les différents services d'un serveur

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
Const ForAppending = 8
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objLogFile = objFSO.OpenTextFile("p:\temp\service_list.csv", _ 
    ForAppending, True)
 
objLogFile.Write _
    ("System Name,Service Name,Service Type,Service State, Exit " _ 
        & "Code,Process ID,Can Be Paused,Can Be Stopped,Caption," _ 
        & "Description,Can Interact with Desktop,Display Name,Error " _
        & "Control, Executable Path Name,Service Started," _ 
        & "Start Mode,Account Name ") 
objLogFile.Writeline
 
strComputer = Wscript.arguments(0)
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
Set colListOfServices = objWMIService.ExecQuery _
        ("Select * from Win32_Service")
 
For Each objService in colListOfServices
    objLogFile.Write(objService.SystemName) & "," 
    objLogFile.Write(objService.Name) & "," 
    objLogFile.Write(objService.ServiceType) & "," 
    objLogFile.Write(objService.State) & "," 
    objLogFile.Write(objService.ExitCode) & "," 
    objLogFile.Write(objService.ProcessID) & "," 
    objLogFile.Write(objService.AcceptPause) & "," 
    objLogFile.Write(objService.AcceptStop) & "," 
    objLogFile.Write(objService.Caption) & "," 
    objLogFile.Write(objService.Description) & "," 
    objLogFile.Write(objService.DesktopInteract) & "," 
    objLogFile.Write(objService.DisplayName) & "," 
    objLogFile.Write(objService.ErrorControl) & "," 
    objLogFile.Write(objService.PathName) & "," 
    objLogFile.Write(objService.Started) & "," 
    objLogFile.Write(objService.StartMode) & "," 
    objLogFile.Write(objService.StartName) & "," 
    objLogFile.writeline
Next
objLogFile.Close

Ce code provient de "The Portable Script Center" et fonctionne très bien sur quelques serveurs de l'entreprise, mais pas sur tous.

Sur les serveurs qui ne fonctionne pas j'obtiens le message après un certain temps (surement un timeout ) :

Erreur d'exécution Microsoft VBScript: Le serveur distant n'existe pas ou n'est pas disponible: 'GetObject'

Je suis administrateur de tous les serveurs concernés par le script et accède sans problème aux informations via les consoles d'administrations windows.

Tous les serveurs sont en Windows 2003
Quels sont les éléments qui pourraient empêcher l'exécution du script ?

Merci pour votre aide.

[omen999]

bonjour,
ce n'est pas le même langage mais le problème de fond est identique :
http://www.developpez.net/forums/d66...mote-computer/
voir notamment le problème des ports et des services dcom

[Striper]

Merci, je vais explorer de ce côté

[Striper]

Le problème vient du firewall qui bloque les scripts WMI

Merci pour l'aide