Break on
$Ret = SetOption("Explicit", "on")
; ---------------------------------------------------------------------------------------------------------------------
; Search Lotus Notes directory 
; ---------------------------------------------------------------------------------------------------------------------
Function LookupShortname($Shortname)
    Dim $db ; As NotesDatabase
    Dim $mynotesdir ;As NotesDirectory
   
    $mynotesdir  = $oNotesSession.getDirectory("<IP of my Notes Server>")
   
    Dim $homeserver ; As Variant
    Dim $Type
    Dim $Mail   
    $homeserver =  $mynotesdir.GetMailInfo($Shortname, True)
    ? "error returned : " @error @serror
    => I get 0 / success
    $Type = VarType($homeserver)
    => I get 8200 (Array of string)
    ? "Mail Server: " + Cstr($homeserver[0])
    => ERROR : Error in expression: this type of array not supported in expressions.!
Script: I:\Scripting\LnConfigRepair\V 0.75\Addressbook.kix
Line  : 18
    ? "Build Number: " + Cstr($homeserver[1])
    ? "Domino Version: " + Cstr($homeserver[2])
    ? "Mailfile: " 	+ Cstr($homeserver[3])
    ? "Short Name: " + Cstr(homeserver[4])
    ? "MailDomain: " + Cstr(homeserver[5])
    ? "Username: " + Cstr(homeserver[6])
    ? "internetMailAddress: " + Cstr[homeserver(7])
    ? "Out of Office: " + Cstr(homeserver[8])
EndFunction
Global $oNotesSession
Dim $Ret
Dim $Shortname
$Shortname = "sblaettl"
;
$oNotesSession = CreateObject("Notes.NotesSession")
$Ret = LookupShortname($Shortname)

Do While Not fDoc Is Nothing
	ReDim Preserve fUNID(i)
	fUNID(i) = fDoc.UniversalID
						
	Set arrItem = fDoc.GetFirstItem("LastName")
	arrName = arrItem.Text
         wscript.echo arrName
 
	Set fDoc = notesView.GetNextdocument(fDoc)
	i=i+1
Loop

    $stream_object = createobject("ADODB.Stream")
    $RC = $stream_object.open
    $stream_object.type = 2
    $stream_object.charset = "iso-8859-1"
    $RC = $stream_object.write($string)
    $stream_object.position = 0
    $stream_object.type = 1
    $stream_object.position = 0
    $string = $stream_object.read

Function LookupShortname($Shortname)
  Dim $db ; As NotesDatabase
  Dim $mynotesdir ;As NotesDirectory
     
  $mynotesdir = $oNotesSession.getDirectory("Servername")
     
  Dim $homeserver ; As Variant
  Dim $Type
  Dim $Mail
  Dim $stream_object
  Dim $RC
  Dim $String
  
  $homeserver = $mynotesdir.GetMailInfo($Shortname, True)
  $stream_object = CreateObject("ADODB.Stream")
  $RC = $stream_object.open
  $stream_object.type = 1 ; Set input data to binary I hope...
  $RC = $stream_object.write($homeserver)
=> here I get COM exception error "write" (ADODB.Stream - Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.) [-2147352567/80020009]
  $stream_object.position = 0
  $stream_object.charset = "iso-8859-1"
  $stream_object.type = 2
  $stream_object.position = 0
  $string = $stream_object.read
  ? $string
EndFunction