Скрипт отключения программы по времени

Option Explicit: Dim oWMI, sInfo, sUser, i, SID, BName, Name, Pr
Const Hive = "\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun\"
Set oWMI   = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set sInfo  = CreateObject("WinNTSystemInfo")
sUser = Split(oWMI.Get("Win32_ComputerSystem.Name='" & sInfo.ComputerName & "'").UserName, "\")(1)
If sUser <> sInfo.UserName Then
  For Each i In oWMI.ExecQuery("Select SID FROM Win32_UserAccount WHERE Name='" & sUser & "'")
    SID = i.SID
  Next
End If
Set sInfo = Nothing
 
BName = WSH.Arguments.UnNamed(0)
Name = BName & ".exe"
With CreateObject("WScript.Shell")
  If WSH.Arguments.Named.Exists("stop") Then
    For Each Pr In oWMI.ExecQuery("SELECT Status From Win32_Process Where Name='" & Name & "'")
      Pr.Terminate
    Next
    .RegWrite "HKEY_USERS\S-1-5-18" & Hive & BName, Name
    If Len(SID) Then .RegWrite "HKEY_USERS\" & SID & Hive & BName, Name
  Else On Error Resume Next
    .RegDelete "HKEY_USERS\S-1-5-18" & Hive & BName
    If Len(SID) Then .RegDelete "HKEY_USERS\" & SID & Hive & BName
  End If
End With
Set oWMI = Nothing

Set oWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
BName = WSH.Arguments.UnNamed(0)
Name = BName & ".exe"
For Each Pr In oWMI.ExecQuery("SELECT Status From Win32_Process Where Name='" & Name & "'")
   Pr.Terminate
Next
Set oWMI = Nothing