メソ知恵/10行くらい/スタートアップ遅延起動

スタートアップにたくさん入ってると起動時重い。で、CPUの状況を見ながら負荷が落ち着いたら順次実行する、みたいな。

を10行位、で。

このscriptと同じフォルダにスタートアップの内容全部コピーして、スタートアップにはこのscriptのショートカットのみを置く。

ratchet_startup.vbs

Set FSO = CreateObject("Scripting.FileSystemObject")
Set SH  = CreateObject("WScript.Shell")
Set items = FSO.GetFolder(FSO.GetParentFolderName(WScript.ScriptFullName))
With CreateObject("WbemScripting.Swbemrefresher")
  Set procs = .AddEnum(GetObject("winmgmts:"), _
    "Win32_PerfFormattedData_PerfOS_Processor").objectSet
    .Refresh
  For Each file In items.Files
    If (file.Attributes And 2) = 0 And file.Name <> WScript.ScriptName Then
      Do
        .Refresh
        For Each proc in procs
          If proc.Name = "_Total" Then ptime = proc.PercentProcessorTime
        Next
        If ptime < 10 Then
          SH.Run """" & file.Path & """"
          Exit Do
        End If
        WScript.Sleep 1000
      Loop
    End If
  Next
End With