|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Проверка строки на соответствие правил именования DNS |
|
VBS/WSH/JS - Проверка строки на соответствие правил именования DNS
|
Старожил Сообщения: 161 |
Профиль | Отправить PM | Цитировать Может, есть у кого готовый скрипт?
Есть строка вида device.domain.zone. Необходимо её проверить на соответствие правилам именования DNS, то есть: англ. буквы, точка, тире, цифры, если что-то не так - выдать error. Как проверить - я примерно понимаю с помощью RegExp, но как проверить, чтобы в строке не было, допустим, 2-3-много точки подряд? 2-3 тире? |
|
Отправлено: 14:40, 28-11-2019 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Цитата YuS_2:
Цитата YuS_2:
|
||
Отправлено: 12:11, 01-12-2019 | #21 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Crazy Сообщения: 1171
|
Профиль | Отправить PM | Цитировать Цитата Iska:
- тут им разгуляться особо негде, крылья будут быстро подрезаны. |
|
------- Отправлено: 12:23, 01-12-2019 | #22 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать YuS_2, у них там много чего разрешено:
Цитата:
P.S. «После речи президента последует пресс-конференция о том, как следует понимать то, о чём он хотел сказать»™ . |
|
Отправлено: 12:45, 01-12-2019 | #23 |
Crazy Сообщения: 1171
|
Профиль | Отправить PM | Цитировать Цитата Iska:
Цитата Iska:
|
||
------- Отправлено: 14:17, 01-12-2019 | #24 |
Ветеран Сообщения: 2708
|
Профиль | Отправить PM | Цитировать Цитата glukin:
Если тупо решать задачу, как она поставлена, нагло заимствовать регулярку у Iska
MsgBox "Device1.domain1.ru" + " === " + CStr(X_DNS("Device1.domain1.ru")) MsgBox "Device1.domain+1.ru" + " === " + CStr(X_DNS("Device1.domain+1.ru")) MsgBox "Device1.domainЪ1.ru" + " === " + CStr(X_DNS("Device1.domainЪ1.ru")) MsgBox "Device1..domain1.ru" + " === " + CStr(X_DNS("Device1..domain1.ru")) MsgBox "Device1.domain1-.ru" + " === " + CStr(X_DNS("Device1.domain1-.ru")) MsgBox ".Device1.domain1.ru" + " === " + CStr(X_DNS(".Device1.domain1.ru")) MsgBox "Device1.domain1.ru-" + " === " + CStr(X_DNS("Device1.domain1.ru-")) MsgBox "device-2.domain.1.ru3" + " === " + CStr(X_DNS("device-2.domain.1.ru3")) MsgBox "45-deVice.3.domain-4.5ru" + " === " + CStr(X_DNS("45-deVice.3.domain-4.5ru")) ''''''''''''''''''''''''''''' Function X_DNS(x) X_DNS = True With CreateObject("VBScript.RegExp") .Pattern = "^([a-z0-9]|[a-z0-9][a-z0-9\-]{0,61}[a-z0-9])(\.([a-z0-9]|[a-z0-9][a-z0-9\-]{0,61}[a-z0-9]))*$" .IgnoreCase = True .Global = True X_DNS = .Test(x) If Not X_DNS Then Exit Function End With X_DNS_Err = Array("..", "--", "-.", ".-") X_DNS_Err1 = Array(".", "-") For Each X_DNS_i In X_DNS_Err X_DNS = InStr(1, x, X_DNS_i) = 0 If Not X_DNS Then Exit Function Next For Each X_DNS_i In X_DNS_Err1 X_DNS = Left(x, 1) <> X_DNS_i And Right(x, 1) <> X_DNS_i If Not X_DNS Then Exit Function Next End Function |
|
------- Отправлено: 16:56, 01-12-2019 | #25 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Цитата YuS_2:
Цитата:
|
||
Отправлено: 17:08, 01-12-2019 | #26 |
Crazy Сообщения: 1171
|
Профиль | Отправить PM | Цитировать Цитата Iska:
|
|
------- Отправлено: 20:20, 01-12-2019 | #27 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Цитата YuS_2:
|
|
Отправлено: 21:37, 01-12-2019 | #28 |
Старожил Сообщения: 161
|
Профиль | Отправить PM | Цитировать Цитата Iska:
|
|
Отправлено: 10:32, 09-03-2020 | #29 |
Старожил Сообщения: 161
|
Профиль | Отправить PM | Цитировать Iska, не подскажете?
|
Отправлено: 11:44, 15-03-2020 | #30 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Доступ - Глюк с одним из правил встроенного брандмауэра,вообще не настраивается одно из правил | интерактивный | Microsoft Windows 7 | 0 | 11-07-2009 07:06 | |
проверка работоспособности DNS сервера | piling | Microsoft Windows NT/2000/2003 | 14 | 21-05-2009 13:02 | |
[решено] проверка XML-файла на соответствие XML schema в IE 6 и Firefox 2 | dimait | Вебмастеру | 4 | 23-08-2007 02:02 | |
Редактирование DNS из командной строки | keyF | Сетевые технологии | 2 | 29-12-2004 19:08 | |
Как изменить из командной строки DNS на клиенте? | Myckyc | Сетевые технологии | 1 | 26-08-2003 04:20 |
|