Listing 2: The Get_user_info Function

Function Get_user_info(strComputer)
  Set objWMIService = _
    GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
  Set colItems = _
    objWMIService.ExecQuery("Select * from Win32_OperatingSystem",,48)

  For Each objItem in colItems
' ------- BEGIN CALLOUT A -------
    OSType = objItem.Caption
    CSDVersion = objItem.CSDVersion
    SerialNumber = objItem.SerialNumber
    Version = objItem.Version
    Windir = objItem.WindowsDirectory
' ------- END CALLOUT A -------
  Next
End Function