Нажмите CTRL-D чтобы добавить нас в закладки
HackZone.RU - Аудит оборудования в сети и локальных станций для WIN2000/XP/Vista
Войти / Регистрация / Участники
Определение даты выпуска iPhone по серийному номеру
-
Поиск по сайту
Форумы



Реклама

Поиск ТОП Добавить публикацию

Аудит оборудования в сети и локальных станций для WIN2000/XP/Vista

07.10.2008

Обращаем внимание, что данная публикация взята из архива.
Возможно, что информация, изложенная здесь, частично устарела
Недавно столкнулся с задачей потребовалось собрать информацию с компьютерах стоящих в сети
начал рыться в интернете и накопал кучу платных программ которые это делают но это как бы не очень устраивало ведь такую штуку можно написать самому например на VBscript засунуть его в политику безопасности и при включении инфа будет считываться в с каждого хоста в домене и записываться в файл в папочку на сервер и останеться просто его распечатать делается все просто с помощью базы данных WMI не знаю как это переводиться но вся фишка в том что она хрант данные об оборудовании вашего компа и всегда есть в Windows с 2000 версии и по vista
собственно ниже рабочий код который можно скопировать в файл с расширением vbs и запустить  по идее скрип должен сработать
****************************************************************************

'начало типа бегин и все такое
Dim ZAPROS,Z_,I_Net,I_CPU,I_HDD,I_V,I_CD,I_S
Dim NETS,II,SQL_Z(30),TruHost,IDPC
Dim N ,X'поличество запросов

'Имя компьютера
Dim HostName
'Имена устройств
Dim Net(25)                'Сетевая карта
Dim NetMAC(25)            'Мак адрес карты
Dim IP(25)                'Адресс сетевой карты
Dim CPU(25)                'Название процессора
Dim CPU_Clock(25)        'Частота процессора
Dim HDD(25)                'Название жесткого диска
Dim HDD_SIZE(25)        'Размер жесткого диска
Dim RAM                    'Обьем оперативной памяти
Dim VIDEOCART(25)        'Название видеокарты
Dim VIDEO_RAM(25)        'Обьем памяти видеокарты
Dim CDROM(25)            'Сидиромы
Dim Saund(25), S_Count    'Название звуковой карты
'Названия таблиц для выборки данныx
Dim Table(25)
Table(1)="Win32_ComputerSystem"     'Название компьютера обьем памяти домен
Table(2)="Win32_Processor"             'Название процессора частота
Table(3)="Win32_VideoController"     'Видеокарта название обьем памяти
Table(4)="Win32_SoundDevice"         'Звуковая карта название
Table(5)="Win32_NetworkAdapter"     'Данные о сетевой карте
Table(6)="Win32_DiskDrive"             'Данные о жестком диске название размер
Table(7)="Win32_CDROMDrive"         'Название сидирома
'шаблон стандартного запроса
ZAPROS="SELECT * FROM "    'Стандартный запрос
NETS=" WHERE MACAddress<>Null"     'для сетевых карточек
HDDS=" WHERE Size<>Null"            'Для хардов
'Определение переменных для соеденения с базами данных
Dim StrHost         'Имя хоста
Dim strNameSpace     'имя базы данных
Dim oWshNetwork     'Обьект сети
Dim ConnectDB        'Обьект SQL Базы
Dim Reqest            'Обьект для запроса к базе данных SQL
Dim Login, pass,Conn,colItems
'Заполнение переменных
Login="ID=SA"
pass="[email protected]"
Conn="User "&Login&";"&pass&";Data Source = _SERVER_RU\SQLEXPRESS;Initial Catalog = NTMDT"
StrHost="."
strNameSpace="Root\Cimv2"
'Создание обьектов для работы с базами
Set objWMIService = GetObject("winmgmts://"&StrHost&"/"& strNameSpace)    'Соеденение с базой
Set oWshNetwork = WScript.CreateObject("WScript.Network")                'Соеденение с нетворк


'*************************начало считывания данных**************************************************************

'название компьютера и Обьем оперативной памяти
Z_=ZAPROS&Table(1)                                                         'Формирование запроса
Set colItems = objWMIService.ExecQuery(Z_)                                'Попытка получить данные
For Each objItem in colItems                                             'Чтение полученных данных
HostName= objItem.Caption                                                'Определение имени хоста
RAM=Round ((objItem.TotalPhysicalMemory/1048576)/1000,1)                 'Определение обьема памяти
Next
'Следуюущая запись >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

'Маки и названия сетевых карт
I_Net=0
Z_=ZAPROS&Table(5)&NETS                     'Формирование запроса
Set colItems = objWMIService.ExecQuery(Z_)    'Попытка получить данные
For Each objItem in colItems                 'Чтение полученных данных
I_Net=I_Net+1                                'подсчет количества устройств
Net(I_Net)= objItem.Name                     'Определение имени сетевой карты
NetMAC(I_Net)=objItem.MACAddress             'Мак адресс
Next
'Следуюущая запись >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

