remote machine CPU usage

NFI · Aug 8, 2000

What-ho,   I'm *still* hammering away at this one...still no luck

My idea is that I can write a little test app that goes off to a remote machine, running Windows NT4.0 and retrieve its CPU load, the same as task mangler does for your local machine.  I'm trying to do it through API calls (the ADVAPI32.DLL API), using the RegCloseKey, RegConnectRegistry, RegOpenKeyEx and RegQueryValueEx functions to connect to the remote machines' HKEY_DYN_DATA key.  Admitedly, under WinNT, I should be connecting to the HKEY_PERFORMANCE_DATA key, but my NT machines don't have this key and my code doesn't work either way.   If anyone can help me here, I'll buy them an e-pint

Cheers very much, Paul Here's my code; good luck out there... '(General) Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long Private Declare Function RegConnectRegistry Lib "advapi32.dll" Alias "RegConnectRegistryA" (ByVal lpMachineName As String, ByVal hKey As Long, phkResult As Long) As Long Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long 'Defined Keys Private Const HKEY_CLASSES_ROOT = &H80000000 Private Const HKEY_CURRENT_USER = &H80000001 Private Const HKEY_LOCAL_MACHINE = &H80000002 Private Const HKEY_USERS = &H80000003 Private Const HKEY_PERFORMANCE_DATA = &H80000004 Private Const HKEY_DYN_DATA = &H80000006 Private Const HKEY_CURRENT_CONFIG = &H80000005 'Constant for reading registry key Private Const KEY_QUERY_VALUE = &H1 Private Sub Command1_Click() Dim strServerName As String Dim strSubKey As String Dim strValueName As String Dim lhRemoteRegistry As Long Dim lhRemoteRegistryKey As Long Dim sKeyValueBuffer As String Dim lsKeyValueBufferSize As Long '    strSubKey = "PerfStats\\StopStat" & Chr(0)     strSubKey = "PerfStats\\StartStat" & Chr(0) '    strSubKey = vbNullString & Chr(0) '    strValueName = "" & Chr(0)     strValueName = "KERNEL\\CPUUsage" & Chr(0)     strServerName = "\\wts-gr-ws004" & Chr(0)          lReturnCode = RegConnectRegistry(strServerName, HKEY_PERFORMANCE_DATA, lhRemoteRegistry) '    lReturnCode = RegConnectRegistry(strServerName, HKEY_LOCAL_MACHINE, lhRemoteRegistry)     Me.Label1.Caption = lReturnCode     Me.Label6.Caption = lhRemoteRegistry      '    lReturnCode = RegOpenKeyEx(HKEY_PERFORMANCE_DATA, strSubKey, 0&, KEY_QUERY_VALUE, lhRemoteRegistryKey)     lReturnCode = RegOpenKeyEx(lhRemoteRegistry, strSubKey, 0&, KEY_QUERY_VALUE, lhRemoteRegistryKey)     Me.Label2.Caption = lReturnCode          sKeyValueBuffer$ = Space$(10)     lsKeyValueBufferSize& = Len(sKeyValueBuffer)     lReturnCode = RegQueryValueEx(lhRemoteRegistryKey, strValueName, 0&, 0&, ByVal sKeyValueBuffer, lsKeyValueBufferSize)     Me.Label3.Caption = lReturnCode     Me.Text1.Text = sKeyValueBuffer          'Close keys     lReturnCode = RegCloseKey(lhRemoteRegistryKey)     Me.Label4.Caption = lReturnCode          lReturnCode = RegCloseKey(lhRemoteRegistry)     Me.Label5.Caption = lReturnCode End Sub Private Sub Form_Load()     Me.Label1.Caption = vbNullString     Me.Label2.Caption = vbNullString     Me.Label3.Caption = vbNullString     Me.Label4.Caption = vbNullString     Me.Label5.Caption = vbNullString     Me.Label6.Caption = vbNullString      End Sub The form is a standard form with a textbox (text1), command button (Command1) and six labels (label1 to 6) on it, in an arrangement of your choice...

Karl Blessing · Aug 8, 2000

If you are talking about on the Client's machine remotely from your server, you have to understand that ASP is executed on the server not on the client. Karl <a href=mailto:kb244@kb244.com>kb244@kb244.com</a> <a href=

http://kb244.com>

</a> Experienced in : C++(both VC++ and Borland),VB1(dos) thru VB6, Delphi 3 pro, HTML, Visual InterDev 6(ASP(WebProgramming/Vbscript)

http://www.brainbench.com/transcript.jsp?pid=629151

NFI · Aug 9, 2000

OK, now I'm confused...ASP is to do with IIS and all that web lark, how does it fit in here?  I'm just trying to connect to the registry of one machine from a different machine and retrieve information from it, I think you might have got the wrong end of the proverbial stick here...this is just a simple .exe, there's no web stuff going on here at all, the two machines are in NT domains and are comunicating (using TCP/IP I'd imagine) across a LAN, not via the internet. Cheers for wrapping your brain around my problem, though

Paul

Karl Blessing · Aug 9, 2000

it would fit , if he's refering to the ActiveX control he's using on ASP. and the fact he's trying to use API through it. Karl <a href=mailto:kb244@kb244.com>kb244@kb244.com</a> <a href=

http://kb244.com>

