'the Shell.Application "ShellExecute" method with "runas" 'to re-launch this script. Const FOR_WRITING = 2 Dim ws, fs, ts Dim strData, strUacFile, strArgs, strArg Dim lngArg Set fs = CreateObject("Scripting.FileSystemObject") Set ws ...

抱歉，此文档暂时无法提供完整预览，请免费下载后浏览。