Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Keks
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Как скопировать часть текста нач. с опред. символа в другое место
 
#
17.11.2016 12:29:25
Добрый день а как можно пропустить это:
http://сайт.ру/request/ что бы остался один сайт сайт.ру
 
Перейти    
определить IP компьютеров (по имени )
 
#
07.11.2016 16:24:22
Круто)))
Спасибо.
 
Перейти    
определить IP компьютеров (по имени )
 
#
07.11.2016 16:08:29
Цитата
The_Prist написал:
Ну а текст ошибки, видимо, он решил не показывать?
Может у Вас в arrayPingResult(4)
Да пусто. Как игнорировать?
 
Перейти    
определить IP компьютеров (по имени )
 
#
07.11.2016 15:36:18
Debug открываешь видно желтым выделена строка
Код
arrayPCLine = Split(arrayPingResult(4), " ") ' нас интересует четвертая строка
 
Перейти    
определить IP компьютеров (по имени )
 
#
07.11.2016 15:34:34
Первое имя у которого нет записи IP в ДНС, он пропустил и пошел дальше, потом он выявил IP и подставил, а на середине остановился по причине отсутствия записи в ДНС и выдал сообщение END и DEBUG
 
Перейти    
определить IP компьютеров (по имени )
 
#
07.11.2016 14:33:34
Сравнено затыкается если не находит запись.
Код
Public Sub ip()
Set objShell = CreateObject("WScript.Shell")
last = Range("A65536").End(xlUp).Row '- ïîñëåäíÿÿ ñòðîêà
For i = 2 To last
    On Error GoTo Next_ 'ïåðåõîä ê ìåòêå
    strIP = Range("A" & i & "").Value 'èìÿ ÏÊ
    Set objScriptExec = objShell.Exec("nslookup.exe  " & strIP) 'nslookup
    strPingResult = objScriptExec.StdOut.ReadAll 'ïîëó÷àåì îòâåò
    'Set objStdOut = objScriptExec.StdOut
    arrayPingResult = Split(strPingResult, vbCrLf) 'ðàçáèâàåì íà ñòðîêè
    arrayPCLine = Split(arrayPingResult(4), " ") ' íàñ èíòåðåñóåò ÷åòâåðòàÿ ñòðîêà
    Range("B" & i & "") = arrayPCLine(2) ' 2  çíà÷åíèå â 2 ñòðîêå êàê ðàç è åñòü IP
Next_:
Next i
End Sub
 
Перейти    
определить IP компьютеров (по имени )
 
#
07.11.2016 14:02:59
Привет, помогите, есть макрос в Exel он берет имя машины в сети и ищет IP адрес и подставляет, но я не могу сделать так что бы он подставлял пустое значение если не  nslookup-тся машина и выпадает завершить или редактирование, он останавливается если не нашел в ДНС запись. Как сделать чтобы он подставлял значение "не в сети" и дальше обрабатывал имена и подставлял IP?

Код
Public Sub ip()
Set objShell = CreateObject("WScript.Shell")
last = Range("A65536").End(xlUp).Row '- последняя строка
For i = 2 To last
    strIP = Range("A" & i & "").Value 'имя ПК
    Set objScriptExec = objShell.Exec("nslookup.exe  " & strIP) 'nslookup
    strPingResult = objScriptExec.StdOut.ReadAll 'получаем ответ
    'Set objStdOut = objScriptExec.StdOut
    arrayPingResult = Split(strPingResult, vbCrLf) 'разбиваем на строки
    arrayPCLine = Split(arrayPingResult(4), " ") ' нас интересует четвертая строка
    On Error Resume Next
    Range("B" & i & "") = arrayPCLine(2) ' 2  значение в 2 строке как раз и есть IP
Next i
End Sub
Вышел из положения так, добавил строку. Но IP подставляет предыдущего.
Код
On Error Resume Next
Спасибо.
 
Перейти    
Страницы: 1
Наверх