Четверг, 23.11.2017
Уголок эникейщика
Меню сайта
Категории раздела
[13]
Windows (2000+)/общее [89]
Windows (ME-) [6]
Программы [69]
Mobile [2]
Скрипты [26]
Hard [7]
Android [5]
Советы от Влада [7]
Избранное

Рахни православні

Погода в Виннице
Сайт Экслера

Форум Ru.Board
CWER.ru

Hot Line - Цены
Яндекс.Маркет

Форум rutracker.org

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0
Форма входа
Главная » Статьи » Скрипты

Пинг группы компьютеров в локальной сети
Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = Wscript.CreateObject("Wscript.Shell")

InfoOn = ""
InfoOff = ""
numOn = 0
numOff = 0

Set FSource = fso.OpenTextFile("d:\Arhiv\My\Scripts\Vbs\comps.list", 1, True)

Do While FSource.AtEndOfStream <> True
 stro = FSource.ReadLine
 pos = InStr(stro," ")
 strName = Trim(Mid(stro,1,pos-1))

 stro = Trim(Mid(stro,pos+1))
 pos = InStr(stro," ")
 strUser = Trim(Mid(stro,1,pos-1))

 stro = Trim(Mid(stro,pos+1)) 
 strComment = Trim(stro)

 strCommand = "ping -n 1 -4 " & strName
 ReturnCode = WshShell.Run(strCommand, 0, True)

 '0 = pingable, 1 = no response
 If ReturnCode = 0 Then
 numOn = numOn + 1 
 InfoOn = InfoOn & numOn & ". " & strName & " (" & strComment & ")" & vbCrLf
 Else
 numOff = numOff + 1 
 InfoOff = InfoOff & numOff & ". " & strName & " (" & strComment & ")" & vbCrLf
 End If
Loop
FSource.Close

WScript.Echo "=== Включены: ===" & vbCrLf & InfoOn & vbCrLf & "=== Отключены: ===" & vbCrLf & InfoOff

И второй вариант - с помощью ассинхронных запросов WMI: pingall_assync.zip

Категория: Скрипты | Добавил: IgorDanyK (06.05.2014)
Просмотров: 694 | Рейтинг: 0.0/0
Облако тегов
сайт программы Статьи личное разочарования Windows 1c антивирус политика почитать рекомендую Prices math ссылки english скрипты total сеть VBS
Поиск
Google

WWW на сайте
Copyright IgorDanyK © 2017
Создать бесплатный сайт с uCoz