Dim flag flag=true Set WshShell = CreateObject("WScript.Shell") '创建WScript.Shell对象 Set oNotepad = WshShell.Exec("notepad") '运行记事本 WshShell.AppActivate oNotepad.ProcessID '激活记事本 set bag=getobject("winmgmts:\\.\root\cimv2&qu
测试项目结构: PS:IIS6UtilsBuilder, IIS7UtilsBuilder,IISUtilsBuilder以及IISDirector为Builder设计模式实现的核心代码.Program中入口函数则利用反射生成Builder实体,具体实现逻辑及详细代码见下: 详细代码 CmdUtil.cs using System; using System.Collections.Generic; using System.Diagnostics; using System.IO; using
脚本 Set WshShell = WScript.CreateObject("WScript.Shell") strDesktop = WshShell.SpecialFolders("Desktop") set oShellLink = WshShell.CreateShortcut(strDesktop & "\xxx系统.lnk") Dim fso Set fso=CreateObject("Scripting.File
作者:朱金灿 来源:http://blog.csdn.net/clever101 try { var WSShell = WScript.CreateObject("WScript.Shell"); var FileSys = WScript.CreateObject("Scripting.FileSystemObject"); var num = WScript.ScriptFullName.lastIndexOf("\\"); // 获取当前