Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Skripta za gasenje servisa na klientima Windows XP

[es] :: Skript jezici :: Skripta za gasenje servisa na klientima Windows XP

[ Pregleda: 3178 | Odgovora: 7 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

cyber_killer

Član broj: 90634
Poruke: 95
*.dial-up.dsl.siol.net.



Profil

icon Skripta za gasenje servisa na klientima Windows XP25.12.2008. u 14:41 - pre 141 meseci
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.
 
Odgovor na temu

cyber_killer

Član broj: 90634
Poruke: 95
*.src.si.



Profil

icon Re: Skripta za gasenje servisa na klientima Windows XP29.12.2008. u 08:32 - pre 141 meseci
Nijedne ideje.
 
Odgovor na temu

daigu
System Engineer Wannabee, Non IT corp.

Član broj: 172424
Poruke: 19
87.252.129.*



+1 Profil

icon Re: Skripta za gasenje servisa na klientima Windows XP01.01.2009. u 18:00 - pre 141 meseci
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.
 
Odgovor na temu

cyber_killer

Član broj: 90634
Poruke: 95
*.src.si.



Profil

icon Re: Skripta za gasenje servisa na klientima Windows XP05.01.2009. u 07:49 - pre 141 meseci
Znaci moje je samo da upisem ime servise i to je to.
 
Odgovor na temu

daigu
System Engineer Wannabee, Non IT corp.

Član broj: 172424
Poruke: 19
93.159.94.*



+1 Profil

icon Re: Skripta za gasenje servisa na klientima Windows XP05.01.2009. u 19:30 - pre 141 meseci
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.
 
Odgovor na temu

cyber_killer

Član broj: 90634
Poruke: 95
*.gov.si.



Profil

icon Re: Skripta za gasenje servisa na klientima Windows XP07.01.2009. u 10:16 - pre 141 meseci
U line 16 mi javi gresku. Da, DC je i DNS.
 
Odgovor na temu

cyber_killer

Član broj: 90634
Poruke: 95
86.61.91.*



Profil

icon Re: Skripta za gasenje servisa na klientima Windows XP07.01.2009. u 17:35 - pre 141 meseci
Hvala rjesio sam problem.
 
Odgovor na temu

daigu
System Engineer Wannabee, Non IT corp.

Član broj: 172424
Poruke: 19
93.159.81.*



+1 Profil

icon Re: Skripta za gasenje servisa na klientima Windows XP07.01.2009. u 18:44 - pre 141 meseci
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 &...



 
Odgovor na temu

[es] :: Skript jezici :: Skripta za gasenje servisa na klientima Windows XP

[ Pregleda: 3178 | Odgovora: 7 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.