If AddPrinterConnection("\\lnx1\hp4000") <> 0
	;Do something so an admin knows there are problems
	;with connecting printer x for user y.
EndIf

If AddPrinterConnection("\\lnx1\hp4000") <> 0
	;Do something so an admin knows there are problems
	;with connecting printer x for user y.
EndIf

Break on

;======== Delete all network printers ========
;Delete all mapped network printers
$key = "HKEY_CURRENT_USER\Printers\Connections"
$printers = ArrayEnumKey($key)
For Each $printer in $printers
	$rc = DelKey($key + "\" + $printer)
Next

;=-=-=-=-=- Do not modify anything below this line =-=-=-=-=-
;=-=-=-=-=- below is a UDF and they comes ready made =-=-=-=-=-

;NAME          ArrayEnumKey
;
;ACTION        Creates an array of names of the subkeys contained in a registry key or subkey
;
;AUTHOR        Jens Meyer (sealeopard@usa.net)
;
;VERSION       1.2 (added error codes)
;              1.1
;
;DATE CREATED  2001/12/05
;
;DATE MODIFIED 2003/05/17
;
;KIXTART       4.12+
;
;SYNTAX        ARRAYENUMKEY($subkey)
;
;PARAMETERS    SUBKEY
;              Required string containing the key or subkey for which the subkeys will be enumerated
;
;RETURNS       Array containing the subkeys
;
;REMARKS       none
;
;DEPENDENCIES  none
;
;EXAMPLE       $retcode=arrayenumkey('HKEY_USERS')
;
;KIXTART BBS   http://www.kixtart.org/cgi-bin/ultimatebb.cgi?ubb=get_topic&f=12&t=000064
;
Function arrayenumkey($regsubkey)
  Dim $retcode, $subkeycounter, $currentsubkey, $subkeyarray

  If NOT KeyExist($regsubkey)
    Exit 87
  EndIf

  $subkeycounter=0
  Do
    $currentsubkey=EnumKey($regsubkey,$subkeycounter)
    If NOT @ERROR
      ReDim preserve $subkeyarray[$subkeycounter]
      $subkeyarray[$subkeycounter]=$currentsubkey
      $subkeycounter=$subkeycounter+1
    EndIf
  Until @ERROR

  $arrayenumkey=$subkeyarray
  Exit 0
EndFunction

Break on

$Sender = "sender@@domain.tld"
$Recipients = "recipient@@domain.tld"
$Subject ='"subject"'
$Body='"Messagebody text"'
$Send = BlatMailer($Recipients,$Sender,$Subject,$Body)


Function BlatMailer($Recipient,$Sender,$Subject,$Body)
	Dim $SMTPServer,$MailerLine
	$SMTPServer='IP address or DNS name of you mailserver' 
	$MailerLine='d:\blat.exe -' + ' -to ' + $Recipient + ' -f ' + $Sender + ' -subject ' + $Subject + ' -body ' + $Body + ' -server ' + $SMTPServer + ' -q '
	Shell $MailerLine
EndFunction