站长(reterry)推荐此篇文章,想学vbscript的朋友,我建议到微软的官方网站去看,那里的东西很不错,生动幽默,我以前学vbscirpt的时候经常去那里看,而且好多东西,不一定刚开始能看的懂,但不要灰心,把感觉不错的,你可以用本子抄一遍,学习效果会更好,然后下载个vbscirpt帮助文件,微软有的下,然后看看多练习。 花了半天时间在MS TechNet看《脚本的故事》,文章写得很生动幽默,要是所有的有技术文章都以这种轻松的方式来写就好了。 WMI -- Windows Management Instrumentation 相关链接: 微软《脚本指南》:http://www.microsoft.com/china/technet/community/columns/scripts/default.mspx MSDN WMI Scripting Primer:http://www.microsoft.com/china/technet/archives/columns/scripts/sg0103.asp 脚本示例1,显示本机总内存 strComputer = "." Set wbemServices = GetObject("winmgmts:\\" & strComputer) Set wbemObjectSet = wbemServices.InstancesOf("Win32_LogicalMemoryConfiguration") For Each wbemObject In wbemObjectSet WScript.Echo "Total Physical Memory (kb): " & wbemObject.TotalPhysicalMemory Next 脚本示例2, strComputer = "." Set objWMIService = GetObject("winmgmts://" & strComputer & "/root/cimv2") strWQL = "SELECT * " & _ "FROM __InstanceCreationEvent " & _ "WITHIN 2 " & _ "WHERE TargetInstance ISA ''Win32_Process'' " & _ "AND TargetInstance.Name = ''notepad.exe''" WScript.Echo "Waiting for a new instance of Notepad to start..." Set objEventSource = objWMIService.ExecNotificationQuery(strWQL) Set objEventObject = objEventSource.NextEvent() WScript.Echo "A new instance of Notepad was just started." 在脚本中使用外壳(SHELL)程序 Set objShell = Wscript.CreateObject("Wscript.Shell") objShell.Run "notepad" ''运行记事本 调用命令程序(%COMSPEC%环境变量调用相应操作系统的cmd.exe 或 command.exe)运行脚本,并保持console窗口: Set objShell = CreateObject("WScript.Shell") objShell.Run "%COMSPEC% /k ipconfig" 使用objShell的exec方法代替run方法可将运行返回一个WshScriptExec对象,可对结果显示做更多的控制。 运行脚本exam.vbs: 在命令行下输入:cscript exam.vbs 使用重定向符将脚本运行结果输出到文本文件: cscript exam.vbs > output.txt //覆盖方式 cscript exam.vbs >> output.txt //保留添加方式 使用filesystemobject输出到文件: Set objFS = CreateObject("Scripting.FileSystemObject") Set objNewFile = objFS.CreateTextFile("output.txt") objNewFile.WriteLine "Header Information -- Date: " & Now() objNewFile.Close 脚本主机Script Host: Wscript.exe 基于GUI窗口 Cscript.exe 基于控制台命令Console |