удоление винды
|
Theridiidae |
Отправлено: Понедельник, 27 Февраля 2012, 9:44 |
Участник
Группа: Участник
Сообщений: 211
Регистрация: 14.02.2007
Из: Город Герой МОСКВА!
Пользователь №: 14030
|
А зачем вин сервер на ноуте? Самое быстрое наверное отформатировать хард диск и установить систему заново. |
|
Форум: Microsoft Windows Server 2003
· Просмотр сообщения: #95758
· Ответов: 1
· Просмотров: 9132
|
Win2003+DNS+IIS6 Виртуальный хост
|
Theridiidae |
Отправлено: Среда, 08 Февраля 2012, 9:21 |
Участник
Группа: Участник
Сообщений: 211
Регистрация: 14.02.2007
Из: Город Герой МОСКВА!
Пользователь №: 14030
|
Ну если бы у меня все забегало так как написано в документации я бы сюда не пришел =))) Либо пришел но для того, что-бы поделиться результатом =))) Не совсем понял, чего я не понял (тавтология) =) Цитата(Egpr) Сайт расположен где (физически)? Если на той-же машине, значит, дефолтный надо тормозить (он занимает 80 порт) Связи не вижу так как сейчас работают оба через 80 порт но с разными заголовками (см. 3-й вариант). Цитата(Egor) если на другой - надо настраивать переадресацию Сайт на этой же машине, запросов будет не много, большой дополнительной нагрузки повлечь не должно. Цитата Если хотите использовать 80 порт - надо менять дефолтное имя. Снова (см. 3-й вариант) работают два сайта но с разным заголовком. Есть три варианта организовать поддержку нескольких сайтов на одном физическом сервере win 2003+IIS. 1-й вариант: xxxxxx.local ip 192.168.1.2 msk.xxxxxx.local ip 192.168.1.3 Одной физической карте можно присвоить два ip и она должна будет обрабатывать эти запросы. Но почему то, в этом случае нет ассоциации между IP и адресом сайта, но зато DNS видит еще один IP и честно об этом заявляет, после чего компьютеры в домене начинают биться в истерике не понимая на какой адрес обращаться для разрешения имен. 2-й вариант: xxxxxx.local 80 ip 192.168.1.2 msk.xxxxxx.local 200 ip 192.168.1.2 Этот наименее удобен, так как к адресу msk.xxxxxx.local нужно будет всегда указывать номер порта :200 Но проверил просто ради эксперимента, работает. 3-й вариант: Собственно он и рабочий на данный момент. Это инициализация сайта по заголовку с этим проблем нет сайт нужен только во внутренней сети и все браузеры поддерживают "заголовки" Вопрос почему не работает 1-й вариант? Или по первому варианту сайты должны иметь радикально разные доменные имена xxxxxx.local 192.168.1.2 yyyyyy.local 192.168.1.3 Цитата(Egor) У Вас не грабли с DNS. Появление дополнительной записи в DNS, говорит, что как раз этот сервис отработал правильно (что настроили, то и получили), а вот с правильностью "восприятия" мануалов у Вас проблемы Вот и прошу помочь разобраться =) |
|
Форум: Microsoft Windows Server 2003
· Просмотр сообщения: #95746
· Ответов: 4
· Просмотров: 13235
|
Win2003+DNS+IIS6 Виртуальный хост
|
Theridiidae |
Отправлено: Пятница, 03 Февраля 2012, 12:19 |
Участник
Группа: Участник
Сообщений: 211
Регистрация: 14.02.2007
Из: Город Герой МОСКВА!
Пользователь №: 14030
|
Пока сделал так. Один физический IP но разные заголовки. В DNS прописал зону А msk.xxxxx.local и указал 192.168.1.2. Но на отдельный IP адрес не получается, по видимому нужны дополнительные манипуляции. Какие?
Кстати появились грабли с DNS. Автоматом создалась запись А IP адрес Server 00 192.168.1.50 то есть в DNS сейчас присутствует две записи на один сервер с разными IP адресами. Пока в настройках сетевых подключений запретил сетевой адаптер с IP адресом 192.168.1.50. Как будет правильнее решить данную ситуацию с DNS? |
|
Форум: Microsoft Windows Server 2003
· Просмотр сообщения: #95739
· Ответов: 4
· Просмотров: 13235
|
Win2003+DNS+IIS6 Виртуальный хост
|
Theridiidae |
Отправлено: Пятница, 03 Февраля 2012, 11:07 |
Участник
Группа: Участник
Сообщений: 211
Регистрация: 14.02.2007
Из: Город Герой МОСКВА!
Пользователь №: 14030
|
В сети есть Win 2003 домен xxxxx.local с поднятым DNS, IIS6. Хочу создать простенький внутри офисный ресурс по средствам IIS. В IIS по умолчанию есть "сайт по умолчанию" на нем крутится WSUS. Решил не трогать "сайт по умолчанию", а создать параллельно еще один. Почитав документацию понял, что IIS может такое реализовать, для этого нужно изменить параметры при создании сайта (заголовок, порт, IP). Создал сайт msk.xxxxx.local (указал директорию) и ввел неиспользуемый в сети IP адрес 192.168.1.50 (порт не менял оставил 80). В сетевом окружении сервера появилось соединение с IP адресом 192.168.1.50. C сервера этот IP адрес пингуется, а вот компьютеры присоединены к этому домену этот IP адрес не видят. Если я настраиваю сайт как xxxxx.local и IP домена то все бегает. Я так понимаю, что-то не то в DNS хотя там есть записи для IP 192.168.1.50.
Извечный вопрос куда смотреть? |
|
Форум: Microsoft Windows Server 2003
· Просмотр сообщения: #95738
· Ответов: 4
· Просмотров: 13235
|
Проблема с IPA
|
Theridiidae |
Отправлено: Пятница, 30 Июля 2010, 15:32 |
Участник
Группа: Участник
Сообщений: 211
Регистрация: 14.02.2007
Из: Город Герой МОСКВА!
Пользователь №: 14030
|
Подобное сообщении вызвано тем , что порт не обновляет автоматически информацию о проинсталлированных библиотеках. Решить эту проблему можно двумя способами: 1. В ipa.conf указываем полный путь к модулю ac_mod "/usr/local/lib/ipa_ipfw.so"; 2. В ручную помогаем порту обновить список библиотек /sbin/ldconfig -m /usr/local/lib Далее в ipa.conf можно обращаться к модулю как указанно в man-е ac_mod "ipa_ipfw.so"; В ближайшее время после обновления порта эта проблема будет устранена. Спасибо большое Andrey Simonenko |
|
Форум: Операционные системы *nix
· Просмотр сообщения: #94153
· Ответов: 1
· Просмотров: 9719
|
Проблема с IPA
|
Theridiidae |
Отправлено: Вторник, 27 Июля 2010, 14:27 |
Участник
Группа: Участник
Сообщений: 211
Регистрация: 14.02.2007
Из: Город Герой МОСКВА!
Пользователь №: 14030
|
При загрузке системы в логе выдается сообщение config error: /usr/local/etc/ipa.conf:9: parameter "ac_mod": dl_open(ipa_ipfw.so): Shared object "ipa_ipfw.so" not found, required by "ipa" Сам файл лежит /usr/local/lib
Если запустить из под рута /usr/local/etc/rc.d/ipa start то сервис ipa стартует нормально.
какие права нужны тогда модулю ipa_ipfw.so? Или дело не в правах? |
|
Форум: Операционные системы *nix
· Просмотр сообщения: #94150
· Ответов: 1
· Просмотров: 9719
|
SSH, SSHD FreeBSD 7.2
|
Theridiidae |
Отправлено: Четверг, 22 Июля 2010, 11:16 |
Участник
Группа: Участник
Сообщений: 211
Регистрация: 14.02.2007
Из: Город Герой МОСКВА!
Пользователь №: 14030
|
Не могу соединиться по SSH с freebsd "Network error: Connection refused". Ядро собранно с фаерволом, (по умолчанию нечего нельзя) в rc.conf firewall_enable="yes" так же разрешен SSH sshd_enable="YES". Добавляю ручками правило allow ip from any to any. Результата нет. ps ax | grep sshd выдает v0 D+ 0:00.00 grep sshd
sshd -f /etc/ssh/sshd_config получаю re-exec requires execution with an absolute path
А если /usr/sbin/sshd то запускаеться почему не запускаеться автоматически?
Как поправить? |
|
Форум: Операционные системы *nix
· Просмотр сообщения: #94138
· Ответов: 1
· Просмотров: 10343
|
Проблема с массивом RAID-0 на Asus P5M2-M
|
Theridiidae |
Отправлено: Пятница, 16 Июля 2010, 10:06 |
Участник
Группа: Участник
Сообщений: 211
Регистрация: 14.02.2007
Из: Город Герой МОСКВА!
Пользователь №: 14030
|
Проблема решилась установкой нового БП и пере прошивкой BIOS-а. |
|
Форум: Железо
· Просмотр сообщения: #94128
· Ответов: 8
· Просмотров: 16818
|
Слетел драйвер RAID
|
Theridiidae |
Отправлено: Пятница, 16 Июля 2010, 10:03 |
Участник
Группа: Участник
Сообщений: 211
Регистрация: 14.02.2007
Из: Город Герой МОСКВА!
Пользователь №: 14030
|
Пока собирал обратно RAID, система умерла, пришлось переустанавливать. Сейчас уже восстановил все. Устроил в общем я себе геморрой, аж до 24-00 =))) Введение: Периодически отрубался один из массивов, что ранее было описано в топике железо. Устранение неисправности: Для устранения неприятности сначала было установлено дополнительное активное охлаждение на контроллер (не помогло), замена блока питания и тут же перепрошивка BIOS (массив перестал отваливаться). Но мной была допущена ошибка я не проверил состояние массива после перепрошивки Biosa. Bios встал в дефолтовые настройки при этом 2-ва массива перестали существовать появилось 4-ре HDD живущие сами по себе. Замечено это было спустя 2-ва дня. При попытке восстановить рейд, а для этого в меню Bios был выбран режим работы контроллера HDD в режиме RAID После чего было получено сообщение, что нет загрузочного файла. Долгая борьба за запуск, оказалось, что системный диск сменил свою букву на D. Как это произошло вообще не понятно. Загрузился в режиме консоли запустил CHKDSK, после система стала загружаться до ввода пароля, где выскакивало сообщение о не правильных каталогах. Через Boot menu запустил восстановление службы каталогов и дождался долгожданного 0x0000008e, 0x0000005, 0x8092d4f1, 0xbac0a900, 0x00000000 |
|
Форум: Microsoft Windows Server 2003
· Просмотр сообщения: #94127
· Ответов: 3
· Просмотров: 13216
|
Слетел драйвер RAID
|
Theridiidae |
Отправлено: Среда, 14 Июля 2010, 13:18 |
Участник
Группа: Участник
Сообщений: 211
Регистрация: 14.02.2007
Из: Город Герой МОСКВА!
Пользователь №: 14030
|
Система WinServer 2003 R2, материнская плата P5M2-M слетел драйвер RAID, драйвер тот, что при установке системы подсовывается через F6. В системе был RAID1 видны были только 2-ва диска теперь их стало 4-ре. Как обратно собрать RAID? |
|
Форум: Microsoft Windows Server 2003
· Просмотр сообщения: #94121
· Ответов: 3
· Просмотров: 13216
|
Проблема с массивом RAID-0 на Asus P5M2-M
|
Theridiidae |
Отправлено: Четверг, 08 Июля 2010, 12:56 |
Участник
Группа: Участник
Сообщений: 211
Регистрация: 14.02.2007
Из: Город Герой МОСКВА!
Пользователь №: 14030
|
Походу контроллер, афигивает =) от количества хардов =). Южный мост "ICH7R" раскален как печка (нужно ставить дополнительное охлаждение). Да и северный "Mukilteo-2" слишком теплый.
|
|
Форум: Железо
· Просмотр сообщения: #94115
· Ответов: 8
· Просмотров: 16818
|
Шрифт в диалоговых окнах
|
Theridiidae |
Отправлено: Четверг, 01 Июля 2010, 16:46 |
Участник
Группа: Участник
Сообщений: 211
Регистрация: 14.02.2007
Из: Город Герой МОСКВА!
Пользователь №: 14030
|
Попробуй мой варварский метод =))) Зайдите в папку FONTS и удали шрифты в которых есть _____XXX.ttf есть также шрифты XXXENG.ttf (XXX какое-то название, а далее идет сокращенное название страны, языка) Мне когда-то помогало =) |
|
Форум: Microsoft Windows XP
· Просмотр сообщения: #94097
· Ответов: 18
· Просмотров: 16998
|
Проблема с массивом RAID-0 на Asus P5M2-M
|
Theridiidae |
Отправлено: Среда, 30 Июня 2010, 15:21 |
Участник
Группа: Участник
Сообщений: 211
Регистрация: 14.02.2007
Из: Город Герой МОСКВА!
Пользователь №: 14030
|
Э как меня клинонуло =))) конечно же 2x RAID 1 (mirrored) пипец я еще сам себя напугал =))) Полез на сервер смотреть какой рейд =)=)=) Хотя знаю, что там всего видно два диска, системный и хранилище файлов =) Контроллер Intel® 82801GR/GH SATA RAID Controller, а утилита Intel Matrix Storage Manager вообще эта материнская плата считается серверной начального уровня может это и для лохов =) Щя инфу посеем =))) купим подороже =))) Это же Россия. Правда не хотелось бы, доставать ее опять же мне =)
Так, что вполне подходит второй вариант, основной уходит в аут второй вместе с ним. Все-таки стресс тест попробовать прогнать нужно... |
|
Форум: Железо
· Просмотр сообщения: #94092
· Ответов: 8
· Просмотров: 16818
|
Постоянный APPCRASH
|
Theridiidae |
Отправлено: Вторник, 29 Июня 2010, 10:29 |
Участник
Группа: Участник
Сообщений: 211
Регистрация: 14.02.2007
Из: Город Герой МОСКВА!
Пользователь №: 14030
|
Попробуй посмотреть свежие драйвера от производителя оборудования, а не те, что ставит MS по умолчанию особенно на материнскую плату. Попробуй перепрошить BIOS. Как вариант открой корпус и потрогай южный мост, народ пишет, что перегревается. Цитата Кстати, забыл напомнить... Раньше такого не было, да и на ХР таких траблов не было ни когда. Раньше не было теперь есть =)=)=) Это железо оно день от дня становиться старее =)=) |
|
Форум: Microsoft Windows 7
· Просмотр сообщения: #94084
· Ответов: 8
· Просмотров: 76003
|
Проблема с массивом RAID-0 на Asus P5M2-M
|
Theridiidae |
Отправлено: Вторник, 29 Июня 2010, 10:02 |
Участник
Группа: Участник
Сообщений: 211
Регистрация: 14.02.2007
Из: Город Герой МОСКВА!
Пользователь №: 14030
|
ну да в жизни всяко бывает =) Руководство хочет 100% резервирование, из 1Тб используется пока только 300Гб и это с теневым копированием файлов, что будет дальше, когда будет хотя бы 500Гб не знаю =) Есть смысл, какой ни будь стрессовый тест запустить? Цитата Насколько понимаю, оба массива на одном контроллере? Один работает, второй нет. Кто виноват? Это первое, что приходит "на ум" Это с точки зрения логики =)=)=) Мне не понятно почему сразу оба харда уходят в стоп, один то должен был работать, в этом и должна быть прелесть RAID 0 не смотря на свою медленность... А тут бац весь массив исчезает =) Это то и напрягает. |
|
Форум: Железо
· Просмотр сообщения: #94083
· Ответов: 8
· Просмотров: 16818
|
Проблема с массивом RAID-0 на Asus P5M2-M
|
Theridiidae |
Отправлено: Понедельник, 28 Июня 2010, 11:47 |
Участник
Группа: Участник
Сообщений: 211
Регистрация: 14.02.2007
Из: Город Герой МОСКВА!
Пользователь №: 14030
|
Вопрос риторический, что делать и куда смотреть? =))) Как определить это сбоит RAID контроллер или сами винчестеры?
|
|
Форум: Железо
· Просмотр сообщения: #94078
· Ответов: 8
· Просмотров: 16818
|
Проблема с массивом RAID-0 на Asus P5M2-M
|
Theridiidae |
Отправлено: Понедельник, 28 Июня 2010, 9:40 |
Участник
Группа: Участник
Сообщений: 211
Регистрация: 14.02.2007
Из: Город Герой МОСКВА!
Пользователь №: 14030
|
Проблема с массивом RAID-0 на Asus P5M2-M, уже второй раз за месяц отвалился массив №2 объем 1Тб, массив №1 объем 200Гб работает нормально. Первый раз когда пропал массив №2 помогла перезагрузка сервера Win2003. Сегодня перезагрузка не помогла, при снятии питания с одного из дисков массива №2, контроллер увидел поврежденный массив, после был подключен второй диск массив заработал, но при этом попросил запустить перестроение . А в логах сервера присутствует запись "Устройство \Device\Ide\iaStor0 не отвечает в течении интервала ожидания.". Следом сообщение от ftdisk "Системе не удалось очистить данные журнала транзакций. Возможны повреждения данных" |
|
Форум: Железо
· Просмотр сообщения: #94076
· Ответов: 8
· Просмотров: 16818
|
VBS нужна помощь по написанию скрипта
|
Theridiidae |
Отправлено: Пятница, 09 Апреля 2010, 7:57 |
Участник
Группа: Участник
Сообщений: 211
Регистрация: 14.02.2007
Из: Город Герой МОСКВА!
Пользователь №: 14030
|
Egor большое спасибо за желание помочь. Это я оформляя пост два раза дал маху Цитата Дал маху не я Оказываеться при редактировании поста форум затирает 2ва обратных слэша конечно же "net use z: \\server00\downloads$". Иначе как бы оно работало на машинах с WinXP. Я пробовал непосредственно на самой машине Win7x64 запустить "net use z: \\server00\downloads$" в ответ получил, дословно не помню, что-то вроде не правильно указаны параметры или просто вываливался в синтаксис команды. |
|
Форум: Программирование
· Просмотр сообщения: #93780
· Ответов: 4
· Просмотров: 18411
|
VBS нужна помощь по написанию скрипта
|
Theridiidae |
Отправлено: Четверг, 08 Апреля 2010, 16:35 |
Участник
Группа: Участник
Сообщений: 211
Регистрация: 14.02.2007
Из: Город Герой МОСКВА!
Пользователь №: 14030
|
В общем есть проблема, в удаленном расшаривании(развертывании) дисков. Раньше было все просто в GPO для пользователей в сценарии запуска стояла сточка net use z: \server00downloads$. Как говориться песец подкрался быстро и неожиданно появился в офисе Win7x64. Не знаю точно какие параметры команды NET у Win7x86 но Win7x64 команду net use z: \server00downloads$ не проглатывает, ругается. Не когда не писал на vbs но по видимому придется начать =) На одном из форумов пользователем dimich22 был выложен достаточно объемный листинг файлы по прежнему прикреплять не могу да простят меня администраторы выложу листинг тут. Скрипт как я понял подключает диски в зависимости от расположения пользователя в той или иной группе.(В общем шикарнейшая вещ) Ну вот проблема не могу разобраться почему не работает =\ Цитата ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' On Error Resume Next '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Define Variables and Constants ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim objFileSys Dim objIntExplorer Dim objWshNetwork Dim objWshShell Dim strDomain 'Domain of the user Dim strHomePage 'Homepage to be set for user (Домашняя страница пользователя) Dim strLogonPath 'Path to location from where the script is running (Путь к месту расположению скрипта) Dim strOSProdType 'OS Product type (WinNT, LanmanNT, ServerNT) Dim strWorkstation 'Local Computer Name (Локальное имя компьютера) Dim strUserGroups 'List of groups the user is a meber of (Список групп к которым пренадлежит пользователь) Dim intCounter 'General counter (Общий счетчик)
Const UseNTServer = 0 'Sets whether this script runs when logging on locally (Нужно ли запускать этот скрипт локально) 'to Windows Servers. 'Values are: 1 (Yes) OR 0 (No)
Const FileSrv1 = "\w2kserver" Const FileSrv2 = "\calculator2"
'Initialize common scripting objects (Инициализация общих объектов) Set objFileSys = CreateObject( "Scripting.FileSystemObject" ) Set objWshNetwork = CreateObject( "WScript.Network" ) Set objWshShell = CreateObject( "WScript.Shell" )
'Pause script until user is fully logged on (applicable only to Win 9x or ME) (Приостановить выполнение сценария пока пользователь полность не войдет в систему (только для Win 9x или ME) 'This will timeout after 10 seconds (Время ожидания 10 секунд) strUser = "" intCounter = 0 Do strUserID = objWshNetwork.Username intCounter = intCounter + 1 Wscript.Sleep 500 Loop Until strUserID <> "" OR intCounter > 20
'Check for error getting username (Проверить ошибки, получить имя пользователя) If strUserID = "" Then objWshShell.Popup "Logon script failed - Contact the Helpdesk @ x 345", , _ "Logon script", 48 Call Cleanup End If
'Gather some basic system info (Сбор базовой информации о системе) Call GetSystemInfo
If IsTerminalServerSession <> True Then 'Exit if we are logging on locally to a server and the script is set to NOT run on servers (Выйти если мы вошли на локальный сервер с установленным сценарием не запускать на серверах) IF UseNTServer = 0 AND (strOSProdType = "LanmanNT" OR strOSProdType = "ServerNT") Then objWshShell.Popup "Windows Server - Exiting Logon Script!", 10, _ "Logon to " & strDomain, 16 Call CleanUp End if End If
'Get group memberships (Получит членство в группах) strUserGroups = "" Call GetLocalGroupMembership Call GetGlobalGroupMembership
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' This section performs actions based on group membership (В этом разделе совершает действия, на основе членства в группе) ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' If InGroup( "Бухгалтерия" ) Then MapDrv "P:", FileSrv1 & "buh$","Папка для бухгалтерии" MapDrv "P:", FileSrv1 & "buh$","Папка для бухгалтерии" End If
If InGroup( "Администрация" ) Then MapDrv "P:", FileSrv1 & "ruk$","Папка для администрации" MapDrv "P:", FileSrv1 & "ruk$","Папка для администрации" End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' End section ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Sub: MapDrive ' Purpose: Map a drive to a shared folder ' Input: ' strDrive Drive letter to which share is mapped ' strServer Name of server that hosts the share ' strShare Share name ' Output: ' Usage: ' Call MapDrive ("P:", "w2kserver", "tai$") ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Function MapDrv(DrvLet, UNCPath, DrvName)
Dim objFSO, oShell ' Object variable
Set objFSO = CreateObject("Scripting.FileSystemObject") Set objoShell = CreateObject("Shell.Application")
On Error Resume Next
If objFSO.DriveExists(DrvLet) Then objWshNetwork.RemoveNetworkDrive DrvLet, true, true End If
objWshNetwork.MapNetworkDrive DrvLet, UNCPath objoShell.NameSpace(DrvLet).Self.Name = DrvName
End Function
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Sub: GetLocalGroupMembership ' Purpose: Gather all local groups the current user belongs to ' Input: ' Output: Local group names are added to strUserGroups ' Usage: Call GetLocalGroupMembership ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub GetLocalGroupMembership
On Error Resume Next
Dim colGroups 'Collection of groups on the local system (Коллекция групп на локальном компьютере) Dim objGroup 'Object reference to individual groups (Ссылка на объект для отдельных групп) Dim objUser 'Object reference to individual group member (Ссылка на объект для отдельных членов группы)
'Verify system is not Windows 9x or ME (Убедитесь, система не Windows 9x или ME) If objWshShell.ExpandEnvironmentStrings( "%OS%" ) = "Windows_NT" Then 'Connect to local system (Connect to local system) Set colGroups = GetObject( "WinNT://" & strWorkstation ) colGroups.Filter = Array( "group" ) 'Process each group (Процесс каждой группы) For Each objGroup In colGroups 'Process each user in group (Процесс каждого пользователя в группе) For Each objUser in objGroup.Members 'Check if current user belongs to group being processed (Проверить, если текущий пользователь принадлежит к группе обрабатываются) If LCase( objUser.Name ) = LCase( strUserID ) Then 'Add group name to list (Добавить название группы к списку) strUserGroups = strUserGroups & objGroup.Name & "," End If Next Next Set colGroups = Nothing End If
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Sub: GetGlobalGroupMembership ' Purpose: Gather all global groups the current user belongs to ' Input: ' Output: Global group names are added to strUserGroups ' Usage: Call GetGlobalGroupMembership ' Notes: Use WinNT connection method to be backwards ' compatible with NT 4 domains ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub GetGlobalGroupMembership
On Error Resume Next
Dim objNameSpace Dim objUser
Const ADS_READONLY_SERVER = 4
Set objNameSpace = GetObject( "WinNT:" ) 'Use the OpenDSObject method with the ADS_READONLY_SERVER (Используйте метод с OpenDSObject ADS_READONLY_SERVER) 'value to grab the "closest" domain controller (Важное значение "ближайший" контроллер домена)
'Connect to user object in the domain (Подключение к объекту пользователя в домене) Set objUser = objNameSpace.OpenDSObject( _ "WinNT://" & strDomain & "/" & strUserID, "", "", ADS_READONLY_SERVER) 'Process each group (В процессе каждой группы) For Each objGroup In objUser.Groups 'Add group name to list (Добавить название группы к списку) strUserGroups = strUserGroups & objGroup.Name & "," Next Set objNameSpace = Nothing
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Function: InGroup ' Purpose: Determine if user belongs to specified group ' Input: Name of group to test for membership ' Output: True or False ' Usage: If InGroup("Domain Admins") Then <do something> ' Requirements: ' strUserGroups must have been previously populated via ' GetLocalGroupMembership and/or GetGlobalGroupMembership ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Function InGroup(strGroup)
On Error Resume Next
InGroup = False 'Search strUserGroups for strGroup If Instr( 1, LCase( strUserGroups ), LCase( strGroup ), 1) Then InGroup = True
End Function
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Sub: GetSystemInfo ' Purpose: Gather basic info about local system ' Input: ' Output: strDomain, strOSProdType, strWorkstation, strLogonPath ' Usage: Call GetSystemInfo ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub GetSystemInfo
On Error Resume Next
'Get domain name (Получить имя домена) If objWshShell.ExpandEnvironmentStrings( "%OS%" ) = "Windows_NT" Then strDomain = objWshNetwork.UserDomain Else strDomain = objWshShell.RegRead( "HKLMSystemCurrentControlSet" & _ "ServicesMSNP32NetWorkProviderAuthenticatingAgent" ) End If
'Get Product Type from registry (WinNT, LanmanNT, ServerNT) (Получить Тип продукта из реестра (WinNT, LanmanNT, ServerNT) strOSProdType = objWshShell.RegRead( _ "HKLMSystemCurrentControlSetControlProductOptionsProductType")
'Get computer name (Получить имя компьютера) If IsTerminalServerSession = True Then 'Set strWorkstation to the real name and not the name of the server strWorkstation = objWshShell.ExpandEnvironmentStrings( "%CLIENTNAME%" ) Else strWorkstation = objWshNetwork.ComputerName End If
'Get the path to the location from where the script is running (Получить путь к месту, откуда скрипт работает) strLogonPath = Left( Wscript.ScriptFullName, _ ( InstrRev( Wscript.ScriptFullName, "") -1))
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Function: IsTerminalServer ' Purpose: Determine if the script is running in a terminal server session ' Input: ' Output: ' True if running in a terminal server session ' False if not running in a terminal server session ' Usage: ' If IsTerminalServerSession = True Then <Do Something> ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Function IsTerminalServerSession
On Error Resume Next
Dim strName
'Detect if this is a terminal server session (Обнаружить, если это сессия терминального сервера) 'If it is, set some names to the terminal server client name (Если она есть, установить некоторые имена, чтобы имя клиента сервера терминалов) strName = objWshShell.ExpandEnvironmentStrings( "%CLIENTNAME%" ) If strName <> "%CLIENTNAME%" AND strName <> "" Then _ IsTerminalServerSession = True
End Function
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Sub: Cleanup ' Purpose: Release common objects and exit script ' Input: ' Output: ' Usage: Call Cleanup ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sub Cleanup
On Error Resume Next
Set objFileSys = Nothing Set objWshNetwork = Nothing Set objWshShell = Nothing Set objIntExplorer = Nothing
'Exit script Wscript.Quit()
End Sub
На том же сайте пользователем Lamer-1 был выложен более простой скрипт. Цитата Set objWshNetwork = CreateObject( "WScript.Network" ) 'Создание объекта WshNetwork
Function MapDrv(DrvLet, UNCPath) 'функция подключения сетевого диска
Dim objFSO Dim Drive
Set objFSO = CreateObject("Scripting.FileSystemObject") 'Создание объекта FileSystemObject
If objFSO.DriveExists(DrvLet) Then objWshNetwork.RemoveNetworkDrive DrvLet,true, true 'происходит дисконнект диска Z End If
WScript.Sleep 100 'пауза
objWshNetwork.MapNetworkDrive DrvLet, UNCPath 'Подсключение указанного диска с именем DrvLet и с сетевым путем UNCPath
End Function
MapDrv "Z:", "\Имя сервераимя шары" 'Вызов функции маппирования с заданными параметрами Я его привел к следующему виду: Цитата Dim objWshNetwork
Const FileSrv1 = "\Server00"
Set objWshNetwork = CreateObject( "WScript.Network" ) 'Создание объекта WshNetwork
WScript.Sleep 100 'пауза
MapDrv "Z:", FileSrv1 & "downloads$","Задания" 'Вызов функции маппирования с заданными параметрами MapDrv "M:", FileSrv1 & "MAIL$","Mail" 'Вызов функции маппирования с заданными параметрами ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Function MapDrv(DrvLet, UNCPath, DrvName) 'функция подключения сетевого диска
Dim objFSO, oShell
Set objFSO = CreateObject("Scripting.FileSystemObject") 'Создание объекта FileSystemObject Set objoShell = CreateObject("Shell.Application")
On Error Resume Next
If objFSO.DriveExists(DrvLet) Then objWshNetwork.RemoveNetworkDrive DrvLet, true, true 'происходит дисконнект дисков End If
objWshNetwork.MapNetworkDrive DrvLet, UNCPath 'Подсключение указанного диска с именем DrvLet и с сетевым путем UNCPath objoShell.NameSpace(DrvLet).Self.Name = DrvName End Function Диски подгружаются на ура но не всем пользователям нужен диск mail. Разбираясь с первым листингом пытался через WScript.Echo strUserID получить значение но скрипт что-то питюкает и без ошибок вываливаеться в командную строку. Закомментировав строку Цитата Const UseNTServer = 0 'to Windows Servers. 'Values are: 1 (Yes) OR 0 (No) WScript.Echo strUserID начинает возвращать имя пользователя но вот проделов все тоже с strDomain, strUserGroups все четно выскакивает в командную строку. Как правильно запустить пошаговую отладку? |
|
Форум: Программирование
· Просмотр сообщения: #93773
· Ответов: 4
· Просмотров: 18411
|
Ошибка взаимодействия с NAT
|
Theridiidae |
Отправлено: Понедельник, 07 Декабря 2009, 12:46 |
Участник
Группа: Участник
Сообщений: 211
Регистрация: 14.02.2007
Из: Город Герой МОСКВА!
Пользователь №: 14030
|
А сделайте с WinXP ipconfig /all route print с какой машины сделан? |
|
Форум: Microsoft Windows Vista
· Просмотр сообщения: #93026
· Ответов: 11
· Просмотров: 25643
|
Не работают интернет-приложения в 64 bit
|
Theridiidae |
Отправлено: Четверг, 03 Декабря 2009, 13:08 |
Участник
Группа: Участник
Сообщений: 211
Регистрация: 14.02.2007
Из: Город Герой МОСКВА!
Пользователь №: 14030
|
А сетевое оборудование не менял? Или все началось так же спонтанно как и в созданном мной типиком? Helen давала ссылку. Хотелось бы понять все таки первопричину, глюки то схожие. А закрытие IE в Win Vista, думаю связанно с технологией vista.
|
|
Форум: Microsoft Windows Server 2003
· Просмотр сообщения: #93005
· Ответов: 7
· Просмотров: 18612
|
Новые ответы Нет новых ответов Горячая тема (Есть ответы) Горячая тема (Нет ответов) |
Опрос (Есть ответы) Опрос (Нет ответов) Закрытая тема Тема перемещена |
|
|
© Copyright by WinCity.Ru 2001 - 2008 | Обратная связьУслуги веб-хостинга предоставлены компанией MTW.RU
|
|