Форум программистов, компьютерный форум, киберфорум
Наши страницы

VBScript/JScript/WSH/WMI/HTA

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 26, средняя оценка - 4.77
Liksx
80 / 80 / 7
Регистрация: 07.12.2012
Сообщений: 539
#1

WMI Запрос для класса Win32_NetworkAdapterConfiguration с фильтрацией IPv6 - VBScript/JScript

04.09.2013, 18:55. Просмотров 3928. Ответов 6
Метки нет (Все метки)

Добрый день
Использую BGINFO для отображение имени пользователя\пк и тп и тд.

Вопрос, для отображение IP адреса использую вот такой запрос

SELECT IPAddress FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=True

Предположим, у меня есть 2 сетевых интерфейса

Проблема 1

Показывается не нужный мне интерфейс....

Проблема 2

Показывается ipv6 адрес

Как можно выстроить логику запроса? что бы показывал сетевуху которая смотрит в домен и только IPV4 адресс
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.09.2013, 18:55
Здравствуйте! Я подобрал для вас темы с ответами на вопрос WMI Запрос для класса Win32_NetworkAdapterConfiguration с фильтрацией IPv6 (VBScript/JScript):

Нужны ли для WMI права админа? - VBScript/JScript
Доброго времени суток! Появилась необходимость написать программу инвентаризации ПК на VBS с WMI, работающую без прав администратора. ...

Запрос на выборку с частичной фильтрацией - MySQL
Добрый вечер! Пожалуйста подскажите так как опыта очень мало в запросах. SELECT paying.id_score, score.score_name FROM paying...

Запрос с фильтрацией по нескольким запросам - MS Access
Добрый день подскажите имеется форма , в ней 3 выпадающих списка, и имеется запрос как отсортировать данные в нем, пробовал по аналогии...

Перекрестный запрос с фильтрацией по дате с группировкой одинаковых значений - MS Access
И снова здравствуйте) Наверняка кто-то сталкивался с этим, но по темам похожего не нашла. Возможно ли сгруппировать одинаковые значения...

Атрибуты SMART через запрос WMI на языке C# - C#
Здравствуйте, передо мной возникла задача: написание программы, которая оценивает техническое состояние жёсткого диска. Я выяснил, что это...

