摘要： Dim obj_shellset obj_shell = createobject("wscript.shell")host = WScript.FullNameIf LCase( right(host, len(host)-InStrRev(host,"\")) ) = "wscript.exe"... 阅读全文