; FILE: CreateUserListSpreadSheet
; CREATED: 13 OCT 2004 GTH
; PURPOSE: List the users of a site and create an excel spreadsheet.
;
$SFTPServer = CreateObject("SFTPCOMInterface.CIServer")
$CRLF = Chr(13)+Chr(10)
$txtServer = "192.168.134.142"
$txtPort = "1000"
$txtUserName = "admin"
$txtPassword = "admin"
$SFTPServer.Connect($txtServer, $txtPort, $txtUserName, $txtPassword)
If @ERROR <> 0
? "Error connecting to '"+$txtServer+":"+$txtPort+"' -- "@SERROR+" ["+CStr(@ERROR)+"]"
Exit 255
Else
? "Connected to " + $txtServer
EndIf
$Sites = $SFTPServer.Sites
$oExcel = CreateObject("Excel.Application")
$oExcel.visible = 1
$oWorkbook = $oExcel.Workbooks.Add
For $i=0 To $SFTPServer.Sites.Count-1
$theSite = $Sites.Item($i)
$theSheet = $oWorkbook.Worksheets.add
$theSheet.name = $theSite.Name
$theSheet.Cells(1, 1) = "Users:"
$arUsers = $theSite.GetUsers()
For $j=0 To UBound($arUsers)
$theSheet.Cells(($j+2), 1) = $arUsers($j)
Next
$theSheet.Columns("A:A").EntireColumn.Autofit
Next
$oExcel = ""
$SFTPServer.Close
$theSite = ""
$SFTPServer = ""