'Название процессора частота процессора
I_CPU=0
Z_=ZAPROS&Table(2)                                             'Формирование запроса
Set colItems = objWMIService.ExecQuery(Z_)                    'Попытка получить данные
For Each objItem in colItems                                 'Чтение полученных данных
I_CPU=I_CPU+1                                                'подсчет количества устройств
CPU(I_CPU)= objItem.Name                                    'Определение имени процессора
CPU_Clock(I_CPU)=Round (objItem.CurrentClockSpeed/1000,1)    'Частота процессора
Next
'Следуюущая запись >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

'Название жесткого диска Размер жесткого диска
I_HDD=0
Z_=ZAPROS&Table(6)                                                 'Формирование запроса
Set colItems = objWMIService.ExecQuery(Z_+HDDS)                    'Попытка получить данные
For Each objItem in colItems                                     'Чтение полученных данных
I_HDD=I_HDD+1                                                    'подсчет количества устройств
HDD(I_HDD)= objItem.Caption                                     'Определение имени жесткого диска
HDD_SIZE(I_HDD)=Round (objItem.Size/1073741824,1)                'Определение обьема памяти
Next
' видеокарты
I_V=0
Z_=ZAPROS&Table(3)                             'Формирование запроса
Set colItems = objWMIService.ExecQuery(Z_)    'Попытка получить данные
For Each objItem in colItems                 'Чтение полученных данных
I_V=I_V+1                                    'подсчет количества устройств
VIDEOCART(I_V)= objItem.Caption             'Определение имени видеокарты
VIDEO_RAM(I_V)=objItem.AdapterRAM            'Определение обьема памяти
Next

'Сидиромы
I_CD=0
Z_=ZAPROS&Table(7)                             'Формирование запроса
Set colItems = objWMIService.ExecQuery(Z_)    'Попытка получить данные
For Each objItem in colItems                 'Чтение полученных данных
I_CD=I_CD+1                                    'подсчет количества устройств
CDROM(I_CD)= objItem.Caption                 'Определение имени Сидирома
Next

'Название звуковой карты
Z_=ZAPROS&Table(4)                            'Формирование запроса
S_Count=0                            
Set colItems = objWMIService.ExecQuery(Z_)    'Попытка получить данные
For Each objItem in colItems                 'Чтение полученных о звуковой карте
S_Count=S_Count+1
Saund(S_Count)= objItem.Caption             'Определение имени Сидирома
Next
********************************************************************************************************
как видно все написанно практически на русском языке и в открытом виде в итоге полученные данные можно записать куда угодно либо в базу данных либо сформировать файлик отчета надеюсь что кому нибуть эта штука помажет с экономить время и деньги )
а об vbscript подробнее можно узнать на сайте указаном в ссылке

При копировании материалов ссылка на HackZone.RU обязательна

Добавить страницу в закладки

 Детали
Категория: Архив
Опубликовал: cibergod
Просмотров: 9567
Проголосовало через SMS: 0
  Разместить у себя на сайте
Прямая ссылка
HTML
BBCode ссылка
BBCode ссылка с текстом

 Комментарии (оставить свой комментарий можно здесь)
Только зарегистрированные пользователи могут оставлять комментарии

Зарегистрироваться *** Авторизоваться


 Последние новости и статьи  Последние сообщения с форумов
  • SpaceX и НАСА запретили сотрудникам использовать Zoom. Разработка...
  • В Firefox исправлены две 0day уязвимости
  • Хакерский форум OGUsers взломан
  • Уязвимости в Safari позволяли взломать камеру на iPhone и MacBook
  • Уязвимость в iOS блокирует шифрование трафика VPN
  • Зафиксирован новый случай использования крайне редкой атаки BadUS...
  • Опубликован способ обхода PPL для внедрения шелл-кода
  • ФБР ликвидировали deer.io
  • Пользователи iOS в Гонконге стали жертвами многофункциональной ма...
  • Украдены исходные коды графических процессоров AMD

    Все новости... Все статьи... Прислать новость RSS
  • Портал / Отзывы и предложения » Re: Make HackZone Great Again
  • Разное / Предложения работы » взлом сайта
  • Взлом и безопасность / Программы » ISBC Telecom обеспечит смс-информирование персонала на удале
  • Взлом и безопасность / Разное » Re: Живу в Туркменистане, SOS
  • Взлом и безопасность / Разное » Re: Живу в Туркменистане, SOS
  • Взлом и безопасность / Разное » Re: Живу в Туркменистане, SOS
  • Взлом и безопасность / Разное » Живу в Туркменистане, SOS
  • Разное / Предложения работы » Взлом CRM сайта
  • Портал / Отзывы и предложения » Re: Make HackZone Great Again
  • Разное / Ищу работу » Re: взлом почты на майле

    Все форумы... RSS


  • Разместить рекламу
    © HackZone Ltd. 1996-2020. Все права зарегистрированы.
    Перепечатка материалов без согласования и указания источника будет преследоваться по Закону

    О проекте | История проекта | Размещение рекламы | Обратная связь | Правила поведения на портале
    contador de visitas счетчик посещений

    #{title}

    #{text}

    x

    #{title}

    #{text}