.NET 4.x [C#+WMI]Можно ли через WMI узнать температуру процессора и ядер? - C#
Можно ли через WMI узнать температуру процессора и ядер? Щас лопачу сайты вожусь но русскоязычной документации по WMI нету :( А тем...

6
Joeymax
907 / 302 / 43
Регистрация: 31.03.2012
Сообщений: 797
05.09.2013, 09:58 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Цитата Сообщение от Liksx Посмотреть сообщение
у меня есть 2 сетевых интерфейса
А у меня целых пять , впрочем ничего конкретного кроме
Цитата Сообщение от Liksx Посмотреть сообщение
SELECT IPAddress FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=True
ты не предложил. Будем гадать , такое подойдет?
Visual Basic
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
Set oWMISrv = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
 
Set cAdptr = oWMISrv.ExecQuery _
    ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
 
n = 1
WScript.Echo
 
For Each oAdptr in cAdptr
  WScript.Echo "Сетевой адаптер " & n
  WScript.Echo "  Описание   : " & oAdptr.Description
 
  WScript.Echo "  Физический адрес (MAC): " & oAdptr.MACAddress
  WScript.Echo "  Имя хоста:              " & oAdptr.DNSHostName
 
  If Not IsNull(oAdptr.IPAddress) Then
    For i = 0 To UBound(oAdptr.IPAddress)
      WScript.Echo "  IP адрес:               " & oAdptr.IPAddress(i)
    Next
  End If
 
  If Not IsNull(oAdptr.IPSubnet) Then
    For i = 0 To UBound(oAdptr.IPSubnet)
       WScript.Echo "  Подсеть:                " & oAdptr.IPSubnet(i)
    Next
  End If
 
  If Not IsNull(oAdptr.DefaultIPGateway) Then
    For i = 0 To UBound(oAdptr.DefaultIPGateway)
       WScript.Echo "  Шлюз по умолчананию:    " & oAdptr.DefaultIPGateway(i)
    Next
  End If
 
  WScript.Echo "  DNS"
  WScript.Echo "    DNS - последовательность поиска    :"
 
  If Not IsNull(oAdptr.DNSServerSearchOrder) Then
    For i = 0 To UBound(oAdptr.DNSServerSearchOrder)
       WScript.Echo "      " & oAdptr.DNSServerSearchOrder(i)
    Next
  End If
 
  WScript.Echo "    DNS домен : " & oAdptr.DNSDomain
 
  If Not IsNull(oAdptr.DNSDomainSuffixSearchOrder) Then
    For i = 0 To UBound(oAdptr.DNSDomainSuffixSearchOrder)
       WScript.Echo "    DNS список суффиксов : " & oAdptr.DNSDomainSuffixSearchOrder(i)
    Next
  End If
 
  WScript.Echo "  DHCP"
  WScript.Echo "    DHCP используется:   " & oAdptr.DHCPEnabled
  WScript.Echo "    DHCP сервер:         " & oAdptr.DHCPServer
 
  If Not IsNull(oAdptr.DHCPLeaseObtained) Then
    utcLsObt = oAdptr.DHCPLeaseObtained
    sLsObt = DateStr2Date(utcLsObt)
  Else
    sLsObt = ""
  End If
  WScript.Echo "    DHCP аренда получена " & sLsObt
 
  If Not IsNull(oAdptr.DHCPLeaseExpires) Then
    utcLsExp = oAdptr.DHCPLeaseExpires
    sLsExp = DateStr2Date(utcLsExp)
  Else
    sLsExp = ""
  End If
  WScript.Echo "    DHCP аренда истекает " & sLsExp
 
  n = n + 1
Next
 
Function DateStr2Date(pDt)
  DateStr2Date = CDate(Mid(pDt, 5, 2)  & "." & Mid(pDt, 7, 2)  & "." & _
    Left(pDt, 4)    & " " & Mid (pDt, 9, 2) & ":" & Mid(pDt, 11, 2) & ":" & Mid(pDt, 13, 2))
End Function
1
Liksx
80 / 80 / 7
Регистрация: 07.12.2012
Сообщений: 539
09.09.2013, 10:02  [ТС] #3
Спасибо, попробую!
0
Dale™
2 / 2 / 0
Регистрация: 29.10.2012
Сообщений: 35
13.02.2014, 21:14 #4
Цитата Сообщение от Liksx Посмотреть сообщение

Проблема 2

Показывается ipv6 адрес
Кто-нибудь знает как решить эту проблему? Я что-то уже в ступоре.
0
Liksx
80 / 80 / 7
Регистрация: 07.12.2012
Сообщений: 539
14.02.2014, 10:20  [ТС] #5
SELECT IPAddress FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=True


Кастомный ИП нужно использовать
0
Dale™
2 / 2 / 0
Регистрация: 29.10.2012
Сообщений: 35
14.02.2014, 10:36 #6
Ну это и так понятно. Но если на сетевухе включен протокол IPv6, тогда он его тоже будет возвращать.
0
Liksx
80 / 80 / 7
Регистрация: 07.12.2012
Сообщений: 539
14.02.2014, 10:52  [ТС] #7
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Visual Basic
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
' Special BGInfo Script
 
' Only IPv4 Address v1.7
 
' Programmed by WindowsStar - Copyright (c) 2009-2011
 
' --------------------------------------------------------
 
 
 
strComputer = "."
 
On Error Resume Next
 
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
Set colSettings = objWMIService.ExecQuery ("SELECT * FROM Win32_NetworkAdapterConfiguration where IPEnabled = 'True'")
 
 
 
For Each objIP in colSettings
 
   For i=LBound(objIP.IPAddress) to UBound(objIP.IPAddress)
 
      If InStr(objIP.IPAddress(i),":") = 0 Then Echo objIP.IPAddress(i)
 
   Next
 
Next
2
14.02.2014, 10:52
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.02.2014, 10:52
Привет! Вот еще темы с ответами:

DHCP IPv6, тунелирование IPv6 в Cisco - Cisco
Здравствуйте! у меня диплом на тему:маршрутизация IPv6: DHCP,тунелирование. Мне интересна эта тема и я хотел бы научиться настраивать сети....

Как реализовать вывод свойств каждого объекта определённого класса WMI? - PowerShell
Как реализовать вывод сведений значений свойства каждого объекта определнного класса WMI $OSwmi = ...

Поставщик HiPerfCooker_v1 зарегистрирован в пространстве имен WMI Root\WMI с правами локальной системы - Удаление вирусов
Поставщик HiPerfCooker_v1 зарегистрирован в пространстве имен WMI Root\WMI с правами локальной системы. Это может привести к нарушениям...

Одна форма для нескольких менеджеров. Открыть форму с фильтрацией - MS Access
Здравствуйте уважаемые форумчане! Пытаюсь создать БД... В очередной раз понадобилась Ваша помощь в Аксе. 1. Как сделать одну форму для...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru