利用asp实现信使功能的问题 急！

[ymeik]

我拟用asp实现信使功能，发送系统消息到局域网其他电脑，现在代码如下：

<%
dim ip
ip="10.10.10.23"

ml="net send "&ip&" 有客户报修，请处理！"
Set WShShell = Server.CreateObject("WScript.Shell")
RetCode = WShShell.Run(ml, 1, True)
%>

可是此代码不能发送消息到该电脑，加入这些代码也未影响其他程序的执行。
我将
RetCode = WShShell.Run(ml, 1, True)
改为下面一句，仍然没有能实现功能
RetCode = WShShell.Run("C:\winnt\system32\cmd.exe /c "&ml, 1, True)

不知道哪里出错了，请各位高手相助，问题解决则结帖

[niaoked]

顶一下
到时来看看

[chinahuman]

用这段程序：
<%
dim ip
ip="10.10.10.23"

ml="net send "&ip&" 有客户报修，请处理！ >d:\aa.txt"
Set WShShell = Server.CreateObject("WScript.Shell")
RetCode = WShShell.Run(ml, 1, True)
%>
这个执行完后，会在D盘下生成一个aa.txt看一下里面的消息，看是什么错误

[chinahuman]

有点错误：）
先建一个netsend.bat文件.内容是：net send %1 %2 > %3
和程序文件放在一起。
<%
dim ip
ip="10.10.10.23"
message="systemtest"
nowpath=server.mappath(".")
response.write nowpath
ml=nowpath&"\netsend.bat "&ip&" "&message&" "&nowpath&"\aa.txt"
response.write ml
Set WShShell = Server.CreateObject("WScript.Shell")
RetCode = WShShell.Run(ml, 1, True)
if RetCode = 0 then
Response.Write "Ok"
else
Response.Write RetCode
end if

%>
然后你在看程序目录下生成的那个aa.txt里面就有报错的消息。

[darker]

关注 帮你UP

[ymeik]

谢谢大家的关心
搁了很久了 发帖都已经好几天了
我希望此问题能尽快解决 希望大侠们多多帮助
小女子不甚感激！

[xingworld]

其实这个问题不是用 单纯的 ASP 来解决的，建议你用 VC 写一个 ATL COM
在 ATL COM 里面能执行 SOCKET 操作
这样你可以通过 SOCKET 来发送消息

如果你的计算机上 WScript.Shell 被禁止，你同样是无法发送数据

执行后没有任何结果，极大的可能是 该应用程序没有权限，就是 ASP 没有能力涉及到 WIN32 层
我通常的做法是用 VC 写 ATL COM 来解决这些

[bananasmiling]

学习..可是这个问题还是没有解决..有高手吗

[cpio]

那是控件台命令

你怎么可以执行？

WSH可以执行的也就是系统内的程序，比如：c:\winrar.exe

所以你就不用想这个了

用WSH运行WINRAR解压还差不多

[yaozhg]

行不行呀？我非常关注，如果可以，这是件不错的事情。特别是用于提醒作用非常好。

[ymeik]

： chinahuman(又想考研又想扛红旗我该怎么办？)
我也曾用
response.write err.description&"<br>"
进行错误测试 结果什么都没有
用response.write err.number&"<br>"
得到的结果是0

程序运行后得到的是空白页

刚刚将你的程序试了，aa.txt都没有生成，执行结果是：
E:\我的程序\asp\disposalE:\我的程序\asp\disposal\netsend.bat 10.10.10.23 systemtest E:\我的程序\asp\disposal\aa.txt1
其中，E:\我的程序\asp\disposal 是我程序的目录

[Climber12]

关注！~

[laers]

帮你顶下,学习中

[sephiroth0079]

gz
up

[chinahuman]

如果你机子的硬盘是NTFS的分区，估计是没有权限的。我在这里测试过了，会生成一个aa.txt里面说是10.10.10.23网络名错误

[chinahuman]

我在我的fat32的分区上作的，可以生成那个结果文件的。

[ymeik]

： chinahuman(又想考研又想扛红旗我该怎么办？)
我的是ntfs的分区 2000的机器
你的呢？

我刚刚将ml 用“”引起来，结果成：E:\我的程序\asp\disposalml1

请再测试一下我原来的程序 ，看能不能有结果 谢谢

[chinahuman]

我觉得更多的是权限上的问题，不是程序上的问题！

[ymeik]

看来因为我的电脑是ntfs格式的，所以没有权限执行呀
看来得写个组建 再用asp调用了

还想看看有没有好的见解 谢谢

[okdw]

http://expert.csdn.net/Expert/topic/2180/2180140.xml?temp=.1883051

[ymeik]

谢谢大家的帮助 今日结帖