スタートアップにたくさん入ってると起動時重い。
で、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行超えました。はい。
試してみたけど、、、、そんなに、、、変わらない、、、かな。。
役だった?
作成日 2008-12-05 (金) 21:07:43
Tag: WSH 10行くらい