如何编写一个shell可以在win2000下调用NET SEND发送多条消息。

shugen1712

我想实现这样一个shell,可以在WIN2000的命令提示符下运行，实现发送多条net send 的功能，这个shell需要录入3个参数，第一个为计算机名称，第二个为次数，例如：这个shell 叫multsend.sh,运行是输入multsend.sh worker 你好 10,实现可以给叫做worker的计算机发送10条你好消息的功能。不知道可以实现么，请帮忙，我刚刚学shell,请熟悉的朋友帮忙。

bjgirl

用dos的批处理!

hanli_cn

install MKS Toolkist on windows, they you can simulate the UNIX environment.

slash001

保存为test.vbs

Dim host, message, count, i, cmd
Ent=chr(13)&chr(10)

Set Args = wscript.Arguments
Set ws=WScript.CreateObject("wscript.shell"

If Args.Count() = 3 Then
    host = Args.item(0)
        message = Args.item(1)
        count = Args.item(2)
Else
    Call DisplayUsage
End If

i = 0
cmd = "net send " & host & " " & message

While i < int(count)
        WScript.Echo "send to " & host & " " & i+1
        ws.run cmd,0
        i = i+1
Wend

Sub DisplayUsage
        WScript.Echo "Usage: test.vbs host message count" & Ent & "Example: test.vbs 192.168.0.1 你好 10"
        WScript.Quit (1)
End Sub

执行
D:\>cscript test.vbs 192.168.0.5 "test message" 3

slash001

dos批处理方法

@echo off
set /a i=0
:exec
if %i% == %3 goto end
net send %1 %2
set /a i=%i%+1
goto exec
:end

执行
D:\>test.bat 192.168.0.5 "test message" 3

飞灰橙

原帖由 "slash001" 发表：
保存为test.vbs

Dim host, message, count, i, cmd
Ent=chr(13)&chr(10)

Set Args = wscript.Arguments
Set ws=WScript.CreateObject("wscript.shell"

If Args.Count() = 3 Then
    host = Args.item(..........

放到hta里吧，还能编出用户界面来。