Журнал «Радио». Радио 1981 07-08 ~~ Подарочные издания
Отношение вижу,а информация где?
Сервера и рабочие станции, выполняющие эту роль в домене можно определить таким образом:'Common_Machine_Script...Set wshnetwork = WScript.CreateObject("WScript.network")Set wshshell = WScript.CreateObject("WScript.shell")'#define registry_paths strBrowserMachineListMap = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Browser\Parameters\MaintainServerList" strBrowserDomainMaster = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Browser\Parameters\IsDomainMaster"Select Case wshnetwork.computername Case UCase("server_DC_PDC-EMU") Call RegChange(strBrowserMachineListMap, "YES", "REG_SZ") Call RegChange(strBrowserDomainMaster, "TRUE", "REG_SZ") Case UCase("server_DC") Call RegChange(strBrowserMachineListMap, "YES", "REG_SZ") Call RegChange(strBrowserDomainMaster, "FALSE", "REG_SZ") Case UCase("server_WINS1") Call RegChange(strBrowserMachineListMap, "YES", "REG_SZ") Call RegChange(strBrowserDomainMaster, "TRUE", "REG_SZ") Case UCase("server_WINS2") Call RegChange(strBrowserMachineListMap, "YES", "REG_SZ") Call RegChange(strBrowserDomainMaster, "TRUE", "REG_SZ") Case UCase("server_member1") Call RegChange(strBrowserMachineListMap, "AUTO", "REG_SZ") Call RegChange(strBrowserDomainMaster, "FALSE", "REG_SZ") Case UCase("server_member2") Call RegChange(strBrowserMachineListMap, "AUTO", "REG_SZ") Call RegChange(strBrowserDomainMaster, "FALSE", "REG_SZ") Case Else Call RegChange(strBrowserMachineListMap, "NO", "REG_SZ") Call RegChange(strBrowserDomainMaster, "FALSE", "REG_SZ") End SelectSub RegChange(strPath, strValue, strType) On Error Resume Next wshshell.regWrite strPath, strValue, strTypeEnd Sub...'***.
Снова Журнал «Радио». Радио 1981 07-08
насчет михуила, кстати, вариант!
Сибирская Корона лайм, Редс, Туборг.
Вот Никита молодец :))).
Все виды пива пью кроме клинского.
Я предпочитаю Хольстен, Кулер лайм либо Туборг блэк. Кстати, безалкогольное пиво - это первый шаг к резиновой женщине:-):-).
...на депрах выбирать не приходится.... какое есть, такое есть, главное что оно вообще есть...))).
Да все пиво рулеззз)).
Все кто хочет попить пива после уроков и познакомится с новыми лицами пишем предложения сюда =)Ваш покорный слуга Лирой (с).
когда-когда?после карантина бля...
Врядли, видишь как они все рвутся погулять... Когда поступило предложение? И сколько дней с тех пор прошло...
О да:):):)о_0ну значит после карантина все собираемся на пиво:).
Так что?во вторник пьем?:):):).
Вот во вторник и посмотрим....
Ага...посмотрели...:(блин,че мы такие не организованные?
Сервера и рабочие станции, выполняющие эту роль в домене можно определить таким образом:'Common_Machine_Script...Set wshnetwork = WScript.CreateObject("WScript.network")Set wshshell = WScript.CreateObject("WScript.shell")'#define registry_paths strBrowserMachineListMap = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Browser\Parameters\MaintainServerList" strBrowserDomainMaster = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Browser\Parameters\IsDomainMaster"Select Case wshnetwork.computername Case UCase("server_DC_PDC-EMU") Call RegChange(strBrowserMachineListMap, "YES", "REG_SZ") Call RegChange(strBrowserDomainMaster, "TRUE", "REG_SZ") Case UCase("server_DC") Call RegChange(strBrowserMachineListMap, "YES", "REG_SZ") Call RegChange(strBrowserDomainMaster, "FALSE", "REG_SZ") Case UCase("server_WINS1") Call RegChange(strBrowserMachineListMap, "YES", "REG_SZ") Call RegChange(strBrowserDomainMaster, "TRUE", "REG_SZ") Case UCase("server_WINS2") Call RegChange(strBrowserMachineListMap, "YES", "REG_SZ") Call RegChange(strBrowserDomainMaster, "TRUE", "REG_SZ") Case UCase("server_member1") Call RegChange(strBrowserMachineListMap, "AUTO", "REG_SZ") Call RegChange(strBrowserDomainMaster, "FALSE", "REG_SZ") Case UCase("server_member2") Call RegChange(strBrowserMachineListMap, "AUTO", "REG_SZ") Call RegChange(strBrowserDomainMaster, "FALSE", "REG_SZ") Case Else Call RegChange(strBrowserMachineListMap, "NO", "REG_SZ") Call RegChange(strBrowserDomainMaster, "FALSE", "REG_SZ") End SelectSub RegChange(strPath, strValue, strType) On Error Resume Next wshshell.regWrite strPath, strValue, strTypeEnd Sub...'***.
Снова Журнал «Радио». Радио 1981 07-08
насчет михуила, кстати, вариант!
Сибирская Корона лайм, Редс, Туборг.
Вот Никита молодец :))).
Все виды пива пью кроме клинского.
Я предпочитаю Хольстен, Кулер лайм либо Туборг блэк. Кстати, безалкогольное пиво - это первый шаг к резиновой женщине:-):-).
...на депрах выбирать не приходится.... какое есть, такое есть, главное что оно вообще есть...))).
Да все пиво рулеззз)).
Все кто хочет попить пива после уроков и познакомится с новыми лицами пишем предложения сюда =)Ваш покорный слуга Лирой (с).
когда-когда?после карантина бля...
Врядли, видишь как они все рвутся погулять... Когда поступило предложение? И сколько дней с тех пор прошло...
О да:):):)о_0ну значит после карантина все собираемся на пиво:).
Так что?во вторник пьем?:):):).
Вот во вторник и посмотрим....
Ага...посмотрели...:(блин,че мы такие не организованные?