Discussion :

[chido]

Bonjour à tous,

J'ai actuellement un problème avec ce fameux spooler d'impression sous Seven (Pour ceux qui connaissent) et je tente de contourner le problème en créant des batch et des scripts vbs pour que l'utilisateur le redémarre facilement en attendant la résolution du problème.

Le problème c'est qu'aucun de mes batch et Script VBS ne fonctionne sous seven alors que sous XP ça fonctionne. (Après de multiple recherche sur le net).

Aller, je mets le dernier code testé :

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
strComputer = "BAI506"
 
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objLanManServer = objWMIService.Get("Win32_Service.Name='spooler'")
 
Set colServiceList = objWMIService.ExecQuery("Associators of " _
    & "{Win32_Service.Name='LanManServer'} Where " _
        & "AssocClass=Win32_DependentService " & _
      "Role=Antecedent" )
 
For Each objService in colServiceList
objService.StopService()   
Next
 
WScript.Sleep 20000
Return = objLanManServer.StopService()
 
WScript.Sleep 10000
Return = objLanManServer.StartService()
 
For Each objService in colServiceList
objService.StartService()   
Next

Il y a peu être un problème avec le strComputer ou le nom du service qui n'est pas le même sous Seven (pourtant j'ai regardé)

Je ne sais pas non plus à quoi correspond \root\cimv2, on dirait du linux....

Merci d'avance !

[cubitus91]

hello,
L'emploi du StrComputer = "." par défaut défini un ordinateur local. Donc, si tu met un nom en général c'est pour accèder à distance.
Apres pour ton problème voici une version allégé mais avec la gestion du code retour.

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
43
44
45
46
47
48
49
50
51
 
Option Explicit 
ManageService
 
Private Function ManageService()
'local Constante
Const intSleep = 15000
Const strComputer = "."
Const strServiceName = "Spooler"
'local var
Dim ObjectWmiService,ColServiceList,ObjectService,intReturnState
Set ObjectWmiService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set ColServiceList = ObjectWmiService.ExecQuery("Select * from Win32_Service where Name='" & strServiceName  & "'")
For Each ObjectService In ColServiceList
 WScript.Echo "Stop Service: " & ObjectService.caption
 intReturnState = ObjectService.StopService() 
 WScript.Echo "Stop Service state is: " & StateOfService(intReturnState)
Next 
End Function 
 
Private Function StateOfService(pintReturnValue)
WScript.Echo pintReturnValue
Select Case pintReturnValue
Case 0 StateOfService = "Success"
Case 1 StateOfService = "Not Supported"
Case 2 StateOfService = "Access Denied"
Case 3 StateOfService = "Dependent Services Running"
Case 4 StateOfService = "Invalid Service Control"
Case 5 StateOfService = "Service Cannot Accept Control"
Case 6 StateOfService = "Service Not Active"
Case 7 StateOfService = "Service Request timeout"
Case 8 StateOfService = "Unknown Failure"
Case 9 StateOfService = "Path Not Found"
Case 10 StateOfService = "Service Already Stopped"
Case 11 StateOfService = "Service Database Locked"
Case 12 StateOfService = "Service Dependency Deleted"
Case 13 StateOfService = "Service Dependency Failure"
Case 14 StateOfService = "Service Disabled"
Case 15 StateOfService = "Service Logon Failed"
Case 16 StateOfService = "Service Marked For Deletion"
Case 17 StateOfService = "Service No Thread"
Case 18 StateOfService = "Status Circular Dependency"
Case 19 StateOfService = "Status Duplicate Name"
Case 20 StateOfService = "Status - Invalid Name"
Case 21 StateOfService = "Status - Invalid Parameter"
Case 22 StateOfService = "Status - Invalid Service Account"
Case 23 StateOfService = "Status - Service Exists"
Case 24 StateOfService = "Service Already Paused"
Case Else StateOfService = "Uknow Code"
End Select 
End Function

Tu fais un arret des dépendances aussi ?

Code :

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

1
2
3
4
5
Set colServiceList = objWMIService.ExecQuery("Associators of " _
    & "{Win32_Service.Name='LanManServer'} Where " _
        & "AssocClass=Win32_DependentService " & _
      "Role=Antecedent" )

je pense que tu as une erreur sur le service name:

Code :

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

1
2
3
4
5
Set colServiceList = objWMIService.ExecQuery("Associators of " _
& "{Win32_Service.Name='spooler'} Where " _
& "AssocClass=Win32_DependentService " & _
"Role=Antecedent" )

Je pense que tu dois avoir un problème d'accès refusé pour ton service.
Cordialement

[Cachlab]

Salut !

Cela fait partie des outils que je conserve (encore) en DOS :

Spooler.cmd

Code :

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

1
2
3
4
ECHO ON
NET STOP SPOOLER /Y
NET START SPOOLER
NET START LPDSVC

Cela fonctionne peut-être encore sous Seven ...

[chido]

Merci cubitus91 je testerais cela dès que la machine seven ce libérera mais sous XP ça fonctionne. Pour le code, je ne comprends pas tous car j'ai pioché par ci par là.

J'ai remarqué que sous XP il n'y a pas de dépendance alors qu'il y en a sous seven...

Cachlab => J'avais essayé ça aussi mais ça ne fonctionne pas sous seven malheureusement (ou alors ça ne fonctionne pas à cause de mon problème).

Je fais un retour après essai ! Encore merci !

[Cachlab]

Salut !
Je n'ai pas de windows 7 sous le coude pour tester ...
Néanmoins, j'ai trouvé un sujet sur le net qui évoque ce souci.
Il semble en effet que ton problème soit lié aux dépendances.

Pourras-tu essayer ceci ?
Spooler.cmd

Code :

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

1
2
3
4
ECHO ON
SC CONFIG SPOOLER DEPEND= RPCSS
NET STOP SPOOLER /Y
NET START SPOOLER

[bolzardp]

Bonsoir

Sur Seven le net stop et net start spooler fonctionne dans un CMD ouvert en tant qu'administrateur le problème vient peut être de la.