-
悲欢独自饮
发布于 2009-06-26 16:12
-
收藏
复制代码 代码如下:'On Error Resume Next strAgentName = "Merlin" strAgentPath = "c:\windows\msagent\chars\" & strAgentName & ".acs" ScriptComplete=0 Set objAgent = WScript.CreateObject("Agent.Control.2","agent_") objAgent.Connected..