Hej Jakob
Tak for dit svar, det var lige hvad der skulle til. Det inspirerede mig til
følgende kode:
------------------------------Kode start--------------------
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<P>
<%
funktion = Request.QueryString("funktion")
Set ServiceSet =
GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_Se
rvice")
for each Service in ServiceSet
if service.name = "awhost32" then
if funktion = "start" then
Response.Write("Forsøger at starte servicen...<br><br>")
service.startService
elseif funktion = "stop" then
Response.Write("Forsøger at stoppe servicen...<br><br>")
service.stopService
else
Response.Write( Service.description &" -- " & Service.state & "<br>" )
end if
end if
Next
%>
</P>
<br>
<A HREF="<%=Request.ServerVariables("SCRIPT_NAME")%>">Status</A><br><br>
<A
HREF="<%=Request.ServerVariables("SCRIPT_NAME")%>?funktion=start">start</A><
br>
<A
HREF="<%=Request.ServerVariables("SCRIPT_NAME")%>?funktion=stop">stop!!</A><
br>
</BODY>
</HTML>
----------------------------Kode slut ------------------------------
Den kan genstarter min PcAnywhere som har det med at gå ned, men det er
såmæn nemt at ændre det så du kan styre services generelt på en maskine.
Husk at dette skal køres med administrator rettigheder.
Mvh
Janus
P.S. Håber ikke nogle bliver sure over den store post, men jeg fandt det
yderst spændende, og tænkte at andre også syntes det
"Jakob Andersen" <jakob@effectus.dk> wrote in message
news:a6nbpg$1l2f$1@news.cybercity.dk...
> Dim objComputer
> Set objComputer = GetObject("WinNT://Computernavn,computer")
> Dim objService
> Set objService = objComputer.GetObject("Service","Navn på service")
> If objService.Status = 1 Then
> objService.Start
> End If