none
Отключить NetBios с помощью групповой политики RRS feed

  • Вопрос

  • Здравствуйте.

    Подскажите, как "отключить NetBios через TCP/IP" централизованно с помощью групповой политики?

    Что править в реестре HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\services\NetBT\Parameters\Interfaces\Tcpip_{EF53E20C-D9BA-4FA7-B6A9-5E9644D6ABD9} знаю, но столкнулся с тем что у каждого интерфейса свой идентификатор.

    Как сделать, чтобы применялось ко всем интерфейсам на компьютере?

    Спасибо.

    2 ноября 2012 г. 6:59

Ответы

  • Вот таким startup vbs скриптом, например (поддерживается начиная с win XP)

    On Error Resume Next
    Const DISABLE_NETBIOS = 2
     
    strComputer = "."
     
    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colNicConfigs = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
     
    For Each objNicConfig In colNicConfigs
      objNicConfig.SetTcpipNetbios(DISABLE_NETBIOS) 
    Next

    • Помечено в качестве ответа funhaq 2 ноября 2012 г. 7:50
    2 ноября 2012 г. 7:15
    Отвечающий
  • Спасибо, работает.

    А что использовать для выключения LMHOSTS?

    Как то так

    On Error Resume Next
     
    Const USE_WINS = False
    Const USE_LMHOST_FILE = False
    
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    
    Set objNetworkSettings = objWMIService.Get("Win32_NetworkAdapterConfiguration")
    errResult = objNetworkSettings.EnableWINS(USE_WINS, USE_LMHOST_FILE)
    

    • Помечено в качестве ответа funhaq 2 ноября 2012 г. 9:36
    2 ноября 2012 г. 9:33
    Отвечающий

Все ответы

  • Вот таким startup vbs скриптом, например (поддерживается начиная с win XP)

    On Error Resume Next
    Const DISABLE_NETBIOS = 2
     
    strComputer = "."
     
    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colNicConfigs = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
     
    For Each objNicConfig In colNicConfigs
      objNicConfig.SetTcpipNetbios(DISABLE_NETBIOS) 
    Next

    • Помечено в качестве ответа funhaq 2 ноября 2012 г. 7:50
    2 ноября 2012 г. 7:15
    Отвечающий
  • Спасибо, работает.

    А что использовать для выключения LMHOSTS?

    Ниже приведенный не работает, что в нем неверно?:

    On Error Resume Next
    Const DISABLE_LMHOSTS = 0
     
    strComputer = "."
     
    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colNicConfigs = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
     
    For Each objNicConfig In colNicConfigs
      objNicConfig.WINSEnableLMHostsLookup(DISABLE_LMHOSTS) 
    Next
    2 ноября 2012 г. 7:50
  • Спасибо, работает.

    А что использовать для выключения LMHOSTS?

    Параметры метода EnableWINS для объекта коллекции Win32_NetworkAdapterConfiguration

    objNicConfig.EnableWINS...
    Вот здесь нашел примеры и их разбор.
    Scripting WINS on Clients:

    http://technet.microsoft.com/en-us/library/ee692589.aspx


    2 ноября 2012 г. 9:11
    Отвечающий
  • Спасибо, работает.

    А что использовать для выключения LMHOSTS?

    Как то так

    On Error Resume Next
     
    Const USE_WINS = False
    Const USE_LMHOST_FILE = False
    
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    
    Set objNetworkSettings = objWMIService.Get("Win32_NetworkAdapterConfiguration")
    errResult = objNetworkSettings.EnableWINS(USE_WINS, USE_LMHOST_FILE)
    

    • Помечено в качестве ответа funhaq 2 ноября 2012 г. 9:36
    2 ноября 2012 г. 9:33
    Отвечающий