messagebox(ReadNC(%computername%),"")
Function ReadNC( ServerName )
  $ReadNC = ""
  $Root = GetObject( "LDAP://" + ServerName + "/rootDSE" )
  If @ERROR = 0
     $ReadNC = $Root.defaultNamingContext
  Endif
EndFunction

Set $objItem = GetObject("LDAP://***Distinguised User Name***")
$msExchHomeServerName = $objItem.msExchHomeServerName
$EmailServer = Right($msExchHomeServerName,Len($msExchHomeServerName) - InstrRev($msExchHomeServerName,"="))
MessageBox($EmailServer,"")

Function ReadNC($ServerName)
  Dim $Root
  $Root = GetObject( "LDAP://" + $ServerName + "/rootDSE" )
  If @ERROR = 0
     $ReadNC = $Root.defaultNamingContext
  Endif
EndFunction

Function ReadNC()
  Dim $Root
  $Root = GetObject("LDAP://rootDSE" )
  If @ERROR = 0
     $ReadNC = $root.get("DefaultNamingContext")
  Endif
EndFunction

On Error Resume Next
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\MyFile.txt",2,True)
objFile.Write "The contents of MyFile.txt"
objFile.Close

IF Open( 3 , "C:\TEMP\LOG.TXT" , 5 )  = 0
   $x = WriteLine( 3 , "KiXtart started at " +  @TIME + @CRLF
ELSE
   BEEP
   ? "failed to open file, error code : [" + @ERROR + "]"
ENDIF

$objFSO = CreateObject("Scripting.FileSystemObject")
$objFile = $objFSO.OpenTextFile("C:\MyFile.txt",2,True)
$objFile.Write("The contents of MyFile.txt")
$objFile.Close

Do While True
	LoopCount = LoopCount + 1
	MsgBox(LoopCount)
	If LoopCount = 5 Then
		Exit Do
	End If
Loop
MsgBox("Final Loop Count: " & LoopCount)

Do
	$LoopCount = $LoopCount + 1
	MessageBox($LoopCount,"")
	If $LoopCount = 5
		Exit Do
	EndIf
Until 0
MessageBox("Final Loop Count: " + $LoopCount,"")

$i="abcdefghigklmnopqrstuvwxyz"
while $i and $found=0
  $j=left($i,1)
  $i=right($i,-1)
  if $j = "n"
    $found=1
  endif
loop

Do
	$LoopCount = $LoopCount + 1
	MessageBox($LoopCount,"")
	;If $LoopCount = 5
	;	Exit Do
	;EndIf
Until $LoopCount=5
MessageBox("Final Loop Count: " + $LoopCount,"")

Do
	$LoopCount = $LoopCount + 1
	$NoOutput = MessageBox($LoopCount,"")
	If $LoopCount = 5
		$ExitLoop = True
	EndIf
Until $ExitLoop
$NoOutput = MessageBox("Final Loop Count: " + $LoopCount,"")

; Permanent loop
While "True"
	$i=$i+1
	"Counter is now "+$i+@CRLF
	; Bail at counter=5
	If $i=5
		"Bailing..."+@CRLF
		GoTo BailOut
	EndIf
Loop

:BailOut
"Loop done."+@CRLF

; permanent loop with conditional exit
$Tag = 1
While $Tag     ; Loop forever while Tag is true
  ; do stuff here...
  If <EXIT CONDITION TEST>  ; if some condition exists where we should exit
    $Tag = 0
  EndIf
Loop

$Tag = 1
While $Tag     ; Loop forever while Tag is true
  ; do stuff here that should happen on every loop...
  If <EXIT CONDITION TEST>  ; if some condition exists where we should exit
    $Tag = 0
  EndIf
  ; do MORE stuff here that depends on the stuff earlier in the loop, but needs to not happen after the tag to exit the loop has been triggered.
Loop

$exitloop=true
? $exitloop
$exitloop=false
? $exitloop
$exitloop=foobar
? $exitloop

function true()
  $true=not 0
endfunction

function false()
  $false=not 1
endfunction

$Tag = 1
While $Tag
  ; always do this stuff...
  If <EXIT CONDITION TEST> ; put your test here!
    $Tag = 0
  Else
    ; do this stuff unless we've been terminated
  EndIf
Loop