Get number of current users and other IIS performance values.

Do you want to monitor what is a number of current users on your website? You can use Win32_PerfRawData_W3SVC_WebService object.

1. Get current annonymous users

Dim WebPerf, n 
Set WebPerf = GetObject("winmgmts:root\cimv2:Win32_PerfRawData_W3SVC_WebService.Name='_Total'") 
n = WebPerf.CurrentAnonymousUsers
Response.Write "Current number of users on this server:" & n

'n' is number of AnonymousUsers for whole server. You can use web site name instead of "_Total".
But there is no good idea to query this value each time on hi-loaded servers. You can use next algorithm to cache this number in application dictionary for 30 second period.

Function CurrentUsers
  on error resume Next
  Dim n, t
  t = application("curuserst")
  If isempty(t) Then
  elseif cdate(now-t) > #00:00:30# Then
  Else
    n = application("curusers")
  End If
  If isempty(n) Then
    application("curuserst") = now
    Dim CommonWeb
    Set CommonWeb = GetObject("winmgmts:root\cimv2:Win32_PerfRawData_W3SVC_WebService.Name='_Total'")
    n = CommonWeb.CurrentAnonymousUsers
    application("curusers") = n
  end if'if isempty(n) Then

  If isempty(n) Then n = 0
  CurrentUsers = n
End Function

2. List more values for each web site :

Win32_PerfRawData_W3SVC_WebService object contains many values. You can get a list of these values using getObjectText_ method:

Dim WebPerf
Set WebPerf = GetObject("winmgmts:root\cimv2:Win32_PerfRawData_W3SVC_WebService.Name='_Total'") 
Response.ContentType = "text/plain"
Response.Write "Win32_PerfRawData_W3SVC_WebService values:" & vbCrLf & WebPerf.getObjectText_

Next code is a list of all local web-sites as an HTML table with basic IIS load info

Function PerfQuery
  Dim wmi, wql, instance, instances, html

  'Get wmi object
  Set wmi = GetObject("winmgmts:root/cimv2")

  'Query web sites with annonymous users
  wql = "select TotalAnonymousUsers, CurrentAnonymousUsers, " & _
   " CurrentISAPIExtensionRequests, MaximumAnonymousUsers, ISAPIExtensionRequestsPersec " & _
   " from Win32_PerfRawData_W3SVC_WebService where TotalAnonymousUsers>0"
  Set instances = wmi.ExecQuery(wql)


  'Table header  
  html = html & "<Table Border=0 CellPadding=0 CellSpacing=1 class=pd>"
  html = html & "<TR Class=pf><td> Web site </td>"
    html = html & "<Td Align=center> TotalAnonymousUsers </td>"
    html = html & "<Td Align=center> CurrentAnonymousUsers </td>"
    html = html & "<Td Align=center> MaximumAnonymousUsers </td>"
    html = html & "<Td Align=center> CurrentISAPIExtensionRequests </td>"
  html = html & "</tr>"

  'Format row values
  For Each instance In instances
    html = html & "<TR Class=pl><td> " & instance.name & " </td>"

    html = html & "<Td Align=Right> " & instance.TotalAnonymousUsers & " </td>"
    html = html & "<Td Align=Right> " & instance.CurrentAnonymousUsers & " </td>"
    html = html & "<Td Align=Right> " & instance.MaximumAnonymousUsers & " </td>"
    html = html & "<Td Align=Right> " & instance.CurrentISAPIExtensionRequests & " </td>"

    html = html & "</tr>"
  Next
  html = html & "</Table>"

  PerfQuery = html
End Function

3. Connect to another computer

First method is using wmi URL - simple append computer name to path:

  Set wmi = GetObject("winmgmts://computername/root/cimv2")

You cannot access to a second computer with other user account using GetObject. Next source code uses ConnectServer method of SWbemLocator object.

  Dim Locator, Connection
  'Create Locator object
  Set Locator = CreateObject("WbemScripting.SWbemLocator")

  'Connect To another server
  Set Connection = Locator.connectserver("ComputerName", "root\cimv2", "UserName", "Password")
  
  'Execute query on the server
  Dim Instances, wql
  wql = "..."
  Set Instances = Connection.ExecQuery(wql)

Get number of current users and other IIS performance values.MOTOBIT.COM

1. Get current annonymous users

2. List more values for each web site :

3. Connect to another computer

See also

Copyright and use this code