Este agente realiza una busqueda de todas las bbdd´s que hay en el
servidor.
Sub Initialize
Dim based As NotesDatabase
Dim session As New NotesSession
Dim directory As NotesDbDirectory
Dim servidor As String, linea As String, nombd As String
Dim fech_modif As Variant
Dim filenumwr As Integer
Dim nomlogic As String
Dim i As Integer, j As Integer, k As Integer
Dim fich_out As String
Dim inicio As String
Dim size As Double
On Error Resume Next
' ---------------------- CONFIGURACIONES -----------------------------
------------------
' tocar aqui la configuracion del script
fich_out="D:\BBDD_Fichero.txt" ' El fichero de salida
' --------------------- INICIO DEL PROGRAMA -------------------------
------------------
If Dir(fich_out) <> "" Then
Msgbox "El fichero "+fich_out+" ya existe. Eliminélo o
renombrélo.",16,"Error"
Exit Sub
End If
servidor = Inputbox(" Introduce el servidor ... ","Servidor")
'introduzco el nombre del servidor de destino
' abro los ficheros de texto
filenumwr=Freefile()
Open fich_out For Output As filenumwr
Print
#filenumwr,"---------------------------------------------------------------
--------------------------------------------------------"
Print #filenumwr," "
Print #filenumwr,Date$+" "+Time$+" Listado del servidor:
"+servidor
Print #filenumwr," "
Print #filenumwr," "
Set directory = New NotesDbDirectory(servidor )
Set based = directory.GetFirstDatabase( DATABASE ) ' selecciono
ficheros de tipo DATABASE
While Not (based Is Nothing)
Print "Database: "+based.FilePath
If Ucase( Left(based.FilePath,5) )<>"MAIL\" Then ' diferencio
entre aplics y buzones de correo
' es una aplicacion
Call based.Open("","")
If based.IsOpen Then
size=based.Size
fech_modif=based.LastModified
Print #filenumwr,based.FilePath+";"+based.Title+";
"+Cstr(Round(size/1048576,2))+"
Mb"+";"+Left(Cstr(fech_modif),10)+";"+based.DesignTemplateName
Else
Print #filenumwr,based.FilePath+"
"+based.Title+" "+" ERROR: NO TENEMOS ACCESO PARA
ESTA BASE DE DATOS"
End If
Else
' es un buzon de correo
Print #filenumwr,based.FilePath+";"+based.Title
End If
Set based= directory.GetNextDatabase
Wend
Close filenumwr
End Sub
|
Otros documentos de LotusScript
|