Seven ne veut pas démarrer mes services avec VBS

Version imprimable

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:

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 !

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:

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:

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:

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

15/05/2012, 16h38
Cachlab
Salut !

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

Spooler.cmd
Code:

1 2 3 4 ECHO ON NET STOP SPOOLER /Y NET START SPOOLER NET START LPDSVC
Cela fonctionne peut-être encore sous Seven ...
16/05/2012, 10h34
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 !
16/05/2012, 11h58
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:

1 2 3 4 ECHO ON SC CONFIG SPOOLER DEPEND= RPCSS NET STOP SPOOLER /Y NET START SPOOLER
19/05/2012, 01h53
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. :roll: