:: Конференция Алматинского Клуба Драг Рейсинга ::: админы, наморщим ум - :: Конференция Алматинского Клуба Драг Рейсинга ::

Перейти к содержимому

  • 4 Страниц +
  • 1
  • 2
  • 3
  • 4
  • Вы не можете создать новую тему
  • Вы не можете ответить в тему

админы, наморщим ум одного Гугля не хватает))) Оценка: -----

#41 Пользователь офлайн   _SiMBA_ Иконка

  • красный партизан
  • Группа: Admin
  • Сообщений: 17170
  • Регистрация: 09.06.03 00:04
  • MMC Delica 2.8TD PE8W
  • Город:Ламата

Отправлено 03 October 2008 - 11:00

ну, тада надо как то "коллекцию" обьекта item посмотреть
в дебагере может...
Follow _SiMBA_07 on Twitter
0

#42 Пользователь офлайн   _SiMBA_ Иконка

  • красный партизан
  • Группа: Admin
  • Сообщений: 17170
  • Регистрация: 09.06.03 00:04
  • MMC Delica 2.8TD PE8W
  • Город:Ламата

Отправлено 03 October 2008 - 11:07

о
я такое писал оказыца

'/////////////////////////////////////////////////////////////////////////
/
'/// Name:	ListDomainUsers.vbs
'/// Version:	1.0
'/// Date:	25/07/2006
'/// Purpose: 	Load logins from AD and save it to file.
'/// OS:	Windows 2000, XP, MS SQL 2000 
'/// Before run: Change Active Directory path to your Organization Unit (OU)
'///
'/// _SiMBA_ 2006
'///
'/// Выгружает список логинов из AD.
'///
'/// Перед запуском этого скрипта, укажите правильный путь в переменной sDomainADsPath к Active Directory где программе 
'/// следует искать доменных пользователей. 
'/// Пример:
'/// Если пользователи вашего домена, заведены по такому пути microsoft.com/New York/Users то путь в переменной будет таким
'///
'/// "LDAP://ou=Users,ou=New York,dc=microsoft,dc=com" 
'///
'/// Данная переменная находится в строке: 
'///
'/// По окончании работы, будет создан файл с именем NTLogins.txt в той же папке откуда был запущен скрипт.
'///
'///
'/// _SiMBA_ 2005 http://simba.racing.kz
'//////////////////////////////////////////////////////////////////////////

Option Explicit
'On Error Resume Next

'/// Variable Declarations

Dim oRootDSE, oCon, oCmd, oRecordSet, oRecordSet2
Dim sDomainADsPath, sDomainADsPath2, sUser, sPassword, sGroup, sProperties
Dim aDescription, aMember, iCount
Dim x,i,fso, conn, ConnString, server, rs, sDefServerName, f, ts, output, sDomain


'/// Extract domain name of the logged on user account

Set oRootDSE 		= GetObject("LDAP://RootDSE")
sDomain			= "COM\"
sDomainADsPath		= "LDAP://ou=Employees2,ou=Users,dc=Microsoft,dc=COM" 
sDomainADsPath2		= "LDAP://ou=Employees,ou=Users,dc=Microsoft,dc=COM" 

Set oRootDSE 		= Nothing
sDefServerName		= "SERVERNAME0"


'/// Create, configure, and open ADO Connection and other object 

Set oCon 		= CreateObject("ADODB.Connection")

oCon.Provider 		= "ADsDSOObject"
Set fso 		= CreateObject("Scripting.FileSystemObject")


oCon.Open "ADProvider", sUser, sPassword

'/// Create and configure ADO Command object

Set oCmd		= CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = oCon

sProperties		= "sAMAccountName"
sGroup			= "*"

oCmd.CommandText = "<" & sDomainADsPath & ">;(&(objectCategory=user)(name=" & sGroup & "));" & sProperties & ";subtree"

'/// Populate ADO RecordSet object with AD Group info

Set oRecordSet = oCmd.Execute

oCmd.CommandText = "<" & sDomainADsPath2 & ">;(&(objectCategory=user)(name=" & sGroup & "));" & sProperties & ";subtree"

Set oRecordSet2 = oCmd.Execute

'/// Compare all records in Recordsets

output = "-- Domain-logins " & VbCrLf & VbCrLf

x = 0
	i = 0
	While Not oRecordSet.EOF 
		output = output & sDomain & UCase(trim(oRecordSet(0))) & VbCrLf
		oRecordSet.MoveNext 
		x = x + 1
	Wend 

output = output & VbCrLf & "Domain-logins of: " & sDomainADsPath & VbCrLf
output = output & VbCrLf & "Count: " & x & VbCrLf & VbCrLf
i = x
	While Not oRecordSet2.EOF 
		output = output & sDomain & UCase(trim(oRecordSet2(0))) & VbCrLf
		oRecordSet2.MoveNext 
		x = x + 1
	Wend 

output = output & VbCrLf & "Domain-logins of: " & sDomainADsPath2 & VbCrLf
output = output & VbCrLf & "Count: " & x - i & VbCrLf & VbCrLf


'/// Save results 
output = output & vBCrLf & "-- Thanks for use." 
output = output & vBCrLf & "-- _SiMBA_ 2005 http://simba.racing.kz" 

fso.CreateTextFile "NTLogins.txt" 
Set f = fso.GetFile("NTLogins.txt")
Set ts = f.OpenAsTextStream(2,-2)
ts.Write (output)
ts.Close


'/// Close Recordset and Connection objects 

oRecordSet.Close
oCon.Close

'/// Clean up 

Set oRecordSet 	= Nothing
Set oCon 	= Nothing
set conn	= Nothing
set rs		= Nothing



msgbox "Done"

Follow _SiMBA_07 on Twitter
0

#43 Пользователь офлайн   _DalaS_ Иконка

  • ВрачЪ Лоботомист
  • Группа: Клуб "ПроходимецЪ"
  • Сообщений: 6280
  • Регистрация: 28.06.03 12:45
  • Suzuki Grand Vitara III
  • Город:Растаманская обл.

Отправлено 03 October 2008 - 11:54

хы
теперь есть логины но нет фулнейм :)
Молчание не всегда доказывает присутствие ума, но доказывает отсутствие глупости.
Буаст

Всю жизнь мечтал стать хирургом, а стал сисадмином. сказали бы в молодые годы - не поверил бы
Плох тот сисадмин, который не мечтает стать нейрохирургом
(я про лоботомию)
(\_/)
(O.o)
(> <)
0

#44 Пользователь офлайн   _SiMBA_ Иконка

  • красный партизан
  • Группа: Admin
  • Сообщений: 17170
  • Регистрация: 09.06.03 00:04
  • MMC Delica 2.8TD PE8W
  • Город:Ламата

Отправлено 03 October 2008 - 11:59

доработай сам : )
попробуй в этой конструкции


   While Not oRecordSet.EOF 
		output = output & sDomain & UCase(trim(oRecordSet(0))) & VbCrLf
		oRecordSet.MoveNext 
		x = x + 1
	Wend



менять ноль на следующие цифры, 1,2,3 и т.д
это колонки
как найдеш нужную совмести

типа такого

output = output & sDomain & UCase(trim(oRecordSet(0))) & "  :  "& UCase(trim(oRecordSet(8)))  & VbCrLf

Follow _SiMBA_07 on Twitter
0

#45 Пользователь офлайн   _DalaS_ Иконка

  • ВрачЪ Лоботомист
  • Группа: Клуб "ПроходимецЪ"
  • Сообщений: 6280
  • Регистрация: 28.06.03 12:45
  • Suzuki Grand Vitara III
  • Город:Растаманская обл.

  Отправлено 03 October 2008 - 12:02

Просмотр сообщения_SiMBA_ (03.10.2008 - 09:45) писал:

sAMAccountName - называется
просто поробуй добавить к строке (или замени)

objTextFile.Write Item.FullName & vBTab & item.sAMAccountName & VbCrLf

так работает
objTextFile.WriteLine Item.FullName & vBTab & Item.Name


и того, работаюший скрипт вытаскивает полное имя пользователя ФИО и UserLogonName (Иванов Петр Василич PIvanov)

Const ForAppending = 8
On Error Resume Next
'Путь, по которому будет писаться отчёт
path="c:\"
'Файл, в который будет писаться отчёт
file_name=path+"\users.txt"
 
Set fso = CreateObject("Scripting.FileSystemObject")
'Проверяем наличие папки
if (fso.FolderExists(path)) then
 else Set Folder = fso.CreateFolder(path)
end if
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Проверяем наличие файла, если есть то дописываем в конец
Set objTextFile = objFSO.OpenTextFile _
	(file_name, ForAppending, True)
 
'Собственно поиск нужных юзеров
'On Error Resume Next
Set objDomain = GetObject("WinNT://nurb.kz")
 
for Each Item in objDomain
 if Item.Class = "User" then
  'objTextFile.Write Item.FullName & VbCrLf   
  'objTextFile.Write Item(("FullName") & ("vBTab") & ("sAMAccountName")) & VbCrLf
   objTextFile.WriteLine Item.FullName & vBTab & Item.Name
 END if
Next
objTextFile.Close
WSCript.Echo "Всё"

Молчание не всегда доказывает присутствие ума, но доказывает отсутствие глупости.
Буаст

Всю жизнь мечтал стать хирургом, а стал сисадмином. сказали бы в молодые годы - не поверил бы
Плох тот сисадмин, который не мечтает стать нейрохирургом
(я про лоботомию)
(\_/)
(O.o)
(> <)
0

#46 Пользователь офлайн   _DalaS_ Иконка

  • ВрачЪ Лоботомист
  • Группа: Клуб "ПроходимецЪ"
  • Сообщений: 6280
  • Регистрация: 28.06.03 12:45
  • Suzuki Grand Vitara III
  • Город:Растаманская обл.

Отправлено 03 October 2008 - 17:24

а кто нить конфсвяз делал?
задача, нужно что-то вроде реалити шоу сделать
сидит чувак, его палит веб камера отвечает на вопросы которые иму присылают месенжером.
т.е. его только видят и слышат как по телеку, больше ничего ненадо?
есть чего на уме?
Молчание не всегда доказывает присутствие ума, но доказывает отсутствие глупости.
Буаст

Всю жизнь мечтал стать хирургом, а стал сисадмином. сказали бы в молодые годы - не поверил бы
Плох тот сисадмин, который не мечтает стать нейрохирургом
(я про лоботомию)
(\_/)
(O.o)
(> <)
0

#47 Пользователь офлайн   _DalaS_ Иконка

  • ВрачЪ Лоботомист
  • Группа: Клуб "ПроходимецЪ"
  • Сообщений: 6280
  • Регистрация: 28.06.03 12:45
  • Suzuki Grand Vitara III
  • Город:Растаманская обл.

Отправлено 06 October 2008 - 08:31

еще нада :)
Молчание не всегда доказывает присутствие ума, но доказывает отсутствие глупости.
Буаст

Всю жизнь мечтал стать хирургом, а стал сисадмином. сказали бы в молодые годы - не поверил бы
Плох тот сисадмин, который не мечтает стать нейрохирургом
(я про лоботомию)
(\_/)
(O.o)
(> <)
0

#48 Пользователь офлайн   MonoRAil Иконка

  • -----
  • Группа: Members
  • Сообщений: 14968
  • Регистрация: 23.11.04 19:21
  • -----

Отправлено 03 November 2008 - 23:28

други, выручайте. Не дайте пропасть отпуску окончательно...((((
на серваке издох винт. Нада заменить, а то скатина не запускается. (системная партиция в RAID 0)
винт еще гарантийный, такчта канешна понесу в гарантию, но это ж долго... пока заменят....
скажите где быстро купить SCSI Ultra320 146 Гигов? а то чота везде смарю под заказ тока... А если даж не под заказ это ж всеравно, щас всем деньги вперед. А как я деньги перечислю, если у меня сервак в дауне? (((
или дайте ктонить в аренду на время... чиста систему подниму с бэкапа, array переконфигурю и отдам тутже. Возблагодарю как положено, пивасиком.
А?
0

#49 Пользователь офлайн   MonoRAil Иконка

  • -----
  • Группа: Members
  • Сообщений: 14968
  • Регистрация: 23.11.04 19:21
  • -----

Отправлено 04 November 2008 - 13:05

атбой учебной тревоги.
винт нашел, воткнул. Ребилдица...
0

#50 Пользователь офлайн   _SiMBA_ Иконка

  • красный партизан
  • Группа: Admin
  • Сообщений: 17170
  • Регистрация: 09.06.03 00:04
  • MMC Delica 2.8TD PE8W
  • Город:Ламата

Отправлено 04 November 2008 - 14:36

у тя компаки ?
Follow _SiMBA_07 on Twitter
0

#51 Пользователь офлайн   MonoRAil Иконка

  • -----
  • Группа: Members
  • Сообщений: 14968
  • Регистрация: 23.11.04 19:21
  • -----

Отправлено 04 November 2008 - 17:12

угу
ошалеть. на ребилд диска 5 часов ушло. Хотя.... ХП рекомендовал настроица на 36,5 часов, так что и то радость )))
0

#52 Пользователь офлайн   _SiMBA_ Иконка

  • красный партизан
  • Группа: Admin
  • Сообщений: 17170
  • Регистрация: 09.06.03 00:04
  • MMC Delica 2.8TD PE8W
  • Город:Ламата

Отправлено 04 November 2008 - 17:17

винты в каретке ихней фирменной ?

а скорость ребилда зависит от настроек приоритета в сказе
вобще странно что ты запас не держиш

раз в пол года вылетает стабильно то там то сям
правда их у нас дохрена в библиотеках

есть и такие в которых по данным SMART по 80 тысяч часов наработки и пашут еще!
это более 7 лет мля не выключаясь ))
Follow _SiMBA_07 on Twitter
0

#53 Пользователь офлайн   MonoRAil Иконка

  • -----
  • Группа: Members
  • Сообщений: 14968
  • Регистрация: 23.11.04 19:21
  • -----

Отправлено 04 November 2008 - 18:11

Просмотр сообщения_SiMBA_ (04.11.2008 - 17:17) писал:

винты в каретке ихней фирменной ?

угу

Просмотр сообщения_SiMBA_ (04.11.2008 - 17:17) писал:

вобще странно что ты запас не держиш

держу. еслиб не держал совсем, ребилдить нечего было бы. Но теперича буду держать больше.
мож вентиляторов к ним еще присобачить....

Просмотр сообщения_SiMBA_ (04.11.2008 - 17:17) писал:

есть и такие в которых по данным SMART по 80 тысяч часов наработки и пашут еще!
это более 7 лет мля не выключаясь ))

есть такие на старом серваке, да... шуршат себе пластинами потихонечку...
0

#54 Пользователь офлайн   _SiMBA_ Иконка

  • красный партизан
  • Группа: Admin
  • Сообщений: 17170
  • Регистрация: 09.06.03 00:04
  • MMC Delica 2.8TD PE8W
  • Город:Ламата

Отправлено 05 November 2008 - 08:56

у меня тож вопрос есть
чем снесеную партицию востановить
или хотяб файлы которые на винте были

ZAR попробовал. около 20 часов ковырялся, востановил типа файлы с папками, но внутри муоср ни одного файла короче не востановилось кроме имени и размера...


партиция слетела, на винт больше ничего не писалось и не форматилось

кто чем пользует чтоб последние NTFS поддерживались (типа в XP SP3 и виста SP1 ) ?
Follow _SiMBA_07 on Twitter
0

#55 Пользователь офлайн   MonoRAil Иконка

  • -----
  • Группа: Members
  • Сообщений: 14968
  • Регистрация: 23.11.04 19:21
  • -----

Отправлено 05 November 2008 - 12:45

не могу сказать ничего хорошего ни про одну прогу. Все по разному в разных ситуациях пашут...
последний раз (за что мне ШЫГЯГ вырезали, ну ты помнишь) юзал Infra Live CD - а что конкретно в нем (там несколько утилит) уже и не помню.
определил две снесенных и отформатированных партиции, на которые сверху винду переставили. Все данные (около 250 гигов) больших графических файлов вытащил без потерь. Но повезло что физически нужная партиция была в конце диска и винда туда ничо не успела накатить сверху.

конкретно новый NTFS не знаю как поддерживает, но в режиме RAW все нашел
0

#56 Пользователь офлайн   _DalaS_ Иконка

  • ВрачЪ Лоботомист
  • Группа: Клуб "ПроходимецЪ"
  • Сообщений: 6280
  • Регистрация: 28.06.03 12:45
  • Suzuki Grand Vitara III
  • Город:Растаманская обл.

Отправлено 24 December 2008 - 16:14

вобшем проблема в следущем

есть сервак, на каторые счаз льеца большой обьем инфы. но в ночное время, отваливается сетка, чтобы восстановить подключение, нужно всего лиш в панели управления отключить и включить соединение.

собсна по причине что это сам сервак мега вещ от ФС BF400, исключено что это железная проблема. тк на этом BF400 работаю 3 виртуалки, и вылетает только одна.

переинсталил драва, после патчей сегодня, заменил tcpip.sys для увеличения коннектов.
но вот теперь предложили посидеть ночку чтобы в случае пропадания связи восстановить соединение.

а так как мне лень, хачу чегонибуть вроде скрипта который:
будет пинговать с переодичностью 1-4 минуты. и в случае если ответа нет, то переподключать соединение. т.е. дизейбл енейбл подклбчения по локальной сети.
Молчание не всегда доказывает присутствие ума, но доказывает отсутствие глупости.
Буаст

Всю жизнь мечтал стать хирургом, а стал сисадмином. сказали бы в молодые годы - не поверил бы
Плох тот сисадмин, который не мечтает стать нейрохирургом
(я про лоботомию)
(\_/)
(O.o)
(> <)
0

