Bonjour
voila j'ai un fichier excel ou j'ai les serveurs (colonne hostname) et les services (colonne service) que je dois testé (running), je le fait en a travers une commande dos utilisant "netsvc.exe", j'ai essayé aussi "sc" pareil.
En local cela fonctionne (iis est en authentifié windows) en local (testé des services sur la machine en local), mais des que je veux testé des machines du domaine je reçoit "error code 5 access denied".
J'ai essayé en donnant a iusr_machine, iwan_machine etc. les droits admin sur le répertoire du site, j'ai mis mon user (groupe admin domain) en tant que user anonyme ou user authentifié = toujours pareil.
si vous avez une idée.
je vous donne le code:
<% @language=vbscript %>
<% Response.Buffer = true %>
<%
Set MyShell = CreateObject("WScript.Shell")
Set MyFiles = CreateObject("Scripting.FileSystemObject")
Dim w,rs,Conn,y,x
'connection a la base de donnée
Set Conn = server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath(".") & "\servicetest.xls" & ";" & "Extended Properties=""Excel 8.0;HDR=YES;"""
Set rs = server.CreateObject("ADODB.Recordset")
rs.Open "Select * from nounou", Conn, 1, 3
rs.movefirst
do while not rs.eof
w = rs("hostname")
x = rs("service")
Set objWShell = CreateObject("WScript.Shell")
Set objCmd = objWShell.Exec("c:\netsvc " & x & " \\" & w & " /query")
strPResult = objCmd.StdOut.Readall()
set objCmd = nothing: Set objWShell = nothing
strPResult = replace(strPResult,"Service is stopped on \\" & w,"1")
strPResult = replace(strPResult,"Service is running on \\" & w,"2")
if strPResult = 1 then
rs("etat") = "arreté"
else
rs("etat") = "en cours"
end if
rs.movenext
Loop
'fermeture de la base et des connections creer
rs.close
set rs=nothing
Conn.close
set Conn=nothing
%>
Si une lumière avisé voit ma faute ou ces comments paramétré les droits pour que cela fonctionne je suis preneur, même les critiques (toutes critiques sont bonnes a prendre pour progresser). 
angenoir999 