| Предыдущая тема :: Следующая тема |
| Автор |
Сообщение |
artemiy_sh
Зарегистрирован: 11.03.2005
Сообщения: 10
Откуда: Москва
|
 Добавлено: Пт Апр 01 2005 08:40 Заголовок сообщения: Есть ли ключи к команде net send? |
 |
|
Подскажите, есть ли какие-нибудь ключи к виндусовой команде net send? Меня интересует возможность сократить до минимума время (а лучше вообще его убрать!), которое net send тратит на определение включена машина или нет . Главное БЫСТРО послать сообщения на конкретные IP, а то если какая-то машина выключена net send иногда до минуты ждет ответа, прежде чем отсылает сообщение следующей машине, так рассылка может затягиваться более получаса  |
|
| Вернуться к началу |
|
 |
vvt
Зарегистрирован: 20.05.2004
Сообщения: 686
|
| Добавлено: Пт Апр 01 2005 14:00 Заголовок сообщения: |
|
|
The syntax of this command is:
NET SEND {name | * | /DOMAIN[:name] | /USERS} message
Sends messages to other users, computers, or messaging names
on the network. The Messenger service must be running to receive messages.
You can send a message only to an name that is active on the network.
If the message is sent to a username, that user must be logged on
and running the Messenger service to receive the message.
name Is the username, computername, or messaging name
to send the message to. If the name is a
computername that contains blank characters,
enclose the alias in quotation marks (" ").
* Sends the message to all the names in your group.
/DOMAIN[:name] Sends the message to all the names in the
workstation domain. If name is specified, the
message is sent to all the names in the specified
domain or workgroup.
/USERS Sends the message to all users connected to
the server.
message Is text to be sent as a message.
NET HELP command | MORE displays Help one screen at a time. |
|
| Вернуться к началу |
|
|
artemiy_sh
Зарегистрирован: 11.03.2005
Сообщения: 10
Откуда: Москва
|
| Добавлено: Пт Апр 01 2005 14:56 Заголовок сообщения: |
|
|
[quote="vvt"]The syntax of this command is:
NET SEND {name | * | /DOMAIN[:name] | /USERS} message
Да знаю я синтаксис, мне интересно нет ли дополнительных каких ключей, чтоб не ждать тайм-аут от компов которые выключены. Их бывает много и рассылка затягивается на минут 40. |
|
| Вернуться к началу |
|
|
Andy_user
Зарегистрирован: 03.12.2003
Сообщения: 382
Откуда: Санкт-Петербург
|
| Добавлено: Пт Апр 01 2005 15:07 Заголовок сообщения: |
|
|
artemiy_sh
Варианты:
1. Рассылать одной командой на домен;
2. Написать скриптик, в котором перед net send проверять пингом доступность конкретной машины по IP-адресу и по результатам пинга посылать сообщение или нет.
_________________
Знание принципов компенсирует незнание фактов. |
|
| Вернуться к началу |
|
|
artemiy_sh
Зарегистрирован: 11.03.2005
Сообщения: 10
Откуда: Москва
|
| Добавлено: Пн Апр 04 2005 10:02 Заголовок сообщения: |
|
|
| Andy_user писал(а): | artemiy_sh
Варианты:
1. Рассылать одной командой на домен; |
К сожалению этот вариант не подходит т.к. сообщения шлются не всем, а группам (по шарам)
| Andy_user писал(а): | | 2. Написать скриптик, в котором перед net send проверять пингом доступность конкретной машины по IP-адресу и по результатам пинга посылать сообщение или нет. |
Эта мысль была но к своему стыду скрипты писать не умею 
Если не сложно можешь скриптик выслать на e-mail? |
|
| Вернуться к началу |
|
|
Andy_user
Зарегистрирован: 03.12.2003
Сообщения: 382
Откуда: Санкт-Петербург
|
| Добавлено: Пн Апр 04 2005 11:05 Заголовок сообщения: |
|
|
| Цитата: | ' ----------
' Проверяет доступность компьютера по сети.
' Для этого производится пинг двумя пакетами размером 64 байта. Таймаут - 100 мс.
' Параметры:
' - sComputer - имя заданного компьютера
' Возвращаемые значения:
' - true - Компьютер отвечает на пинги
' - false - Компьютер на пинги не отвечает
'----------
Function IsThisComputerOnLine(sComputer)
Dim oShell, oScriptExec
Dim sOut
Set oShell = CreateObject("WScript.Shell")
Set oScriptExec = oShell.Exec("ping -n 2 -w 100 -l 64 " & sComputer)
Do While oScriptExec.Status <> 1 '--- Wait for Method "Exec" is not completed ---
Wscript.Sleep 100 '--- Wait 100 mc ---
Loop
sOut=oScriptExec.StdOut.ReadAll
If(InStr(sOut,"=64"))Then
IsThisComputerOnLine=true
Else
IsThisComputerOnLine=false
End If
End Function '--- Конец функции ---
'-------------------
Function My_send(To_dest, Message)
Dim Comand_String
Dim aaa
Set aaa = WScript.CreateObject("WScript.Shell")
Comand_String ="NET SEND " & To_dest & " "
Comand_String =Comand_String & Message
Return = aaa.Run (Comand_String, 0, True)
End Function '--- Конец функции ---
'--- Main ---
My_String = "193.125.1.179" '--- This IP yes
'My_String = "193.125.1.109" '--- This IP no
Message = "Hello for me"
If IsThisComputerOnLine(My_String) Then
'Wscript.Echo My_String & " is on line"
Call My_send(My_String, Message)
Else
'Wscript.Echo My_String & " not found"
End If
Wscript.Quit |
_________________
Знание принципов компенсирует незнание фактов. |
|
| Вернуться к началу |
|
|
artemiy_sh
Зарегистрирован: 11.03.2005
Сообщения: 10
Откуда: Москва
|
| Добавлено: Вт Апр 05 2005 09:28 Заголовок сообщения: |
|
|
Спасибо... пойду разбираться со скриптиком 
_________________
Меня постоянно преследуют умные мысли,но я быстрее |
|
| Вернуться к началу |
|
|
tinimi
Зарегистрирован: 27.03.2005
Сообщения: 90
Откуда: Win32
|
| Добавлено: Ср Апр 06 2005 22:47 Заголовок сообщения: |
|
|
net send * Hello!
_________________
[ TiNiMi ] |
|
| Вернуться к началу |
|
|
|
FAQ 
Поиск 
Пользователи 
Группы
Регистрация
Профиль 
Войти и проверить личные сообщения 
Вход 
