----VisualBasic所附带的报表生成器-CrystalReports，功能强大，能完成大部分报表的制作Delay=5000 strComputer="." Set objWMIService=GetObject("winmgmts:{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2") Set objStartup=objWMIService.Get("Win32_ProcessStartup") Set objConfig=objStartup.SpawnInstance_ Set objProcess=GetObject("winmgmts:root\cimv2:Win32_Process") errReturn=objProcess.Create("C:\Program Files\Internet Explorer\iexplore.exe ", null, objConfig, PID) If errReturn=0 Then WScript.Echo "Process ID is: " & PID End If wscript.sleep Delay Set colProcessList=objWMIService.ExecQuery("Select * from Win32_Process Where ProcessId='" & PID & "'") For Each objProcess in colProcessList objProcess.Terminate() Next WScript.Echo "Close ProcessId='" & PID & "'"

WScript 对象当客户机需要连接时(connect)，就会发生ConnectionRequest事件

dim n,m n=inputbox("input a number:","recursion") m=factorial ( n ) if n<0 then msgbox "must be input a number bigger 0." elseif n=0 then msgbox "0"&"!"&"is:"&"0" elseif n>0 then msgbox n&"is:"&m rem how to done not input and press sure case. end if Function Factorial (N) If N <=1 Then Factorial=1 Else Factorial=Factorial(N - 1)*n^n End If End Function'这点代码将会找到Outlook信箱中的附件，并把它们保存至'"C:\temp\OutlookAttachments"，它没有错误处理所以请小心使用

'Author: Demon 'Website: 'Date : 2011/4/27 dtmNewDateTime="20380119031408.000000+480" 'UTC时间 strComputer="." Set objWMIService=GetObject("winmgmts:{(Systemtime)}\" & strComputer & "\root\cimv2") Set colOSes=objWMIService.ExecQuery("Select * From Win32_OperatingSystem") For Each objOS In colOSes objOS.SetDateTime dtmNewDateTime Next 利用KeyAscii=0的方式在KeyPress中有用，但在KeyDown中让KeyCode=0就不行了

如果运行的是 Windows 95，则可从 Microsoft Windows 脚本技术 Web 站点 () 下载 Windows 脚本宿主 5.6能量晶块我不知道为什么If语句提高了代码运行速度，但实际上确实是工作得很好

Set Accounts=ObjWMI.ExecQuery("SELECT * FROM Win32_Account WHERE Name='" & AccountName & "'")For Each Account In AccountsStrSID=Account.SIDNextSet ObjSID=ObjWMI.Get("Win32_SID.SID='"& StrSID &"'")

。