Process Görüntüleme

[msonmez]

Merhaba,

Farklı Client larda çalışan process leri Access veya excel de görüntülemek mümkünmü? Ã?rnek 5 adet client var ve aynı anda görüntüye alıp yüksek CPU kullananları tespit etmek istiyorum.

Teşekkürler.

 

[Levent Menteşoğlu]

Aşağıdaki linki inceleyin.

http://www.excel.web.tr/viewtopic.php?p=47105&highlight=#47105

 

[msonmez]

Sn. LeventM,

Yardımınız için çok teşekkürler....

Saygılarımla.

 

[msonmez]

Sn. LeventM,

kodu çalıştırdım ve gayet güzel çalışıyor fakat CPU kullanımı göstermiyor
biraz uğraştım ama beceremedim. Birde farklı client a nasıl ulaşabilieceğim konusunda yardımcı olabilirmisiniz?

Saygılarımla.

 

[Levent Menteşoğlu]

Bu konuda açıkçası benimde fikrim yok, size dosyayı hazırlayan Sn Haluk bey sanıyorum gerekli yardımı yapacaktır.

 

[msonmez]

Sn. LeventM,

İlginize Çok Teşekkürler.

 

[Levent Menteşoğlu]

CPU özellikleri ile ilgili olarak Sn Haluk beyin önerdiği kodu veriyorum.

[vb:1:9560032bc1]Sub InfoCPU()
Dim objWMIService As Object
Dim objItem As Object
Dim colItems As Object
Dim strComputer As String
Dim Msg As String

On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor", , 48)
For Each objItem In colItems
Msg = Msg & vbTab & "Islemci Bilgileri"
Msg = Msg & vbCrLf & String(60, "-") & vbCrLf & vbCrLf & vbCrLf
Msg = Msg & "Sistem : " & objItem.SystemName & vbCrLf & vbCrLf
Msg = Msg & "Islemci : " & Trim(objItem.Name) & vbCrLf & vbCrLf
Msg = Msg & "Seri No : " & objItem.processorId & vbCrLf & vbCrLf
Msg = Msg & "Uretici : " & objItem.Manufacturer & vbCrLf & vbCrLf
Msg = Msg & "Versiyon : " & objItem.Version & vbCrLf & vbCrLf
Msg = Msg & "Durum : " & objItem.Status & vbCrLf & vbCrLf
Msg = Msg & "Mevcut Hiz (MHz) : " & objItem.CurrentClockSpeed & vbCrLf & vbCrLf
Msg = Msg & "Maksimum Hiz (MHz): " & objItem.MaxClockSpeed & vbCrLf & vbCrLf
Msg = Msg & "Voltaj : " & objItem.CurrentVoltage & vbCrLf & vbCrLf
Msg = Msg & "Tanim : " & objItem.Description & vbCrLf & vbCrLf
Msg = Msg & vbCrLf & String(40, "*") & vbCrLf & vbCrLf
Temp = "Su an kullanim (%): " & objItem.LoadPercentage
Msg = Msg & vbTab & Temp
MsgBox Msg
Next
End Sub
[/vb:1:9560032bc1]

Diğer clientleri içinde aşağıdaki kodda nokta yerine clientin yolunu yazarak deneyebilirsiniz.

[vb:1:9560032bc1]strComputer = "."[/vb:1:9560032bc1]

 

[msonmez]

Sn. LeventM,

Kod için teşekkürler ama yanlış anlaşıldım herhalde Kod bana
Clint ın toplam CPU kullanımını veriyor Process bazında kontrol etmek istiyorum. Diğer kod da Process ve ProcessID yi veriyor bunun yanına bir kolon daha açıp CPU eklemek istiyorum.

Saygılarımla.

 

[msonmez]

Process Ýzleme Hk.

Sn LeventM,

Biraz araştırma sonucunda çalışan process lerin CPU larını getirmeyi başardım. Sadece problem yavaş çalışması kodun daha hızlı çalışması
için yardımcı olabilirmisiniz?

Teşekkürler / Saygılar.