スタートアップにたくさん入ってると起動時重い。 で、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

くらいでどうでしょうか。 んー、全然10行超えました。はい。

試してみたけど、、、、そんなに、、、変わらない、、、かな。。

役だった?

選択肢 投票
はい 12  
いいえ、ケフィアです 12  

作成日 2008-12-05 (金) 21:07:43

投稿者メソ | パーマリンク | トラックバック(78) | コメント(0)

Tag: WSH 10行くらい



URL B I U SIZE Black Maroon Green Olive Navy Purple Teal Gray Silver Red Lime Yellow Blue Fuchsia Aqua White