Application Development and Automation Blog Posts
Learn and share on deeper, cross technology development topics such as integration and connectivity, automation, cloud extensibility, developing at scale, and security.
cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 
Read only

How to Detect all Connected Systems and Programs with CCo and NCo

Stefan-Schnell
Active Contributor
‎2017 Jan 04 8:07 PM
1,502
I presented here the COM Connector (CCo). Here now an example script in PowerShell, which bases on CCo, how to detect all connected systems and programs to an SAP system. This script has its origin in a discussion with our system administrator. He wants to know which programs accesses to which SAP system. On this way it is possible to detect the programs, e.g. Eclipse. Now we can run this script via scheduler e.g. on high noon, save the data and analyze it. This script uses the RFC-enabled function module GWY_READ_CONNECTED_SYSTEMS.
#-Begin-----------------------------------------------------------------



  #-Constants-----------------------------------------------------------

    $RFC_OK = 0

    $VarByRef = -1



  #-Includes------------------------------------------------------------

    ."COM.ps1"



  #-Function Read-ConSys------------------------------------------------

    Function Read-ConSys([String] $ASHost, [String] $SysNr, 

      [String] $Client, [String] $User, [String] $PassWd) {



      $SAP = $null

      $SAP = Create-Object "COMNWRFC"

      if ($SAP -eq $null) {

        Break

      }



      $hRFC = Invoke-Method $SAP "RfcOpenConnection" @(

        "ASHOST=" + $ASHost + ", SYSNR=" + $SysNr + ", CLIENT=" +

        $Client + ", USER=" + $User + ", PASSWD=" + $PassWd)

      if ($hRFC -eq 0) {

        Free-Object $SAP

        Remove-Variable SAP

        Break

      }



      $hFuncDesc = Invoke-Method $SAP "RfcGetFunctionDesc" @(

        $hRFC, "GWY_READ_CONNECTED_SYSTEMS")

      if ($hFuncDesc -eq 0) {

        $rc = Invoke-Method $SAP "RfcCloseConnection" $hRFC

        Free-Object $SAP

        Remove-Variable SAP

        Break

      }



      $hFunc = Invoke-Method $SAP "RfcCreateFunction" $hFuncDesc

      if ($hFunc -eq 0) {

        $rc = Invoke-Method $SAP "RfcCloseConnection" $hRFC

        Free-Object $SAP

        Remove-Variable SAP

        Break

      }



      $rc = Invoke-Method $SAP "RfcInvoke" @($hRFC, $hFunc)

      if ($rc -ne $RFC_OK) {

        $rc = Invoke-Method $SAP "RfcDestroyFunction" $hFunc

        $rc = Invoke-Method $SAP "RfcCloseConnection" $hRFC

        Free-Object $SAP

        Remove-Variable SAP

        Break

      }



      $rc = Invoke-Method $SAP "RfcGetTable" @(

        $hFunc, "CONNECTED_SYSTEMS", $VarByRef)

      if ($rc -ne $RFC_OK) {

        $rc = Invoke-Method $SAP "RfcDestroyFunction" $hFunc

        $rc = Invoke-Method $SAP "RfcCloseConnection" $hRFC

        Free-Object $SAP

        Remove-Variable SAP

        Break

      }



      $hTable = Get-Property $SAP "lngByRef"

      $rc = Invoke-Method $SAP "RfcGetRowCount" @(

        $hTable, $VarByRef)

      $RowCount = Get-Property $SAP "lngByRef"



      $rc = Invoke-Method $SAP "RfcMoveToFirstRow" $hTable



      for ($i = 1; $i -le $RowCount ; $i++) {



        $Row = Invoke-Method $SAP "RfcGetCurrentRow" $hTable



        $rc = Invoke-Method $SAP "RfcGetChars" @(

          $Row, "LUNAME", $VarByRef, 128)

        $charBuffer = Get-Property $SAP "strByRef"

        $txt = $txt + $charBuffer.Trim()



        $rc = Invoke-Method $SAP "RfcGetChars" @(

          $Row, "TPNAME", $VarByRef, 128)

        $charBuffer = Get-Property $SAP "strByRef"

        $txt = $txt + " " + $charBuffer.Trim()



        $rc = Invoke-Method $SAP "RfcGetChars" @(

          $Row, "ADDR1", $VarByRef, 16)

        $charBuffer = Get-Property $SAP "strByRef"

        $txt = $txt + " " + $charBuffer.Trim() + "`r`n"



        if ($i -lt $RowCount) {

          $rc = Invoke-Method $SAP "RfcMoveToNextRow" $hTable

        }



      }



      $rc = Invoke-Method $SAP "RfcDestroyFunction" $hFunc

      $rc = Invoke-Method $SAP "RfcCloseConnection" $hRFC

      Free-Object $SAP

      Remove-Variable SAP

      $txt

    }

    

  #-Function Main-------------------------------------------------------

    Function Main {

      $Res = Read-ConSys -ASHost "NSP" -SysNr "00" -Client "001" `

        -User "RFC" -PassWd "secret"

      Write-Host $Res

    }



  #-Main----------------------------------------------------------------

    Main



#-End-------------------------------------------------------------------

You get the name of the connected unit in the field LUNAME and the program name in the field TPNAME. The field ADDR1 delivers the IP address of the connected system.

I presented here and here the basics how to use NCo with Powershell, and now here the same script with NCo:
#-Begin-----------------------------------------------------------------



  #-Sub Load-NCo--------------------------------------------------------

    Function Load-NCo {



      $ScriptDir = $PSScriptRoot



      If ([Environment]::Is64BitProcess) {

        $Path = $ScriptDir + "\x64\"

      }

      Else {

        $Path = $ScriptDir + "\x86\"

      }



      [Reflection.Assembly]::LoadFile($Path + "sapnco.dll") > $Null

      [Reflection.Assembly]::LoadFile($Path + "sapnco_utils.dll") > $Null



    }



  #-Function Get-Destination--------------------------------------------

    Function Get-Destination([String] $Name, [String] $ASHost, 

      [String] $SysNr, [String] $Client, [String] $User,

      [String] $PassWd) {



      #-Connection parameters-------------------------------------------

        $cfgParams = New-Object SAP.Middleware.Connector.RfcConfigParameters

        $cfgParams.Add("NAME", $Name)

        $cfgParams.Add("ASHOST", $ASHost)

        $cfgParams.Add("SYSNR", $SysNr)

        $cfgParams.Add("CLIENT", $Client)

        $cfgParams.Add("USER", $User)

        $cfgParams.Add("PASSWD", $PassWd)



      Return [SAP.Middleware.Connector.RfcDestinationManager]::GetDestination($cfgParams)



    }

  

  #-Sub Read-ConSys-----------------------------------------------------

    Function Read-ConSys([String] $Name, [String] $ASHost,

      [String] $SysNr, [String] $Client, [String] $User, 

      [String] $PassWd) {



      $destination = Get-Destination -Name $Name -ASHost $ASHost `

        -SysNr $SysNr -Client $Client -User $User -PassWd $PassWd



      #-Metadata--------------------------------------------------------

        [SAP.Middleware.Connector.IRfcFunction]$rfcFunction = 

          $destination.Repository.CreateFunction("GWY_READ_CONNECTED_SYSTEMS")



      #-Call function module--------------------------------------------

        Try {

          $rfcFunction.Invoke($destination)



         [SAP.Middleware.Connector.IRfcTable]$ConSys = 

           $rfcFunction.GetTable("CONNECTED_SYSTEMS")



         ForEach ($line In $ConSys) {

           $strText = $strText + $line.GetValue("LUNAME") +  " " + `

             $line.GetValue("TPNAME") + " " + $line.GetValue("ADDR1") + `

             "`r`n"

         }



        }

        Catch {

          Write-Host "Exception" $_.Exception.Message "occured"

        }



      Return $strText



    }



  #-Sub Main------------------------------------------------------------

    Function Main () {

      If ($PSVersionTable.PSVersion.Major -ge 5) {

        Load-NCo

        $strText = Read-ConSys -Name "TEST" -ASHost "NSP" -SysNr "00" `

          -Client "001" -User "RFC" -PassWd "secret"

        Write-Host $strText

      }

    }



  #-Main----------------------------------------------------------------

    Main



#-End-------------------------------------------------------------------

Here the same script in VBScript:
'-Begin-----------------------------------------------------------------



  '-Directives----------------------------------------------------------

    Option Explicit



  '-Constants-----------------------------------------------------------

    Const RFC_OK = 0



  '-Function ReadConSys-------------------------------------------------

    Function ReadConSys(ASHost, SysNr, Client, User, PassWd)



      '-Variables-------------------------------------------------------

        Dim SAP, hRFC, rc, hFuncDesc, hFunc, hTable, RowCount, i, Row

        Dim charBuffer, strText



      Set SAP = CreateObject("COMNWRFC")

      If Not IsObject(SAP) Then

        Exit Function

      End If



      hRFC = SAP.RfcOpenConnection("ASHOST=" & ASHost & ", SYSNR=" & SysNr & _

        ", CLIENT=" & Client & ", USER=" & User & ", PASSWD=" & PassWd)

      If hRFC = 0 Then

        Set SAP = Nothing

        Exit Function

      End If



      hFuncDesc = SAP.RfcGetFunctionDesc(hRFC, "GWY_READ_CONNECTED_SYSTEMS")

      If hFuncDesc = 0 Then

        rc = SAP.RfcCloseConnection(hRFC)

        Set SAP = Nothing

        Exit Function

      End If



      hFunc = SAP.RfcCreateFunction(hFuncDesc)

      If hFunc = 0 Then

        rc = SAP.RfcCloseConnection(hRFC)

        Set SAP = Nothing

        Exit Function

      End If



      If SAP.RfcInvoke(hRFC, hFunc) = RFC_OK Then

        If SAP.RfcGetTable(hFunc, "CONNECTED_SYSTEMS", hTable) = RFC_OK Then

          rc = SAP.RfcGetRowCount(hTable, RowCount)

          rc = SAP.RfcMoveToFirstRow(hTable)

          For i = 1 To RowCount

            Row = SAP.RfcGetCurrentRow(hTable)

            rc = SAP.RfcGetChars(Row, "LUNAME", charBuffer, 128)

            strText = strText & Trim(charBuffer) & " "

            rc = SAP.RfcGetChars(Row, "TPNAME", charBuffer, 128)

            strText = strText & Trim(charBuffer) & " "

            rc = SAP.RfcGetChars(Row, "ADDR1", charBuffer, 16)

            strText = strText & Trim(charBuffer) & vbCrLf

            If i < RowCount Then

              rc = SAP.RfcMoveToNextRow(hTable)

            End If

          Next

        End If

      End If



      rc = SAP.RfcDestroyFunction(hFunc)

      rc = SAP.RfcCloseConnection(hRFC)

      Set SAP = Nothing



      ReadConSys = strText



    End Function



  '-Sub Main------------------------------------------------------------

    Sub Main()

      MsgBox ReadConSys("NSP", "00", "001", "RFC", "secret")

    End Sub



  '-Main----------------------------------------------------------------

    Main()



'-End-------------------------------------------------------------------

You can easily concatenate the systems you want and store the result in a text or csv file.