dienste ab und anschalten

[dave754]

wie man lesen kann will ich ein script erstellen mit dem man mit irgendeiner variable zb. themes einfach ab und anschalten kann
jedoch hat das nicht funktioniert
ich hab jetzt so lang rumgemacht dass es jtzt etwas komisch aussieht
SCRIPT:
Option Explicit
Dim objWMIService, objItem, objService
Dim colListOfServices, strComputer, strService, intSleep, WshShell, Args, i, Params
strComputer = "."
intSleep = 15000

Set WshShell = WScript.CreateObject("WScript.Shell")
Set Args = WScript.Arguments

'On Error Resume Next
' NB strService is case sensitive.
mgsbox strService = " ' " & WScript.Arguments(0) & " ' "
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colListOfServices = objWMIService.ExecQuery _
("Select * from Win32_Service Where Name ="_
& " ' " & WScript.Arguments(0) & " ' " & " ")
For Each objService in colListOfServices

objService.StartSe
rvice()
Next
WScript.Echo "Your "& strService & " service has Started"
WScript.Quit
' End of Example WMI script to Start / Stop services

thx im vorraus
wenns schnell geht noch viel mehr

[Kropff]

Ist leider kein PHP, daher * verschieb *

Peter

[pekka]

In deinem Post ist nicht zu erkennen was dein Problem ist, bzw. was du eigentlich willst.
Abgesehen davon bist Du auf der PHP-Resource mit der Fragestellung nicht am optimalen Ort - dir wird in einem speziellen VB- bzw. VBS-Forum bestimmt besser geholfen.

Ansonsten kann ich dir nur WMI ans Herz legen: Googeln. Es gibt viele Beispiele.