' RemoteWaker Agent - VBS 静默启动器
' 以隐藏控制台窗口方式启动 Agent
' 由 Windows 计划任务调用

Dim shell, scriptDir
Set shell = CreateObject("WScript.Shell")

' 获取当前脚本所在目录
scriptDir = CreateObject("Scripting.FileSystemObject").GetParentFolderName(WScript.ScriptFullName)

' 以隐藏窗口方式运行启动脚本 (0 = 隐藏窗口)
shell.Run "cmd.exe /c """ & scriptDir & "\run-agent.bat""", 0, False

Set shell = Nothing