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

• #63620 brd nagyúr szatocs1981 #63614

  Új Válasz 2017-09-07 22:38:35 #63620

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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

• #63613 brd nagyúr szatocs1981 #63612

  Új Válasz 2017-09-07 19:17:25 #63613

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  brd

  nagyúr

  válasz szatocs1981 #63612 üzenetére

  Miért nem tudod?
  Még kérni is lehet jogot a scriptnek, ezt tedd az elejére:

  If Not WScript.Arguments.Named.Exists("elevate") Then
CreateObject("Shell.Application").ShellExecute WScript.FullName _
, """" & WScript.ScriptFullName & """ /elevate", "", "runas", 1
WScript.Quit
End If

• #63611 brd nagyúr szatocs1981 #63603

  Új Válasz 2017-09-07 16:31:55 #63611

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  brd

  nagyúr

  válasz szatocs1981 #63603 üzenetére

  Igazi admin jog kell hozzá (tehát emelt szintű):

  Batch-ben: setx /m foo val

  VBS-ben:
  Set objShell = CreateObject("WScript.Shell")
  Set objEnv = objShell.Environment("SYSTEM")
  objEnv("foo") = "val"

  PS-ben:
  [Environment]::SetEnvironmentVariable("foo", "val", "Machine")

• #63604 krealon veterán szatocs1981 #63603

  Új Válasz 2017-09-06 21:15:33 #63604

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  krealon

  veterán

  válasz szatocs1981 #63603 üzenetére

  "Script-tel szeretném módosítani W7 alatt az egyik környezeti változót "

  batch, vbscript, powershell?

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