'/*
' *  RSPerfMon by Gavin W Landon (aka Chizl) ( PDH Helper to access NT/2000 Performance Monitor )
' *  Copyright (C) 1999, ..., 2002  Gavin W. Landon (aka Chizl)
' *
' *  This program is free software; you can redistribute it and/or modify
' *  it under the terms of the GNU General Public License as published by
' *  the Free Software Foundation; either version 2 of the License, or
' *  (at your option) any later version.
' *
' *  This program is distributed in the hope that it will be useful,
' *  but WITHOUT ANY WARRANTY; without even the implied warranty of
' *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
' *  GNU General Public License for more details.
' *
' *  You should have received a copy of the GNU General Public License
' *  along with this program; if not, write to the Free Software
' *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
' *
' *  Gavin W. Landon (aka Chizl) <chizl@chizl.com>
' *
' */

on error resume next
set o = createobject("RSPerfMon.Init")

if o.OpenPerfMon = 0 and err.number = 0 then
	ans = o.GetPerfDlg

	if err.number = 0 then
		msgbox "Return Value: " & ans
		msgbox o.GetCounter(ans)
	end if

	o.ClosePerfMon
end if

if err.number = -2147481639 then '0x800007D9
	msgbox "User Canceled"	
	err.clear
end if

if err then msgbox err.number & ": " & err.description: err.clear

set o = nothing