[es] - Skripta za gasenje servisa na klientima Windows XP

cyber_killer

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

Profil

Skripta za gasenje servisa na klientima Windows XP

^{25.12.2008. u 14:41 - pre 186 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

Re: Skripta za gasenje servisa na klientima Windows XP

^{29.12.2008. u 08:32 - pre 186 meseci}

Nijedne ideje.

Odgovor na temu

daigu
System Engineer Wannabee, Non IT corp.

Član broj: 172424
Poruke: 19
87.252.129.*

+1 Profil

Re: Skripta za gasenje servisa na klientima Windows XP

^{01.01.2009. u 18:00 - pre 186 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

Re: Skripta za gasenje servisa na klientima Windows XP

^{05.01.2009. u 07:49 - pre 186 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

Re: Skripta za gasenje servisa na klientima Windows XP

^{05.01.2009. u 19:30 - pre 186 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

Re: Skripta za gasenje servisa na klientima Windows XP

^{07.01.2009. u 10:16 - pre 186 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

Re: Skripta za gasenje servisa na klientima Windows XP

^{07.01.2009. u 17:35 - pre 186 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