Open-AudIT

What's on your network?
It is currently Sun Apr 22, 2018 1:04 am

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


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: 1944
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