|
|
Вот полезный скрипт для быстрого отображения конфигурации на удаленной системе для устранения неполадок или перечень целей.
Этот удобный скрипт попытка собрать различные Windows NT/2000/XP/2003 операционной системы атрибутов и отображать их согласованным образом для оказания помощи в устранении неполадок. Я настоятельно рекомендую изменить настройки параметров расположены в сценарий. Чтобы изменить этот текстовый файл, просто откройте его в "Блокноте" (оставить Word Wrap выключен). Даже если у вас нет опыта в VBScript, нужно найти изменения довольно легко сделать. Прочитайте комментарии в различных разделах сделать жизнеспособным инструментом для вашей организации.
Этот инструмент предназначен для использования только стандартных API звонки и ничего с третьей стороной COM объектов. Это предохраняет инструмент легкие и портативные, как только текстовый файл. Я предлагаю поставить инструмент в локальный каталог сам по себе, чтобы HTML страниц, он создает не выйти за руку. Если машина не имеет WMI 1,5, то кучу информации может быть пропавшими без вести. Вы получите тех же результатов, если нет прав администратора на удаленном компьютере. Этот сценарий не будет работать на любой Windows 9x операционных систем.
Вы можете сохранить этот скрипт как DesktopChecker.vbs
'************************************************* * * *
"* *
'* Desktop Шахматная доска - Это скрипт для сбора ПОПЫТКЕ *
'* OS различные атрибуты и diplay их в целостной *
"* путь для оказания помощи в устранении неполадок. Я настоятельно рекомендую *
'* изменения настройки параметров расположены 2 секции *
'* ниже. Прочитайте комментарии в различных разделах *
'* сделать жизнеспособным инструментом для вашей организации. Это *
'* инструмент предназначен для использования только стандартных API звонков и *
'* ничего с 3 сторон COM объектов. Это держит *
'* инструмент lightwieght и переносных только как текстовый файл. *
'* Я предлагаю поставить инструмент в каталог самостоятельно *
"* тем, что HTML страниц создает не выйти за руку. *
"Если машина не имеет WMI 1,5 затем много информации мая *
'* отсутствуют. *
"* *
'* Денниса Эбботта *
"* * speckled_trout@hotmail.com
"* *
'************************************************* * * *
По ошибке возобновить Следующая
Dim WshShell, WshFso, WshNet, WshSysEnv, IE, wmi, ADSIobj, OutPutFile, DumpFile
Dim PathToScript, ComSpec, Cnt, CompName, Фирма, название, LogoLink, SelectServices, _
Область, Прогресс, инстанции, CurLine
Установить WshShell = CreateObject ( "Wscript.Shell")
Установить WshFso = CreateObject ( "Scripting.FileSystemObject")
Установить WshNet = CreateObject ( "Wscript.Network")
Установить WshSysEnv = WshShell.Environment ( "СИСТЕМА")
PathToScript = Левое (WScript.ScriptFullName, (Лен (WScript.ScriptFullName) - _
(Лен (WScript.ScriptName) + 1)))
ComSpec = WshSysEnv ( "COMSPEC")
Cnt = 0
"захватывать содержимое буфера обмена
"Это позволяет работать СПИСОК ящиков по прекращению н вставьте
Установить IE = CreateObject ( "InternetExplorer.Application")
IE.Navigate ( "о: <Сценарий языка =" и Chr (34)
и "vbscr" и "ipt" и Chr (34) и "> функцию искать (): document.all.it2.select"
и "(): document.execCommand" и
Chr (34) и "Вставить" и Chr (34) и ": en" и "г функцию </ скрипт> <орган
onload = идти ()>
<тип ввода = т "и" доб ценность = "и Chr (34) и" начало "и Chr (34) и"
идентификатор = it2> </ тела> ")
Хотя IE.ReadyState <> 4: Венд
CompName = IE.document.all.it2.value
IE.quit ()
Установить IE = ничего
"набор настроек переменных
Компания = "myITforum"
Название компании и = "- Helpdesk диагностический инструмент"
LogoLink = "http://www.myitforum.com/img/logo_final.gif"
"Следующая строка alows Вас запрос различные NT услуги по выбору
"Обязательно введите службы не NAME DISPLAY NAME, они могут быть
разными названиями
SelectServices = Array ( "WinMgmt", "Нортон Антивирусы Server", "DefWatch", "clisvc", "Dhcp")
Область = "amd" Ваш домен NT
Прогресс = True
"причинам всплывающие окна, когда набор для True она молчать, когда набор на ложные
CompName = InputBox ( "Введите имя удаленного компьютера", название, CompName)
Если CompName = "" Тогда MsgBox "Нет машине имя было занесено прощание ...": _ Wscript.Quit (0)
Установить wmi = GetObject ( "winmgmts: (impersonationLevel = выдавайте }!//" и _ CompName)
Установить ADSIobj = GetObject ( "WinNT: / /" и CompName и ", компьютер")
Звоните PrepHTML (CompName) "создать файл
Если прогресс, то
WshShell.Popup "Знакомство OS информации", 2, название, vbokonly + _
vbsystemmodal
Конец Если
Звоните GetOS (CompName)
Если прогресс, то
WshShell.Popup "Знакомство с NT администраторы", 2, название, vbokonly + _
vbsystemmodal
Конец Если
Звоните GetAdmins (CompName)
Если прогресс, то
WshShell.Popup "Проверка Виталь Услуги", 2, название, vbokonly + _
vbsystemmodal
Конец Если
Звоните услуг (CompName, SelectServices)
Если прогресс, то
WshShell.Popup "Проверка администратора акции", 2, название, vbokonly + vbsystemmodal
Конец Если
Звоните AdminShares (CompName)
Если прогресс, то
WshShell.Popup "Получение даты / времени печать", 2, название, vbokonly + _
vbsystemmodal
Конец Если
Звоните GetTime (CompName)
Если прогресс, то
WshShell.Popup "Знакомство NetBIOS информации", 2, название, vbokonly + _
vbsystemmodal
Конец Если
Звоните GetNBTstat (CompName)
Если прогресс, то
WshShell.Popup "Pinging компьютер", 2, название, vbokonly + vbsystemmodal
Конец Если
Звоните Пинг (CompName)
Если прогресс, то
WshShell.Popup "Получение реестра Квота", 2, название, vbokonly + _
vbsystemmodal
Конец Если
Звоните GetRegQuota (CompName)
Если прогресс, то
WshShell.Popup "Знакомство Оборудование информации", 2, название, vbokonly + _
vbsystemmodal
Конец Если
Звоните GetHW (CompName)
Если прогресс, то
WshShell.Popup "Получение карты сети информации", 2, название, vbokonly + _
vbsystemmodal
Конец Если
Звоните GetNIC (CompName)
Если прогресс, то
WshShell.Popup "Знакомство Software информации", 2, название, vbokonly + _
vbsystemmodal
Конец Если
Звоните GetSW (CompName)
Если прогресс, то
WshShell.Popup "Знакомство критических NT События", 2, название, vbokonly + _
vbsystemmodal
Конец Если
Звоните GetEvents (CompName)
Звоните ExitScript
Функция PrepHTML (CompName)
Установить OutPutFile = WshFso.CreateTextFile (PathToScript и "\" и CompName _
и ". html ")
OutPutFile.WriteLine "<body>"
OutPutFile.WriteLine "<h1> <center>" и название и "</ центр> </ h1>"
OutPutFile.WriteLine " <P> <IMG SRC = "и Chr (34) и LogoLink и Chr (34) _
и "</ img> </ р>"
OutPutFile.WriteLine "</ р> <P> "и" Учетная запись работает этот сценарий "_
и WshNet.UserDomain и "\" и WshNet.UserName и "@" _
и теперь и "из рабочих" и WshNet.ComputerName и "</ р>"
OutPutFile.WriteLine " <P> Информация о удаленному компьютеру <b> \ \ "_
и UCase (CompName) и "</ б> </ р>"
OutPutFile.WriteLine " <P> <font color=red> Чтобы просмотреть информацию, которую он "_
нагрузок нажмите REFRESH кнопки на панели браузера. </ шрифт> </ р> "
OutPutFile.WriteLine "<hr>"
WshShell.Run PathToScript и "\" и CompName и ". Html "
Конец Функция
Функция GetOS (CompName)
OutPutFile.WriteLine "<h3> 1 - Операционная система </ h3>"
OutPutFile.WriteLine "Версия операционной системы =" _
и ADSIobj.OperatingSystem и "" и ADSIobj.OperatingSystemVersion и "<br>"
Для каждой инстанции wmi.ExecQuery ( "Выбрать * Из Win32_OperatingSystem")
OutPutFile.WriteLine "Операционная система Заголовок =" _
и Instance.Caption и "<br>"
OutPutFile.WriteLine "Операционная система Service Pack =" _
и Instance.CSDVersion и "<br>"
OutPutFile.WriteLine "Операционная система LastBootUpTime =" _
и StrDateTime (Instance.LastBootUpTime) и "<br>"
OutPutFile.WriteLine "Операционная система каталогов =" _
и Instance.WindowsDirectory и "<br>"
Следующий
OutPutFile.WriteLine "<hr>"
Конец Функция
Функция GetAdmins (CompName)
Dim Admins, администратор
Dim AdsInfo
Установить Admins = GetObject ( "WinNT: / /" и CompName и "/ Администраторы")
OutPutFile.WriteLine "<h3> 2 - члены местного" _
и "администраторов группы </ h3>"
OutPutFile.WriteLine "<table border=1> <tr> <td> <b> Название </
б> </ td> <td> <b> Тип </ б> </ td> <td> <b>
Описание </ б> </ td> </ tr> "
Для каждого администратора в Admins.Members
Установить AdsInfo = GetObject (Admin.adspath)
OutPutFile.WriteLine "<tr> <td>" и AdsInfo.Name и "</ td> <td>" _
и AdsInfo.Class и "</ td> <td>" и AdsInfo.Description и "</ td> </ tr>"
Следующий
OutPutFile.WriteLine "</ таблица>"
OutPutFile.WriteLine "<hr>"
Конец Функция
Функция обслуживания (CompName, SelectServices)
Dim службы, srvc, государство, Стрг
OutPutFile.WriteLine "<h3> 3 - Состояние жизненно важных услуг </ h3>"
OutPutFile.WriteLine "<table border=1> <tr> <td> <b> служба
Имя </ б> </ td> <td> <b> Имя </ б> </ td> <td>
<б> Статус </ б> </ td> </ tr> "
Для каждой службы в SelectServices
Стрг = "<tr> <td>" и обслуживания и "</ td> <td> </
td> <td> <b> <font color=FF0000> НЕ НАСТОЯЩЕЕ </ шрифт> </ б> </
td> </ tr> "
ADSIobj.Filter = Array ( "Сервис")
For Each srvc в ADSIobj
Выберите Дело srvc.Status
Дело 1 государство = "<font color=FF0000> ПРЕКРАТИЛ </ шрифт>"
Дело 2 государство = "<font color=FF0000> START_PENDING </ шрифт>"
Дело 3 государства = "<font color=FF0000> STOP_PENDING </ шрифт>"
Дело 4 государства = "ТЕКУЩИЕ"
Дело 5 государство = "<font color=FF0000> CONTINUE_PENDING </ шрифт>"
Дело 6 государств = "<font color=FF0000> PAUSE_PENDING </ шрифт>"
Дело 7 государств = "<font color=FF0000> PAUSED </ шрифт>"
Дело еще государство = "<font color=FF0000> ОШИБКА </ шрифт>"
Конец Выберите
Если LCase (srvc.Name) = LCase (службы) Тогда Стрг = _
"<tr> <td>" и srvc.Name и "</ td> <td>" и
srvc.DisplayName _
и "</ td> <td>" и государство и "</ tr> </ td>"
Следующий
OutPutFile.WriteLine Стрг
Следующий
OutPutFile.WriteLine "</ таблица>"
OutPutFile.WriteLine "<hr>"
Конец Функция
Функция AdminShares (CompName)
Dim Акции
OutPutFile.WriteLine "<h3> 4 - Статус административного акции </ h3>"
Доли = True
Если WshFso.FolderExists ( "\ \" и CompName и "\ с $") = True Тогда
OutPutFile.WriteLine "C $ доли существует <br>"
Эльзе
Доли = Ложь
OutPutFile.WriteLine "<font color=red> C $ доли не" _
и "доступной </ шрифт> <br>"
Конец Если
Если WshFso.FolderExists ( "\ \" и CompName и "\ $ администратора") = True Тогда
OutPutFile.WriteLine "$ администратора долю существует <br>"
Эльзе
Доли = Ложь
OutPutFile.WriteLine "<font color=red> администратора $ доли не" _
и "доступной </ шрифт> <br>"
Конец Если
Если акции = false затем
OutPutFile.WriteLine "<br>"
OutPutFile.WriteLine "<font color=red> акций производиться не будет" _
и "доступными в связи с folowing причинам: </ шрифт> <br>"
OutPutFile.WriteLine "<font color=red> а - Вы не имеете" _
и "прав администратора на этом поле </ шрифт> <br>"
OutPutFile.WriteLine "<font color=red> б - поле сети </ шрифт> <br>"
OutPutFile.WriteLine "<font color=red> с сервера службы - это не" _
и "обкатки </ шрифт> <br>"
OutPutFile.WriteLine "<font color=red> г - Акции были" _
и "инвалидов </ шрифт> <br>"
OutPutFile.WriteLine "<font color=red> электронной удаленной машины" _
и "операционная система не на базе NT </ шрифт> <br>"
Конец Если
OutPutFile.WriteLine "<hr>"
Конец Функция
Функция GetTime (CompName)
OutPutFile.WriteLine "<h3> 5 - Текущая дата и время </ h3>"
OutPutFile.WriteLine "Текущая дата и время контроллеру домена <br>"
WshShell.Run ComSpec и "/ с чистого времени / DOMAIN:" и домена и ">" _
и PathToScript и "\ time.txt", 6, True
Установить DumpFile = WshFso.OpenTextFile (PathToScript и "\ time.txt", 1, True)
У Хотя DumpFile.AtEndOfStream <> True
CurLine = DumpFile.ReadLine
Если InStr (CurLine ", в настоящее время") <> 0 Тогда
OutPutFile.WriteLine CurLine и "<br>"
Конец Если
Петли
DumpFile.Close
OutPutFile.WriteLine "Текущая дата и время компьютера вы" _
и "проблем <br>"
WshShell.Run ComSpec и "/ с чистого времени \ \" и CompName "_
и ">" и PathToScript и "\ time.txt", 6, True
Установить DumpFile = WshFso.OpenTextFile (PathToScript и "\ time.txt", 1, True)
У Хотя DumpFile.AtEndOfStream <> True
CurLine = DumpFile.ReadLine
Если InStr (CurLine ", в настоящее время") <> 0 Тогда
OutPutFile.WriteLine CurLine и "<br>"
Конец Если
Петли
DumpFile.Close
OutPutFile.WriteLine "<hr>"
Конец Функция
Функция Пинг (CompName)
OutPutFile.WriteLine "<h3> 7 - Пинг тестирования (разрешения имен DNS) </ h3>"
OutPutFile.WriteLine "<h4> Если вы не получаете ответ на пинге других данных
найти на этой странице, то, скорее всего, это проблемы с DNS статические записи.
Это необходимо устанавливать до что-либо другое. Вы ДОЛЖНЫ ПРОВЕРЯЕМ машина работает
DHCP до
вы изменили статический DNS вступления !!!!</ h4> "
WshShell.Run ComSpec и "/ с пингуем" и CompName и ">" и
PathToScript и _
"\ ping.txt", 6, True
Установить DumpFile = WshFso.OpenTextFile (PathToScript и "\ ping.txt", 1, True)
У Хотя DumpFile.AtEndOfStream <> True
OutPutFile.WriteLine DumpFile.ReadLine и "<br>"
Петли
Установить DumpFile = ничего
OutPutFile.WriteLine "<hr>"
Конец Функция
Функция GetNBTstat (CompName)
Dim Пользователь
Пользователь = "Никто Вход On"
WshShell.Run ComSpec и "/ с nbtstat - своего рода" и CompName и ">" и
PathToScript и "\ nbt.txt", 6, True
Установить DumpFile = WshFso.OpenTextFile (PathToScript и "\ nbt.txt", 1, True)
У Хотя DumpFile.AtEndOfStream <> True
CurLine = DumpFile.ReadLine
Если InStr (CurLine ,"---") <> 0 Тогда
CurLine = DumpFile.ReadLine
CompName = Trim (Left (CurLine, InStr (CurLine ,"<")- 1))
Конец Если
Если InStr (CurLine ", <03>") <> 0 Тогда
Если Trim (Left (CurLine, InStr (CurLine ", <03>") -1)) <> _
UCase (CompName) и _
Trim (Left (CurLine, InStr (CurLine ", <03>") -1)) <> _
UCase (CompName) и "$" Тогда
Пользователь = Trim (Left (CurLine, InStr (CurLine ", <03>") -1))
Конец Если
Конец Если
Если InStr (CurLine ", <1E>") <> 0 Тогда
Если Trim (Left (CurLine, InStr (CurLine ", <1E>") -1)) <> UCase (CompName)
и Trim (Left (CurLine, InStr (CurLine ", <1E>") -1)) <> UCase (CompName) и "$"
Затем
Область = Trim (Left (CurLine, InStr (CurLine ", <1E>") -1))
Конец Если
Конец Если
Петли
OutPutFile.WriteLine "<h3> 6 - NetBIOS информация </ h3>"
OutPutFile.WriteLine "Современные Пользователь Вход на =" и пользователя и "(это значение может
не быть точной, это зависит от ящика в курьерская служба) <br> "
OutPutFile.WriteLine "Домен машина присоединилась к =" и домена и "<br>"
DumpFile.Close
OutPutFile.WriteLine "<hr>"
Конец Функция
Функция GetNIC (CompName)
OutPutFile.WriteLine "<h3> 9 - Сеть Карточка Конфигурация </ h3>"
Для каждой инстанции wmi.ExecQuery ( "Выбрать * Из Win32_" и _
"NetworkAdapterConfiguration Где IPenabled =" True ")
OutPutFile.WriteLine "<table border=1> <tr> <td> <b>" и _
"Атрибут </ б> </ td> <td> <b> Значение </ б> </ td> </ tr>"
OutPutFile.WriteLine "<tr> <td> Название карты </ td> <td>" _
и Instance.Caption и "</ td> </ tr>"
OutPutFile.WriteLine "<tr> <td> DHCP включен </ td> <td>" _
и Instance.DhcpEnabled и "</ td> </ tr>"
OutPutFile.WriteLine "<tr> <td> адреса </ td> <td>" _
и Instance.IPAddress (0) и "</ td> </ tr>"
OutPutFile.WriteLine "<tr> <td> Маска подсети </ td> <td>" _
и Instance.IPSubnet (0) и "</ td> </ tr>"
OutPutFile.WriteLine "<tr> <td> ВКП Адрес </ td> <td>" _
и Instance.MACAddress и "</ td> </ tr>"
OutPutFile.WriteLine "<tr> <td> DNS HostName </ td> <td>" _
и Instance.DNSHostname и "</ td> </ tr>"
OutPutFile.WriteLine "<tr> <td> DNS серверов (в порядке убывания) </ td> <td>" _
и Instance.DNSServerSearchOrder (0) и ":" _
и Instance.DNSServerSearchOrder (1) и "</ td> </ tr>"
OutPutFile.WriteLine "<tr> <td> Начальное WINS </ td> <td>" _
и Instance.WINSPrimaryServer и "</ td> </ tr>"
OutPutFile.WriteLine "<tr> <td> Среднее WINS </ td> <td>" _
и Instance.WINSSecondaryServer и "</ td> </ tr>"
OutPutFile.WriteLine "</ таблица>"
Следующий
OutPutFile.WriteLine "<hr>"
Конец Функция
Функция GetRegQuota (CompName)
OutPutFile.WriteLine "<h3> 8 - Секретариат размер информации </ h3>"
Для каждой инстанции wmi.InstancesOf ( "Win32_Registry")
OutPutFile.WriteLine "Текущий размер реестра" _
и Instance.CurrentSize и "MB's. <br> "
OutPutFile.WriteLine "Максимальный размер реестра" _
и Instance.MaximumSize и "MB's. <br> "
Если Instance.MaximumSize - Instance.CurrentSize <8 Тогда
OutPutFile.WriteLine "<font color=red> <b> Секретариат квот на" _
и CompName и "возможно, необходимо увеличить !!!</ шрифт> </ б> <br>"
Конец Если
Следующий
OutPutFile.WriteLine "<hr>"
Конец Функция
Функция GetHW (CompName)
Dim вещи
OutPutFile.WriteLine "<h3> 10 - Информация об аппаратном </ h3>"
Для каждой инстанции wmi.ExecQuery ( "Выбрать * Из Win32_" и _
"LogicalDisk Где DeviceID = 'C:")
OutPutFile.WriteLine "Всего Drive пространства на С: это" и левый (Instance.
FreeSpace/1000000, InStr (Instance.FreeSpace/1000000, ".")- 1) и "Мегабайт. <Br> "
вещи = ((Instance.Size - Instance.FreeSpace) / Instance.Size) * 100
OutPutFile.WriteLine "С: диск" _
и левый (вещи, InStr (вещи, ".")- 1) и "% полном объеме. <br> "
Следующий
Для каждой инстанции wmi.ExecQuery ( "Выбрать * Из Win32_ComputerSystem")
OutPutFile.WriteLine "Компьютер Изготовитель =" _
и Instance.Manufacturer и "<br>"
OutPutFile.WriteLine "компьютерная модель =" и Instance.Model и "<br>"
OutPutFile.WriteLine "Общая физическая память =" и Левая
(Instance.TotalPhysicalMemory/1000000, InStr (Instance.TotalPhysicalMemory/1000000 ,".")- 1)
и "MB в" и "<br>"
Следующий
Для каждой инстанции wmi.ExecQuery ( "Выбрать * Из Win32_" и _
"SystemEnclosure")
OutPutFile.WriteLine "активами тегов =" и Instance.SMBIOSassettag "_
и "<br>"
OutPutFile.WriteLine "Серийный номер =" и Instance.serialnumber "_
и "<br>"
Следующий
Для каждой инстанции wmi.ExecQuery ( "Выбрать * Из Win32_Processor")
OutPutFile.WriteLine "Processor Имя =" и Instance.Name и "<br>"
OutPutFile.WriteLine "часы Processor Speed =" _
и Instance.CurrentClockSpeed и "МГц <br>"
OutPutFile.WriteLine "Processor Voltage =" _
и Instance.CurrentVoltage и "Вт <br>"
OutPutFile.WriteLine "Современные Загрузка процессора =" _
и Instance.LoadPercentage и "% <br>"
Следующий
OutPutFile.WriteLine "<hr>"
Конец Функция
Функция GetSW (CompName)
Dim oReg
Dim NavParent, PatternDate, NavDir, NavVer, IEVersion, программа установлена,
Версия, ProgramName
OutPutFile.WriteLine "<h3> 11 - Программное обеспечение Информация </ h3>"
Установить oReg = GetObject ( "winmgmts: (impersonationLevel = выдавайте }!//" _
и CompName и "/ корневой / умолчанию: StdRegProv")
oReg.getstringvalue 2147483650, "SOFTWARE \ INTEL \ LANDesk \ VirusProtect6 \ CurrentVersion \",
"Родитель", NavParent
oReg.getstringvalue 2147483650, "SOFTWARE \ Symantec \ SharedDefs \", _
и "NAVCORP_70", PatternDate
oReg.getstringvalue 2147483650, "SOFTWARE \ Symantec \ InstalledApps \" и _
"," NAV ", NavDir
Если UCase (Left (NavDir, 1)) = "C" Тогда
NavVer = WshFso.GetFileVersion ( "\ \" и CompName и "\ с $ \" _
и правый (NavDir, Лен (NavDir) -3) и "\ vpc32.exe")
OutPutFile.WriteLine "Нортон Антивирусы Версия =" и NavVer _
и "<br>"
Конец Если
PatternDate = Право (PatternDate, 12)
OutPutFile.WriteLine "Нортон Антивирусы Родитель Server =" и NavParent _
и "<br>"
OutPutFile.WriteLine "Нортон Антивирусы Определение Дата =" _
и среднего (PatternDate, 5,2) и "/" и среднего (PatternDate, 7,2) и "/" и
Середина (PatternDate, 1,4) и "Пересмотр" Право и (PatternDate, 3) и "<br>"
oReg.getstringvalue 2147483650, "SOFTWARE \ Microsoft \ Internet Explorer \" и _
"," Версия ", IEVersion
OutPutFile.WriteLine " <P> Internet Explorer версий = "и IEVersion
OutPutFile.WriteLine " <p> Установленные программы (из Установка и удаление программ апплет) </
р> "
OutPutFile.WriteLine "<table border=1> <tr> <td> <b> программа
Имя </ б> </ td> <td> <b> Версия (если имеется) </ б> </ td> </
tr> "
oReg.EnumKey 2147483650, "SOFTWARE \ Microsoft \ Windows \ CurrentVersion \" и _
"Удалить", установлен
Для каждой программы в установленные
oReg.getstringvalue 2147483650, "SOFTWARE \ Microsoft \ Windows \" и _
"CurrentVersion \ Удалить \" и программы и "\", "DisplayName", ProgramName
oReg.getstringvalue 2147483650, "SOFTWARE \ Microsoft \ Windows \" и _
"CurrentVersion \ Удалить \" и программы и "\", "DisplayVersion", версия
Если ProgramName <> "" Тогда
OutPutFile.WriteLine "<tr> <td>" и ProgramName и "</
td> <td> "и версий и" </ td> </ tr> "
Конец Если
Следующий
OutPutFile.WriteLine "</ таблица>"
OutPutFile.WriteLine "<hr>"
Конец Функция
Функция GetEvents (CompName)
OutPutFile.WriteLine "<h3> 12 - Первые 25 ошибок в системе мероприятие журнала </ h3>"
OutPutFile.WriteLine "<table border=1> <tr> <td> <b> DateTimeStamp
</ б> </ td> <td> <b> EventSource </ б> </ td> <td> <b>
Сообщение </ б> </ td> </ tr> "
Для каждой инстанции wmi.ExecQuery ( "Выбрать * Из Win32_NTLogEvent Если Тип =
"Ошибка" и LogFile = "Система")
Cnt = Cnt + 1
Если Cnt = 25 Затем выезд на
OutPutFile.WriteLine "<tr> <td>" и среднего (Instance.TimeGenerated, 5,2) "_
и "-" и среднего (Instance.TimeGenerated, 7,2) и "-" _
и левый (Instance.TimeGenerated, 4) и "</ td> <td>" _
и Instance.SourceName и "</ td> <td>" и Instance.Message и "</ td> </ tr>"
Следующий
OutPutFile.WriteLine "</ таблица>"
Конец Функция
Функция StrDateTime (г)
Dim strVal, strDate, strTime
strVal = CStr (г)
strDate = DateSerial (Left (strVal, 4), _
Середина (strVal, 5, 2), _
Середина (strVal, 7, 2))
strTime = TimeSerial (полугодовой (strVal, 9, 2), _
Середина (strVal, 11, 2), _
Середина (strVal, 13, 2))
StrDateTime = strDate + strTime
Конец Функция
Функция ExitScript
OutPutFile.WriteLine "</ тела>"
OutPutFile.Close
WshShell.Run PathToScript и "\" и CompName и ". Html "
Если прогресс, то
MsgBox "В" и название и "сценарий сделать." , Vbokonly + _
vbsystemmodal, Название
Конец Если
Установить WshShell = ничего
Установить WshFso = ничего
Установить WshNet = ничего
Установить файлу-вывода = ничего
Wscript.Quit (0)
Конец Функция
Для запуска этого приема, достаточно дважды щелкнуть по DesktopChecker.vbs файл в Windows Explorer (или ярлык для этого файла на рабочем столе). Затем введите имя удаленного компьютера нужно запроса, используя либо его имя NetBIOS, DNS имя, или адрес. На данный момент Internet Explorer будет открыт и отображения страницы под названием "myITforum Helpdesk диагностический инструмент", последовал ряд диалоговых окон, которые показывают прогресс в сценарий (не нужно нажимать кнопку, чтобы закрыть эти диалоговые окна, потому что они закрываться автоматически). После окончательного диалоговое окно - "В myITforum Helpdesk диагностическим инструментом является скрипт сделать" - нажмите OK и обновите веб-страницу для просмотра информации.
Вот некоторые примеры выпуска создается, когда сценарий был проведен на рабочей станции, используя полномочия администратора домена. Цель машины является Windows Server 2003 машина с именем SRV230. Результаты работы скрипта в виде HTML- страницы с именем srv230.htm, который создается в том же каталоге, где находится сам скрипт, но вывод был изменен здесь как текст, чтобы его было легче относятся:
myITforum - Helpdesk Диагностический инструмент
Учетная запись работает этот сценарий MTIT2 \ администратор @ 12/3/2003 11:40:37 AM от
рабочая станция
SRV235
Информация об удаленной машины \ \ SRV230
Чтобы просмотреть информацию, которую он нагрузок попала в REFRESH кнопки на панели браузера.
-------------------------------------------------- --------------------------
1 - Операционная система
Версия операционной системы = Windows NT 5,2
Операционная система Microsoft Подпись = (R) Windows (R) Server 2003, Enterprise Edition
Операционная система Service Pack =
Операционная система LastBootUpTime = 12/3/2003 11:26:42 AM
Операционная система Каталог = C: \ WINDOWS
-------------------------------------------------- --------------------------
2 - членов местных администраторов группы
Имя Тип Описание
Администратор Пользователь Встроенная учетная запись для администрирования компьютера / домена
Предприятия группы Admins Назначенные администраторы предприятия
Область Назначенные Администраторы группы администраторов домена
-------------------------------------------------- --------------------------
3 - Состояние жизненно важных услуг
Название услуги Отображаемое имя статуса
winmgmt Windows приборы управления ТЕКУЩИЕ
Нортон антивирус сервер не присутствует
DefWatch не присутствовал
clisvc НЕ НАСТОЯЩЕЕ
, Dhcp клиент DHCP, ТЕКУЩИЕ
-------------------------------------------------- --------------------------
4 - Состояние административных акций
C $ существует доля
$ администратора долю существует
-------------------------------------------------- --------------------------
5 - Текущая дата и время
Текущая дата и время контроллеру домена
Текущая дата и время компьютерных проблем вы
-------------------------------------------------- --------------------------
6 - NetBIOS информация
Текущий Пользователь Вход на = Никто От входа (это значение не может быть точной, это зависит от
поле в курьерская служба)
Область машина присоединилась к = amd
-------------------------------------------------- --------------------------
7 - Пинг тестирования (разрешения имен DNS)
Если вы не получаете ответ на пинге еще другие данные, полученные на этой странице, то есть
скорее всего проблема с DNS статические записи. Это необходимо устанавливать до ничего
еще.
Вы ДОЛЖНЫ ПРОВЕРЯЕМ машина работает DHCP, прежде чем изменять статические DNS запись! ! ! !
-------------------------------------------------- --------------------------
8 - Секретариат размер информации
Текущий реестра размер 1 MB's.
Максимальный размер реестра является 88 Мб в.
-------------------------------------------------- --------------------------
10 - технической информации
Всего Drive пространства на C: это 1776 Мегабайт.
С: диске, 58% полностью.
Компьютерные изготовителя системы Производитель
Компьютерная модель системы = имя
Общая физическая память = 536 Мб в
Активами тегов = активами - 1234567890
Серийный номер = шасси серийного номера
Имя Processor = Intel (R) Pentium (R) III процессор
Процессор часы Speed = 501 МГц
Processor Voltage = 29 вольт
Текущий Загрузка процессора = 2%
-------------------------------------------------- --------------------------
9 - сеть Карточка Конфигурация
Значение атрибута
Название карты [00000001] 3Com EtherLink XL 10/100 PCI Для Complete PC управления
NIC (3C905C - TX)
DHCP позволяет ложной
Адрес 172.16.11.230
Маска подсети 255.255.255.0
MAC- адрес 00:01:02: FC: 92: FC
DNS HostName srv230
Серверы DNS (в порядке убывания) 172.16.11.230:
Начальное WINS
Среднее WINS
-------------------------------------------------- --------------------------
11 - Программное обеспечение Информация
Нортон антивирус Родитель сервера =
Нортон Антивирусы Определение Дата = / / Пересмотр
Internet Explorer версии = 6.0.3790.0
Установленные программы (из Установка и удаление программ апплет)
Название программы Версия (если имеется)
FullShot V6
Windows Media Player Hotfix [См. wm819639 для подробнее]
Удаленное администрирование средств 5.2.3790.0
-------------------------------------------------- --------------------------
12 - Первый 25 ошибок в системе мероприятие журнала
DateTimeStamp EventSource сообщение
11-21-2003 W32Time время провайдер NtpClient настроен приобретать время
из одного или нескольких источников времени, однако ни один из источников, в настоящее время доступных. Нет
попытка связаться с источником будет за 15 минут. NtpClient не имеет источника
точного времени.
11-13-2003 DCOM сервера (A9E69610 - B80D - 11D0 - B9B9 - 00A0C922E750) не
зарегистрироваться в DCOM в установленный тайм-аут.
т.д. ..
Online: 483 users browsing the articles directory
|
|