Welcome to the Forums

jhulme

Feel free to post new Questions or Discussions.

AChernyshev

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) .

AChernyshev

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

AChernyshev

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