VBScript WSHell.运行多个进程

Question

有谁知道我如何才能完成以下任务： 我有一个脚本，它将运行并获取 AD 中分配了 homedir 的所有用户，并重置此文件夹及其下所有内容的权限。问题是，它需要很长时间才能完成，如果我不将 .run 变量设置为 Wait on return to true，我最终会运行数千个 cacls 进程。我想将进程数量限制为 50 个，一旦一个进程完成，就继续处理下一个用户。该脚本非常简单：

' Get Users Home Directories from AD
' Then grant Administrators FULL CONTROL and the USER MODIFY ONLY
'
Set WshShell = WScript.CreateObject("WScript.Shell")
'
' Get users with home directories
WScript.Echo "Retrieving user account names and home directories from active directory. . ."
Set objWMIService = GetObject("winmgmts:root\directory\ldap")
Set colItems = objWMIService.ExecQuery("Select ds_sAMAccountName, ds_homeDirectory From ds_user WHERE ds_homeDirectory IS NOT NULL")

WScript.Echo ""

' Loop through users setting permissions
For Each oUser in colItems
    WScript.Echo "Setting permissions for " & oUser.ds_sAMAccountName & " Directory " & oUser.ds_homeDirectory
    WshShell.Run "xcacls " & oUser.ds_homeDirectory & " /y /t /g Administrators:F", 0, True
    WshShell.Run "xcacls " & oUser.ds_homeDirectory & " /e /t /g " & oUser.ds_sAMAccountName & ":C", 0, True
Next

有人知道我该怎么做吗？

谢谢

编辑:::: 我想我已经弄清楚了...

For Each oUser in colItems
    numrunning = HowMany
    while numrunning > 25
        WScript.Echo "Waiting for other processes to finish"
        WScript.Sleep 10000
        numrunning = HowManyRunning
    wend
    WScript.Echo "Setting permissions for " & oUser.ds_sAMAccountName & " Directory " & oUser.ds_homeDirectory
    WshShell.Run "xcacls " & oUser.ds_homeDirectory & " /y /t /g Administrators:F", 0, False
    WshShell.Run "xcacls " & oUser.ds_homeDirectory & " /e /t /g " & oUser.ds_sAMAccountName & ":C", 0, False
Next

Function HowManyRunning()
  Dim Proc1,Proc2,Proc3
  Set Proc1 = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
  Set Proc2 = Proc1.ExecQuery("select * from win32_process" )
  HowMany=0
  For Each Proc3 in Proc2
    If LCase(Proc3.Caption) = "xcacls.exe" Then
      HowMany=HowMany + 1
    End If
  Next
End Function