Skripta za gasenje servisa na klientima Windows XP

Skripta za gasenje servisa na klientima Windows XP 25.12.2008. u 14:41 · pre 217 meseci #1

Imam jedan servis kojeg bi hteo da ugasim kad je klient u domenu a kad ne da radi normalno. To bi trebala biti neka procedura kratka koju bi poslao preko GPO na laptop kliente.

Mozda u stilu. Klient pinguje DC ako dobije odgovor znači da mora da ugasi servis,ako ne onda da ga ugasi.

Re: Skripta za gasenje servisa na klientima Windows XP 29.12.2008. u 08:32 · pre 216 meseci #2

Nijedne ideje.

Re: Skripta za gasenje servisa na klientima Windows XP 01.01.2009. u 18:00 · pre 216 meseci #3

Ovo je ovako na brzinu sklepano. Samo da dobiješ ideju...

Code:

'Tu upiši ime servisa
scName = ""

'Tu utvrđujem ime DC-a - ako je DC ujedno i DNS, a ako ne može se ručno upisati ime DC-a
Set MyDomain = GetObject("LDAP://RootDSE")
MyDC = MyDomain.Get("dnsHostName")

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & _
    strComputer & "\root\cimv2")

Set objSC = _
    objWMIService.Get("Win32_Service.Name='" & scName & '")

Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colPingedComputers = objWMIService.ExecQuery _
    ("Select * from Win32_PingStatus Where Address = '" & MyDC &'")
For each objComputer in colPingedComputers
    If objComputer.StatusCode = 0 Then
       'Gasim servis
        objSC.StopService()
    Else
       'Ne radim ništa
   End If
Next

Dakle, ovo bi trebala biti startup .vbs skripta pod computer settings u GPO-u koji se primjenjuje na laptope. S time da malo proučiš problematiku primjenjivanja GPO-a na laptopima.

Re: Skripta za gasenje servisa na klientima Windows XP 05.01.2009. u 07:49 · pre 216 meseci #4

Znaci moje je samo da upisem ime servise i to je to.

Re: Skripta za gasenje servisa na klientima Windows XP 05.01.2009. u 19:30 · pre 216 meseci #5

Da. Ali istestiraj prvo ručno na jednom računalu ručno, pa ako radi, onda stavi na group policy...
Da li ti je DC ujedno i DNS? Jer ako nije onda ćeš morati prepraviti skriptu.

Re: Skripta za gasenje servisa na klientima Windows XP 07.01.2009. u 10:16 · pre 216 meseci #6

U line 16 mi javi gresku. Da, DC je i DNS.

Re: Skripta za gasenje servisa na klientima Windows XP 07.01.2009. u 17:35 · pre 216 meseci #7

Hvala rjesio sam problem.

Re: Skripta za gasenje servisa na klientima Windows XP 07.01.2009. u 18:44 · pre 216 meseci #8

Vidim, umjesto:

Code:
objWMIService.Get("Win32_Service.Name='" & scName & '")

i nešto poslije

Code:
("Select * from Win32_PingStatus Where Address = '" & MyDC &'")

treba biti:

Code:
objWMIService.Get("Win32_Service.Name='" & scName & "'")

i

Code:
("Select * from Win32_PingStatus Where Address = '" & MyDC & "'")

Lapsus calami. Fale navodnici nakon &...

Srodne teme