strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process")
Set objShell = CreateObject("WScript.Shell")
for i = 1 to 8 '提醒8次
WScript.Sleep (1000*60*60) '每隔1小时提醒一次
objShell.Run "TrayBalloon.bat"
Next
Wscript.Quit
每天8次,间隔1小时,自动运行 冒泡P处理,提醒大家注意保护眼睛。
胡思乱想:如果能够变成 服务器端+客户端 都是命令行(P调用)就更好了,能够随时发送信息。
比 Net send 强,因为 Net Send 发送时候,必须人为点击确定才能取消(在某时候还是很重要,但平常提醒后自动消失更符合办公环境)。