Új hozzászólás Aktív témák

  • brd

    nagyúr

    válasz szatocs1981 #63614 üzenetére

    Ki kell nézni az adott szolgáltatás részleteiből a "Service Name" sorból a szolgáltatás nevét, pl. a képeden az elsőnél AxInstSV lenne. Aztán pl. a következő kódban az első sorban a servicename-et kicserélni arra (idézőjel maradjon):

    strServiceName = "servicename"
    Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
    Set colListOfServices = objWMIService.ExecQuery("Select * from Win32_Service Where Name ='" & strServiceName & "'")
    For Each objService in colListOfServices
    objService.StopService()
    Next

    Mondjuk én ezeket inkább batch-ből oldanám meg (a változó beállítását is, és a szolgáltatás leállítását is), mert úgy 2 sor az egész (vagy 3, ha el is akarod indítani utána a szolgáltatást): ;)

    net stop AxInstSV
    setx /m foo val
    net start AxInstSV

    The only real valuable thing is intuition.

Új hozzászólás Aktív témák