#57 Пользователь офлайн   _SiMBA_ Иконка

  • красный партизан
  • Группа: Admin
  • Сообщений: 17170
  • Регистрация: 09.06.03 00:04
  • MMC Delica 2.8TD PE8W
  • Город:Ламата

Отправлено 24 December 2008 - 17:28

пинг
strMachines = "atl-dc-01;atl-win2k-01;atl-nt4-01;atl-dc-02"
aMachines = split(strMachines, ";")
 
For Each machine in aMachines
	Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}")._
		ExecQuery("select * from Win32_PingStatus where address = '"_
			& machine & "'")
	For Each objStatus in objPing
		If IsNull(objStatus.StatusCode) or objStatus.StatusCode<>0 Then 
			WScript.Echo("machine " & machine & " is not reachable") 
		End If
	Next
Next


завтра еще поищу
Follow _SiMBA_07 on Twitter
0

#58 Пользователь офлайн   _DalaS_ Иконка

  • ВрачЪ Лоботомист
  • Группа: Клуб "ПроходимецЪ"
  • Сообщений: 6280
  • Регистрация: 28.06.03 12:45
  • Suzuki Grand Vitara III
  • Город:Растаманская обл.

Отправлено 24 December 2008 - 18:17

можно такой цепочкой
ping.vbs - пингует основной гейт, если он не доступен запускает restartservise.bat
Молчание не всегда доказывает присутствие ума, но доказывает отсутствие глупости.
Буаст

Всю жизнь мечтал стать хирургом, а стал сисадмином. сказали бы в молодые годы - не поверил бы
Плох тот сисадмин, который не мечтает стать нейрохирургом
(я про лоботомию)
(\_/)
(O.o)
(> <)
0

#59 Пользователь офлайн   _SiMBA_ Иконка

  • красный партизан
  • Группа: Admin
  • Сообщений: 17170
  • Регистрация: 09.06.03 00:04
  • MMC Delica 2.8TD PE8W
  • Город:Ламата

Отправлено 24 December 2008 - 18:46

не, сетевуха не сервис же
Follow _SiMBA_07 on Twitter
0

#60 Пользователь офлайн   _DalaS_ Иконка

  • ВрачЪ Лоботомист
  • Группа: Клуб "ПроходимецЪ"
  • Сообщений: 6280
  • Регистрация: 28.06.03 12:45
  • Suzuki Grand Vitara III
  • Город:Растаманская обл.

Отправлено 17 August 2010 - 19:15

Просмотр сообщения_DalaS_ (03 October 2008 - 12:02) писал:

так работает
objTextFile.WriteLine Item.FullName & vBTab & Item.Name


и того, работаюший скрипт вытаскивает полное имя пользователя ФИО и UserLogonName (Иванов Петр Василич PIvanov)

Const ForAppending = 8
On Error Resume Next
'Путь, по которому будет писаться отчёт
path="c:\"
'Файл, в который будет писаться отчёт
file_name=path+"\users.txt"
 
Set fso = CreateObject("Scripting.FileSystemObject")
'Проверяем наличие папки
if (fso.FolderExists(path)) then
 else Set Folder = fso.CreateFolder(path)
end if
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Проверяем наличие файла, если есть то дописываем в конец
Set objTextFile = objFSO.OpenTextFile _
	(file_name, ForAppending, True)
 
'Собственно поиск нужных юзеров
'On Error Resume Next
Set objDomain = GetObject("WinNT://nurb.kz")
 
for Each Item in objDomain
 if Item.Class = "User" then
  'objTextFile.Write Item.FullName & VbCrLf   
  'objTextFile.Write Item(("FullName") & ("vBTab") & ("sAMAccountName")) & VbCrLf
   objTextFile.WriteLine Item.FullName & vBTab & Item.Name
 END if
Next
objTextFile.Close
WSCript.Echo "Всё"


еще вопрос, как дернуть прописанные в профиле у пользователя группы?
Молчание не всегда доказывает присутствие ума, но доказывает отсутствие глупости.
Буаст

Всю жизнь мечтал стать хирургом, а стал сисадмином. сказали бы в молодые годы - не поверил бы
Плох тот сисадмин, который не мечтает стать нейрохирургом
(я про лоботомию)
(\_/)
(O.o)
(> <)
0

Поделиться темой:


  • 4 Страниц +
  • 1
  • 2
  • 3
  • 4
  • Вы не можете создать новую тему
  • Вы не можете ответить в тему

1 человек читают эту тему
0 пользователей, 1 гостей, 0 скрытых пользователей