Registrations to Open-AudIT forums are now closed. To ask any new questions please visit Opmantek Community Questions.

Open-AudIT

What's on your network?
It is currently Thu Mar 28, 2024 11:26 pm

All times are UTC + 10 hours




Forum locked This topic is locked, you cannot edit posts or make further replies.  [ 3 posts ] 
Author Message
PostPosted: Thu Mar 01, 2007 8:35 am 
Offline
Helper

Joined: Sat Sep 17, 2005 7:15 am
Posts: 71
Inventory reporting for specific versions of Client Access Express (The default info doesn't provide this):

[code]
'****************************************************************************
'CLIENT ACCESS EXPRESS
'****************************************************************************

strKeyPath = "SOFTWARE\IBM\Client Access\CurrentVersion"
strValueName = "Version"
oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,CAEVersion

strKeyPath = "SOFTWARE\IBM\Client Access\CurrentVersion"
strValueName = "Release"
oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,CAERelease

strKeyPath = "SOFTWARE\IBM\Client Access\CurrentVersion"
strValueName = "ModificationLevel"
oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,CAEModification

strKeyPath = "SOFTWARE\IBM\Client Access\CurrentVersion"
strValueName = "CurrentFixLevel"
oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,CAEFix

If CAEFix <> "" then
CAEFix = " Service Level: " & CAEFix
Else
CAEFix = ""
End If

display_name = "Client Access V" & CAEVersion & "R" & CAERelease & "M" & CAEModification & CAEFix

If CAEVersion <> "" then
form_input = "software^^^" & display_name & "^^^" _
& "V" & CAEVersion & "R" & CAERelease & "M" & CAEModification & " " & CAEFix & "^^^" _
& "" & "^^^" _
& "" & "^^^" _
& OSInstall & "^^^" _
& "IBM^^^^^^^^^^^^^^^^^^" _
& "" & "^^^" _
& "" & "^^^" _
& "http://www.IBM.com" & "^^^ "
entry form_input,comment,objTextFile,oAdd,oComment
form_input = ""
End If
[/code]

Resultant info looks like this:
Software name: Client Access V5R1M0 Service Level: SI01907
Version: V5R1M0 Service Level: SI01907
Publisher: IBM

_________________
Server Info:
OS : Windows Server 2003
Auditing: ~300 machines
LDAP: Windows Server 2003 Active Directory


Top
 Profile  
Reply with quote  
 Post subject:
PostPosted: Thu Mar 01, 2007 9:47 am 
Offline
Site Admin
User avatar

Joined: Mon Jun 07, 2004 11:48 am
Posts: 1964
Location: Brisbane, Australia
What is 'Client Access Express' ?


Top
 Profile  
Reply with quote  
 Post subject:
PostPosted: Thu Mar 01, 2007 10:51 am 
Offline
Helper

Joined: Sat Sep 17, 2005 7:15 am
Posts: 71
I figured someone would ask...:)

Client access is the software that IBM gives you when you purchase an AS400 fom them. Its basically a host emulation software (5250/telnet).

Its pretty widespread...

_________________
Server Info:
OS : Windows Server 2003
Auditing: ~300 machines
LDAP: Windows Server 2003 Active Directory


Top
 Profile  
Reply with quote  
Display posts from previous:  Sort by  
Forum locked This topic is locked, you cannot edit posts or make further replies.  [ 3 posts ] 

All times are UTC + 10 hours


Who is online

Users browsing this forum: No registered users and 2 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Group