NT/2000/XP - Dienste steuern

[doktor-red-bull]

Hi

Wie kann ich unter VB6 die Dienste von Windows steuern ?

Ich habe da zwar einen Ansatz, aber der funktioniert nicht.

Dim ComputerDomain As String
Dim ComputerName As String
ComputerDomain = "WS_JM"
ComputerName = "WS_JM"
Dim Computer
Dim Service
Set Computer = GetObject("WinNT://" & ComputerDomain & "/" & ComputerName & ",computer")
Set Service = Computer.GetObject("service", TargetService)
If Service.Status = 4 Then
Service.Stop
MsgBox "The " & Service.Name & " service has been stopped."
Else
If Service.Status = 1 Then
MsgBox "The " & Service.Name & " service is already stopped."
Service.Start
End If
End If

Hat jmd. vielleicht eine Idee ?

 

[momoxp]

Original geschrieben von doktor-red-bull
Dim Computer
Dim Service

hmm sorry... bin zwar noch anfänger aber muss da nach
dim computer nicht noch was kommen ?
z.B.
dim computer As ****** (string oder so)

 

[III]

Hallo,

muss da nach dim Computer nicht noch was kommen

So deklariert er computer als VARIANT-Wert.

Gruß III

 

[momoxp]

aha...
und was bedeutet variant?