VBA, чтобы найти дату установки и дату Bios для удаленных компьютеров

Я пытаюсь получить код VBA, который работает, чтобы вернуть результат Ping компьютера, дату установки и версию BIOS (чтобы получить дату).

For i = 1 To lRow Debug.Print i addr1 = ActiveSheet.Cells(i, 1).Value 'this contains my IP/Computer Name cmdPing = "C:\Windows\System32\PING.EXE " & addr1 Set shPing = CreateObject("Wscript.shell") Set runPing = shPing.exec(cmdPing) strPing = runPing.stdout.readall ActiveSheet.Cells(i, 2).Value = strPing Set runPing = Nothing Set shPing = Nothing cmdInstall = "systeminfo /s " & addr1 & " | findstr /C:""Install Date""" Set shInstall = CreateObject("Wscript.shell") Set runInstall = shInstall.exec(cmdInstall) strInstall = runInstall.stdout.readall ActiveSheet.Cells(i, 3).Value = strInstall Set runInstall = Nothing Set shInstall = Nothing cmdBios = "systeminfo /s " & addr1 & " | findstr /C:""BIOS Version""" Set shBios = CreateObject("Wscript.shell") Set runBios = shBios.exec(cmdBios) strBios = runBios.stdout.readall ActiveSheet.Cells(i, 4).Value = strBios Set runBios = Nothing Set shBios = Nothing Next i 

Ping отлично работает, но systeminfo мгновенно мерцает и исчезает. Я могу запускать только с "systeminfo /s " & addr1 , но, очевидно, это приводит к большому количеству ненужной информации. У меня есть чувство, что это связано с передачей " персонажа». Попробовали /C:" & Chr(34) & " но безуспешно.

Interesting Posts

Использование Excel «IF» Statment для фильтрации текста, начинающегося или заканчивающегося определенным символом

Преобразование из .xls в .csv и сохранение дат в правильном формате

Для проверки цикла для ячейки без пустого значения и добавления

Условное форматирование Excel 2016 не работает

Excel VBA: введите N количество листов на основе значения ячейки

Вы можете указать возможные значения для условного оператора в Excel VBA

Secure? Преобразование функций Excel в веб-скрипт

Можно ли постоянно хранить элементы массива в VBA в Excel?

Неверный формат даты VBA в ячейке Excel

¿Как получить точный адрес ячейки? (VB.NET/INTEROP.EXCEL)

Автоматически сопоставлять Excel XmlMap на листе в VBA без знания схемы XPaths

Из excel, в vba, получите Id текущей формы, выбранной в powerpoint

Гиперссылка Excel на конкретную ячейку

Excel Объединенный именованный диапазон

Сравнение элементов двух строк

Давайте будем гением компьютера.