☰

Contadores de desempenho do Server 2003 para compartilhamentos de arquivos?

tag-icon • tag-icon windows-server-2003 file-sharing performance-monitoring performance
Contadores de desempenho do Server 2003 para compartilhamentos de arquivos?

Eu tenho um disco com várias coisas diferentes acontecendo. Gostaria de determinar aproximadamente quanto da atividade do disco se deve ao compartilhamento de arquivos. Existe um contador para isso?

Além disso, e posso estar sonhando com isso, lembro-me de ter visto algum programa que poderia me permitir monitorar a atividade de arquivos de uma pasta específica dentro de um compartilhamento. Toca alguma campainha? Obrigado.

Responder1

Em referência ao monitoramento da atividade de uma pasta:

Você pode usar WMI (CIM_DataFile) para monitorar uma pasta em busca de quaisquer modificações usando algo semelhante a isto como consulta:

SELECIONE * FROM __InstanceOperationEvent DENTRO de 1 ONDE TargetInstance ISA "CIM_DataFile" AND TargetInstance.Drive="C:" AND TargetInstance.Path="\Data"

Algo assim:

' Full path to the folder to monitor
sPath = "\\localhost\c$\Scripts"
sComputer = split(sPath,"\")(2)
sDrive = split(sPath,"\")(3)
sDrive = REPLACE(sDrive, "$", ":")
sFolders = split(sPath,"$")(1)
sFolders = REPLACE(sFolders, "\", "\\") & "\\"

' Create our WMI instance
Set objWMIService = GetObject("winmgmts:\\" & sComputer & "\root\cimv2")
' Begin monitoring
Set colMonitoredEvents = objWMIService.ExecNotificationQuery _
("SELECT * FROM __InstanceOperationEvent WITHIN 1 WHERE " _
& "TargetInstance ISA 'CIM_DataFile' AND " _
& "TargetInstance.Drive='" & sDrive & "' AND " _
& "TargetInstance.Path='" & sFolders & "'")

Wscript.Echo vbCrlf & Now & vbTab & _
"Begin Monitoring for a Folder Change Event..." & vbCrlf

Do
    Set objLatestEvent = colMonitoredEvents.NextEvent
    Select Case objLatestEvent.Path_.Class

        Case "__InstanceCreationEvent"
            WScript.Echo Now & vbTab & objLatestEvent.TargetInstance.FileName _
            & " was created" & vbCrlf

        Case "__InstanceDeletionEvent"
            WScript.Echo Now & vbTab & objLatestEvent.TargetInstance.FileName _
            & " was deleted" & vbCrlf

        Case "__InstanceOperationEvent"
            If objLatestEvent.TargetInstance.LastModified <> _
                objLatestEvent.PreviousInstance.LastModified then
                WScript.Echo Now & vbTab & objLatestEvent.TargetInstance.FileName _
                & " was modified" & vbCrlf
            End If

        IF objLatestEvent.TargetInstance.LastAccessed <> _
            objLatestEvent.PreviousInstance.LastAccessed then
            WScript.Echo Now & vbTab & objLatestEvent.TargetInstance.FileName _
            & " was accessed" & vbCrlf
        End If

    End Select
Loop

Set objWMIService = nothing
Set colMonitoredEvents = nothing
Set objLatestEvent = nothing

informação relacionada