Skripta za gasenje servisa na klientima Windows XP

[ cyber_killer @ 25.12.2008. 14:41 ] @

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.

[ cyber_killer @ 29.12.2008. 08:32 ] @

Nijedne ideje.

[ daigu @ 01.01.2009. 18:00 ] @

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.

[ cyber_killer @ 05.01.2009. 07:49 ] @

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

[ daigu @ 05.01.2009. 19:30 ] @

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.

[ cyber_killer @ 07.01.2009. 10:16 ] @

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

[ cyber_killer @ 07.01.2009. 17:35 ] @

Hvala rjesio sam problem.

[ daigu @ 07.01.2009. 18:44 ] @

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 & "'")

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

Lapsus calami. Fale navodnici nakon &...