运行效果图：

代码（monprocess.vbs）：

On Error Resume Next

strComputer = "."
arrTargetProcs = Array("calc.exe", "notepad.exe", "other.exe")
'数组里为要监视的进程名
Set SINK = WScript.CreateObject("WbemScripting.SWbemSink","SINK_")
Set objWMIService = GetObject("winmgmts:" & _
 "{impersonationLevel=impersonate}!\" & strComputer & "rootcimv2")
objWMIService.ExecNotificationQueryAsync SINK, _
 "SELECT * FROM __InstanceCreationEvent WITHIN 1 " & _
  "WHERE TargetInstance ISA 'Win32_Process'"
Wscript.Echo "Are monitoring processes ..."
Do
 WScript.Sleep 1000
Loop
'***************************************************************************
Sub SINK_OnObjectReady(objLatestEvent, objAsyncContext)
'Trap asynchronous events.
 For Each strTargetProc In arrTargetProcs
  If LCase(objLatestEvent.TargetInstance.Name) = LCase(strTargetProc) Then
   intReturn = objLatestEvent.TargetInstance.Terminate
   If intReturn = 0 Then
    Wscript.Echo "Time: " & Now & ", Succeed!" & chr(9) & _
     "Name: " & objLatestEvent.TargetInstance.Name
    Else
    Wscript.Echo "Time: " & Now & ", Failed!" & chr(9) & _
     "Name: " & objLatestEvent.TargetInstance.Name
   End If
  End If
 Next
End Sub

原文：https://www.enun.net/?p=2385

VBScript 输出中的对齐实现方法
运行效果：代码（fOutput.vbs）：strComputer="."SetobjWMIService=GetObject("winmgmts:\"&strComputer&"rootCIMV2")SetcolItems=objWMIService.ExecQuery(_"SELECT*FROMWin32_NetworkAdapterConfigur

vbs 获取当前目录的实现代码
CMD当前路径test=createobject("Scripting.FileSystemObject").GetFolder(".").PathWscript.echotest当前VBS路径test=createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentF

vbs 获取当前目录文件数量的代码(不包括子文件夹中的)
i=0setfso=CreateObject("Scripting.FileSystemObject")setfs=fso.getfolder(".").filesforeachfinfsi=i+1nextmsgbox"文件总数:"&i