none
modemy a jine mobilni zarizeni

    Dotaz

  • Zdravim panove,

    potreboval bych vyresit nesvar nekterych uzivatelu - pripojovani na net skrze mobilni telefony, pripadne prenosne modemy. Problem je ten, ze mobilni uzivatele tyto zarizeni vyuzivaji mimo firmu, takze je maji nainstalovane na PC, tudiz je nelze zakazat pres GPO (device installation restrictions). Zkousel jsem sledovat adaptery i pres SNMP (ifAdminStatus,) ale nebylo to presne to, co bych potreboval (hromady vypisu, ktere se jen tezko filtrovaly)..

    Existuje nejaka moznost, jak sledovat pocet pripojenych sitovych adapteru, jejich zmenu (up/down), ci pripadne dane adaptery uplne zakazat?

    Staci jen lehce nakopnout, uz nevim kudy kam ;)

    diky moc

    úterý 16. srpna 2016 11:42

Odpovědi

  • napadlo me tohle...dela to vicemene to co potrebuju, alespon, co jsem dnes zkousel...ale dalsim navrhum se nebranim ;)

    On Error Resume Next strUser = "." strComputer = "." strDomain = "." UserName = WScript.CreateObject("WScript.Network").UserName ComputerName = WScript.CreateObject("WScript.Network").ComputerName

    Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colNetAdapters = objWMIService.ExecQuery ("Select * from Win32_NetworkAdapter where NetEnabled=TRUE") counter = 0

    For Each objNetAdapter in colNetAdapters strFile = ("\\cesta\NIC.txt") Const ForAppending = 8 set objFSO = CreateObject("Scripting.FileSystemObject") set objFilee = objFSO.OpenTextFile(strFile, ForAppending, True) objFilee.WriteLine("" & ComputerName & " " & " ; " & Username & " " & " ; " & objNetAdapter.ProductName &" ; " & objNetAdapter.ServiceName &" ; " & objNetAdapter.AdapterType &" ; " & objNetAdapter.Name &" ; " & objNetAdapter.MACAddress &"") objFilee.Close


    • Označen jako odpověď Miloš Jánoš pondělí 19. září 2016 19:01
    středa 17. srpna 2016 12:00

Všechny reakce

  • Myslis to tak, ze kdyz je uzivatel v domene, NESMI na net pres jine zarizeni; je-li v terenu, omezen neni?

    MP

    úterý 16. srpna 2016 13:34
    Moderátor
  • no v podstate az na wifi ano

    vicemene by mi stacilo to sledovat...takovy online netsh interface show interface ;)


    edit: i kdyz ted si tak uvedomuji, ze pokud je telefon jako modem, tak se to timto prikazem nezobrazi
    úterý 16. srpna 2016 13:39
  • route print jej zobrazi, da se tim prolezt a zareagovat. Ale to asi neni co hledas

    MP

    středa 17. srpna 2016 5:53
    Moderátor
  • to uz je mozna lepsi ipconfig /allcompartmens

    Pak nastavit naplanovany ulohy trebas kazdou hodinu, hodit to do sql a vyjet z toho nejakej report, ale taky to neni jeste dokonalej napad ;))

    středa 17. srpna 2016 6:16
  • Zavesit task ve scheduleru na prislusny event id?

    MP

    středa 17. srpna 2016 7:25
    Moderátor
  • to je dobry napad, ale ted jsem koukal do event vieweru a nikde tam nic o pridani modemu/sitove karty neni

    středa 17. srpna 2016 7:51
  • středa 17. srpna 2016 8:05
    Moderátor
  • nene, zkousim to ted na chytrem telefonu, takze se to tvari jako sitova karta, dival jsem se pred i po a zadna zmena, zadna udalost...

    diky za ten odkaz, ale myslim si, ze systemem povolenou sitovou kartu/modem tim neovlivnim

    středa 17. srpna 2016 8:48
  • napadlo me tohle...dela to vicemene to co potrebuju, alespon, co jsem dnes zkousel...ale dalsim navrhum se nebranim ;)

    On Error Resume Next strUser = "." strComputer = "." strDomain = "." UserName = WScript.CreateObject("WScript.Network").UserName ComputerName = WScript.CreateObject("WScript.Network").ComputerName

    Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colNetAdapters = objWMIService.ExecQuery ("Select * from Win32_NetworkAdapter where NetEnabled=TRUE") counter = 0

    For Each objNetAdapter in colNetAdapters strFile = ("\\cesta\NIC.txt") Const ForAppending = 8 set objFSO = CreateObject("Scripting.FileSystemObject") set objFilee = objFSO.OpenTextFile(strFile, ForAppending, True) objFilee.WriteLine("" & ComputerName & " " & " ; " & Username & " " & " ; " & objNetAdapter.ProductName &" ; " & objNetAdapter.ServiceName &" ; " & objNetAdapter.AdapterType &" ; " & objNetAdapter.Name &" ; " & objNetAdapter.MACAddress &"") objFilee.Close


    • Označen jako odpověď Miloš Jánoš pondělí 19. září 2016 19:01
    středa 17. srpna 2016 12:00
  • Nejake další návrhy, nebo uz se problém vyresil?

    M.

    sobota 17. září 2016 16:26
    Moderátor