Вопрос : получите дистанционный вариант OS сервера окон и адрес IP без позволения доступа на том сервере

По возможности получить дистанционный вариант OS сервера окон и адрес IP без позволения доступа на том сервере?

I знает VBScript (установите colGroups = GetObject («WinNT: /» & strComputer & "") colGroups.Filter = блок («группа»)) могут получить дистанционным группам сервера окон информацию. Подобная дорога получить OS сервера, адрес information.

When IP я использую вопрос измерительного оборудования управления (WMI) Windows, делают я должны иметь позволение доступа на том сервере?

Thanks заранее. class= " ясное " >
Related: title= " href= " /Programming/Languages/Scripting/Perl/Q_26319566.html get " qRelatedChild " " class= сервера окон множественный переходник сети установили на окна server

Ответ : получите дистанционный вариант OS сервера окон и адрес IP без позволения доступа на том сервере

Hi howruaz9,

Под сценарий должен возвратить все вы хотите.  Вы узнаете некоторый из сценария по мере того как я как раз добавил к вы уже имели.

Я также добавлял в части адреса IP - но это замедляет вопрос значительно.  Я не могу думать более быстрой дороги получить адрес IP за исключением эффективного Пинга computername (без позволений запросить сервера сразу).

В лубом случае, см. как вы идете!

Отношения,
Daz.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:

Тусклое var1
Тусклое var2
Тусклое strComputer
Тусклое dicCompOS

'на резюме ошибки затем

Установите dicCompOS = CreateObject («Scripting.Dictionary»)
GetOSs ()   «# словарь нагрузки с операционными системами всех компьютеров домена»

Установите fso = CreateObject («Scripting.FileSystemObject»)
Установите tf = fso.OpenTextFile («PC_Info.txt», 2, поистине)

'### установленное компьютера ### здесь
strComputer = «YOUR_SRV»



tf.write («сервер; Адрес IP; Имя OS; Пакет услуг OS; Группы; Члены; Имя индикации; ")
tf.writeline («AdsPath»)

Установите objComputer = GetObject («WinNT: /» & strComputer)

objComputer.Filter = блок («группа»)

strIPAddress = fResolveIP (strComputer)

Для каждого objGroup в objComputer
    Для каждого objMember в objGroup.Members
        var1 = objMember.Name
        Если objMember.Class <> «группа» и Err.Number = 0 после этого
            var2 = ""
            На резюме ошибки затем
            var2 = objMember.FullName
            На ошибке переход 0
            OSName = разделило (dicCompOS (UCase (strComputer)), «¶") (0)
            OSSP   = разделило (dicCompOS (UCase (strComputer)), «¶") (1)
            tf.writeline (strComputer & «; » & strIPAddress & «; » & OSName & «; » & OSSP & «; » & objGroup.Name & «; » & var1 & «; » & chr (34) & var2 & chr (34) & «; » & objMember.AdsPath)
        Еще
            tf.writeline (strComputer & «; » & strIPAddress & «; » & OSName & «; » & OSSP & «; » & objGroup.Name & «; » & var1 & «; » & Chr (34) & chr (34) & «; » & objMember.AdsPath)
            Err.Clear
        Закончитесь если
        var1 = ""
        var2 = ""
     Затем
Затем 
tf.close ()

Сделанное MsgBox «!»

Wscript.quit




Sub GetOSs ()

    '# СУЕТА Init
    Установите objRootDSE = GetObject («LDAP: //RootDSE»)
    strDNSDomain = objRootDSE.Get («defaultNamingContext»)
    strConfig = objRootDSE.Get («configurationNamingContext»)
    Установите objCommand = CreateObject («ADODB.Command»)
    Установите objConnection = CreateObject («ADODB.Connection»)
    objConnection.Provider = «ADsDSOObject»
    objConnection.Open = «ADProvider»
    objCommand.ActiveConnection = objConnection
    objCommand.Properties («размер страницы») = 100
    objCommand.Properties («перерыв») = 900
    '#

    '### фильтра ### LDAP
    strFilter = «(& (objectClass=computer))»

    'Атрибуты ### для того чтобы восстановить ###
    strAttributes = «sAMAccountName, operatingSystem, operatingSystemServicePack»

    '### исполняет ### вопроса LDAP
    strBase = "" '
    strQuery = strBase & «; » & strFilter & «; » & strAttributes & «; поддерево»
    objCommand.CommandText = strQuery
    'На резюме ошибки затем
    Установите objRecordSet = objCommand.Execute

    '### идет через возвращенные показатели и хранит ### info
    Не сделать до objRecordSet.EOF
        dicCompOS (UCase (замените (objRecordSet.Fields («sAMAccountName»), «$», ""))) = objRecordSet.Fields («operatingSystem») & «¶» & objRecordSet.Fields («operatingSystemServicePack»)
        'dicCompOS MsgBox (objRecordSet.Fields («sAMAccountName»)), objRecordSet.Fields («sAMAccountName»)
        objRecordSet.MoveNext
    Петля

Подводная лодка конца

fResolveIP функции (strComputer)
    Тусклое wmiQuery, objWMIService, objPing, objStatus
    
    wmiQuery = «выбирает * от Win32_PingStatus где» & _
    «Адрес = «» & strComputer & «» «
    
    Установите objWMIService = GetObject («winmgmts: \ \. \ корень \ cimv2»)
    Установленный objPing = objWMIService.ExecQuery (wmiQuery)
    
    Для каждого objStatus в objPing
        Если IsNull (objStatus.StatusCode) или objStatus.Statuscode0<> после этого
            fResolveIP = «неисвестне»
        Еще
            fResolveIP = objStatus.ProtocolAddress
        Закончитесь если
    Затем
Функция конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us