</a> Experienced in : C++(both VC++ and Borland),VB1(dos) thru VB6, Delphi 3 pro, HTML, Visual InterDev 6(ASP(WebProgramming/Vbscript)

http://www.brainbench.com/transcript.jsp?pid=629151

NFI · Aug 9, 2000

Hello again,   OK, things are getting a bit confused here - it's still me - same person - I'm not using ASP in any shape or form, I'm not using any ActiveX controls either, other than the standard controls on my test form - this is purely an API thing, with calls performed through a straight, non-web based VB application. The code I've given really is all the code there is to this, there's no hidden WCI's or anything like that going on here. Paul

MikeLacey · Aug 9, 2000

Karl, Connecting to a remote PC's registry does not have a *thing* to do with ASP. Paul, I've struggled with this more than once - have never managed to connect to a remote registry. There's a user called alt255 who might have a thought or two on the matter, I'll email him this evening if he hasn't already seen this...... Mike <a href=mailto:michael.j.lacey@ntlworld.com>michael.j.lacey@ntlworld.com</a> <a href=

http://www.cargill.com/>

Cargill's Corporate Web Site</a>

NFI · Aug 9, 2000

Great, thanks Mike.  I think my code's connecting to the remote registry but I can't really tell and I certainly can't extract the info I want out of it... Cheerio then, Paul

Wabbit · Mar 7, 2001

NFI, did you get the code you needed to access the registry remotely? If not, I have done this and would be willing to share it with you.

NFI · Mar 7, 2001

G'day Wabbit,

nope - I tried and tried with this one, but I never got it working properly. I'm *sure* I was connecting to the remote registry, but no matter how I tried it, I couldn't get any information to be passed out.

If you've got any part of this working, then I should be extremely grateful for any help you can give...

Thanks for getting back to me on this one,

All the best,

Paul

Guest_imported · Jun 21, 2001

Why not use perfmon?

NFI · Jun 21, 2001

Hiya,

How does perfmon work? Can I call it's functions as I would an API or other DLL? I really need the raw code so that I can stick it into another application. To tell you the truth, this is all rather academic now, as nearly a year's gone by and the stuff I was working on back then has long since been either finished or forgotten.

I'd be interested in your ideas, though.

I look forward to hearing from you,

Paul

Guest_imported · Jun 28, 2001

Here are the specifics...WMI through the adsi interface...very slow compared to the api interface.

http://msdn.microsoft.com/msdn-files/026/000/041/Perfmon_dnld.exe

Guest_imported · Jul 16, 2001

I have been able to successfully extract info from the registry with these modifications to your function. You should be able to replace with your key/value names you wish to connect to.
We have a network of over 2000 computers here, so it seems to take about 45 minutes to run against each computer in the domain. I think most this delay has to do with the time-out on Win95 boxes using adsi and the regconnectregistry calls.

Function GetRemoteUser(ByVal computer) As String

Dim strServerName As String
Dim strSubKey As String
Dim strValueName As String
Dim lhRemoteRegistry As Long
Dim lhRemoteRegistryKey As Long
Dim lsKeyValueBufferSize As Long
Dim lReturnCode As Long
Dim strKeyValue As String
Dim sKeyValueBuffer As String

strKeyValue = ""
sKeyValueBuffer = ""
lsKeyValueBufferSize = 0
lhRemoteRegistry = 0
lhRemoteRegistryKey = 0

strServerName = "\\" & computer & Chr(0)
strSubKey = "SYSTEM\CurrentControlSet\Services\NWCWorkstation\Parameters" & Chr(0)
strValueName = "CurrentUser" & Chr(0)

lReturnCode = RegConnectRegistry(strServerName, HKEY_LOCAL_MACHINE, lhRemoteRegistry)
If lReturnCode = 0 Then
lReturnCode = RegOpenKeyEx(HKEY_LOCAL_MACHINE, strSubKey, 0&, KEY_ALL_ACCESS, lhRemoteRegistryKey)
lReturnCode = RegOpenKeyEx(lhRemoteRegistry, strSubKey, 0&, KEY_ALL_ACCESS, lhRemoteRegistryKey)

'lhRemoteRegistryKey = 920
'lhRemoteRegistryKey = 908
'lhremoteregistrykey = 1076 = computer not found???

'If lhRemoteRegistryKey = 908 Then
'Debug.Print computer
'End If
'If lhRemoteRegistryKey = 920 Then
'Debug.Print computer
'End If
'If lhRemoteRegistryKey = 1076 Then
'Debug.Print computer
'End If
lReturnCode = RegQueryValueEx(lhRemoteRegistryKey, strValueName, 0, REG_SZ, 0, lsKeyValueBufferSize)
If lReturnCode = 2 Then 'Key/Value Not Found "User Not Logged in"
Else
If lReturnCode = ERROR_MORE_DATA Then
sKeyValueBuffer = Space$(lsKeyValueBufferSize)
lReturnCode = RegQueryValueEx(lhRemoteRegistryKey, strValueName, 0, REG_SZ, ByVal sKeyValueBuffer, lsKeyValueBufferSize)
strKeyValue = Left(sKeyValueBuffer, Len(sKeyValueBuffer) - 1)
End If

lReturnCode = RegCloseKey(lhRemoteRegistryKey)
lReturnCode = RegCloseKey(lhRemoteRegistry)
End If
Else
strKeyValue = "Win9x"
End If
GetRemoteUser = strKeyValue
End Function

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

remote machine CPU usage

NFI

Programmer

Karl Blessing

Programmer

NFI

Programmer

Karl Blessing

Programmer

NFI

Programmer

MikeLacey

MIS

NFI

Programmer

Wabbit

Programmer

NFI

Programmer

Guest_imported

New member

NFI

Programmer

Guest_imported

New member

Guest_imported

New member

Similar threads

Part and Inventory Search

Sponsor