用VBA实现局域网内信息自动发布(100分)

原来服务器是WIN2K；客户端是WIN98 用登录脚本可以实现通知信息自动发布，但是现在有些客户端是WINXP(home)或WIN2Kp用登陆脚本实现比较麻烦。用VBA写了一个小程序可以实现客户端启动的时候自动打开服务器上的通知文件，如果通知文件不存在不做任何操作。
Set Of = CreateObject("Scripting.FileSystemObject")
If Of.FileExists("//server/xpmessage$/Message.txt") then
'查找Message.txt存在不？
Set WshShell = Wscript.CreateObject("Wscript.Shell")
WshShell.Run ("notepad //server/xpmessage$/Message.txt") '用记事本打开Message.txt
end if
把以上我内容拷贝到记事本保存，后把文件改名为message.vba 拷贝到客户端（放在服务器也可以）然后拉一个快捷方式到客户端的[启动]中。
在服务器端建立一个XPmessage的共享文件夹（上面加$是隐藏共享 可取）为相应用户或GUEST设置权限为可读但不可修改和删除，在XPmessage中建立一个文本文件为Message.txt，这就是通知的内容。如果没有通知就把这个文件改名或删除即可。

不错，可惜没人答复.

回收。