›

Welcome to the Forums

jhulmejhulme Posts: 5 mod
edited November 2016 in General

Feel free to post new Questions or Discussions.

Comments

  • AChernyshevAChernyshev Posts: 3 Newbie

    Good day all.
    post upgrade from 7.4.2.2 to 7.4.11 AWE workflow does not work anymore.
    bottom line need users report for a site (or server wide, including site name as column) would like to add account state (enabled, disabled, inherited and settings level as well) .

  • AChernyshevAChernyshev Posts: 3 Newbie

    Good day all.
    post upgrade from 7.4.2.2 to 7.4.11 AWE workflow does not work anymore.

    bottom line need users report for a site (or server wide, including site name as column) would like to add account state (enabled, disabled, inherited and settings level as well) .























    Sub Main
    oServer = CreateObject("SFTPCOMInterface.CIServer")
    oServer.Connect( strHostAddress,iPort,strAdminUserName,strAdminPassword )
    oSites = oServer.Sites()
    End Sub


    Sub Main
    oSite = oSites.Item( iSite )
    End Sub


    Sub Main
    arUsers = oSite.GetUsers
    End Sub




    %arUsers(iUser)%
    Sub Main
    oUserSettings = oSite.GetUserSettings(oUser)
    End Sub

    %oUserSettings.Email%
    %oUserSettings.FullName%
    %oUserSettings.LastConnectionTime%
    %oUserSettings.GetHomeDirString%
    %oSite.GetPhysicalPath(oUserHomeDirString)%
    %SERVER_LOG_LOCATION%\sftp.msnet.ca_users_list_%EVENT_DATESTAMP%_%EVENT_TIMESTAMP%.csv
    %oUser%,%oUserEmailAddress%,%oUserFullName%,%oUserLastLogin%,%oUserHomeDirString%,%oUserPhyHomeDir%


    Sub Main
    oServer.Close()
    End Sub

  • AChernyshevAChernyshev Posts: 3 Newbie

    Good day all.
    post upgrade from 7.4.2.2 to 7.4.11 AWE workflow does not work anymore.
    bottom line need users report for a site (or server wide, including site name as column) would like to add account state (enabled, disabled, inherited and settings level as well) .























    Sub Main
    oServer = CreateObject("SFTPCOMInterface.CIServer")
    oServer.Connect( strHostAddress,iPort,strAdminUserName,strAdminPassword )
    oSites = oServer.Sites()
    End Sub


    Sub Main
    oSite = oSites.Item( iSite )
    End Sub


    Sub Main
    arUsers = oSite.GetUsers
    End Sub




    %arUsers(iUser)%
    Sub Main
    oUserSettings = oSite.GetUserSettings(oUser)
    End Sub

    %oUserSettings.Email%
    %oUserSettings.FullName%
    %oUserSettings.LastConnectionTime%
    %oUserSettings.GetHomeDirString%
    %oSite.GetPhysicalPath(oUserHomeDirString)%
    %SERVER_LOG_LOCATION%\sftp.msnet.ca_users_list_%EVENT_DATESTAMP%_%EVENT_TIMESTAMP%.csv
    %oUser%,%oUserEmailAddress%,%oUserFullName%,%oUserLastLogin%,%oUserHomeDirString%,%oUserPhyHomeDir%


    Sub Main
    oServer.Close()
    End Sub

Sign In or Register to comment.