Func CreateTaskLogonXML($msg, $runargs)
	GUISetCursor(15)    ; hourglass = wait
	Local $args = '', $t
	If Not @Compiled Then
		$args &= @ScriptDir & "\" & 'MyAlarm.au3\"'
	EndIf

	$t = EncodeSpecialCharacters($msg)
	$msg = $t
	$args &= ' "' & $msg & '"'
	$args = ' ' & QuoteRunArgs($runargs, '"') ; 2016-11-23

	Local $taskName = GetNewTaskName()
	$args &= ' "/tn My Alarm\' & $taskName & '"'    ; 2017-01-08

	; Reference: https://msdn.microsoft.com/en-us/library/windows/desktop/aa383609(v=vs.85).aspx
	Local $filspc = $gMyDataPath & "\MyAlarmTask.xml"
	;Const $filspc = "H:\temp\MyAlarmTask.xml"
	Local $fd = FileOpen($filspc, 2) ; overwrite
	FileWriteLine($fd, _
			'<?xml version="1.0" encoding="UTF-16"?>' & @CRLF & _
			'<Task version="1.2" xmlns="http://schemas.microsoft.com/windows/2004/02/mit/task">' & @CRLF & _
			'   <RegistrationInfo>')
	FileWriteLine($fd, '    <Date>' & NowDate() & 'T' & NowTime() & ':00</Date>')
	FileWriteLine($fd, '    <Author>' & @ComputerName & '\' & @UserName & '</Author>')
	FileWriteLine($fd, _
			'  </RegistrationInfo>' & @CRLF & _
			'  <Triggers>' & @CRLF & _
			'    <LogonTrigger>' & @CRLF & _
			'      <Enabled>true</Enabled>')
	FileWriteLine($fd, '      <UserId>' & @ComputerName & '\' & @UserName & '</UserId>')
	FileWriteLine($fd, _
			'    </LogonTrigger>' & @CRLF & _
			'  </Triggers>' & @CRLF & _
			'  <Principals>' & @CRLF & _
			'    <Principal id="Author">')
	FileWriteLine($fd, '      <UserId>' & @ComputerName & '\' & @UserName & '</UserId>')
	FileWriteLine($fd, _
			'      <LogonType>InteractiveToken</LogonType>' & @CRLF & _
			'      <RunLevel>LeastPrivilege</RunLevel>' & @CRLF & _
			'    </Principal>' & @CRLF & _
			'  </Principals>' & @CRLF & _
			'  <Settings>' & @CRLF & _
			'    <MultipleInstancesPolicy>IgnoreNew</MultipleInstancesPolicy>' & @CRLF & _
			'    <DisallowStartIfOnBatteries>true</DisallowStartIfOnBatteries>' & @CRLF & _
			'    <StopIfGoingOnBatteries>true</StopIfGoingOnBatteries>' & @CRLF & _
			'    <AllowHardTerminate>true</AllowHardTerminate>' & @CRLF & _
			'    <StartWhenAvailable>false</StartWhenAvailable>' & @CRLF & _
			'    <RunOnlyIfNetworkAvailable>false</RunOnlyIfNetworkAvailable>' & @CRLF & _
			'    <IdleSettings>' & @CRLF & _
			'      <StopOnIdleEnd>true</StopOnIdleEnd>' & @CRLF & _
			'      <RestartOnIdle>false</RestartOnIdle>' & @CRLF & _
			'    </IdleSettings>' & @CRLF & _
			'    <AllowStartOnDemand>true</AllowStartOnDemand>' & @CRLF & _
			'    <Enabled>true</Enabled>' & @CRLF & _
			'    <Hidden>false</Hidden>' & @CRLF & _
			'    <RunOnlyIfIdle>false</RunOnlyIfIdle>' & @CRLF & _
			'    <WakeToRun>false</WakeToRun>' & @CRLF & _
			'    <ExecutionTimeLimit>P3D</ExecutionTimeLimit>' & @CRLF & _
			'    <Priority>7</Priority>' & @CRLF & _
			'  </Settings>' & @CRLF & _
			'  <Actions Context="Author">' & @CRLF & _
			'    <Exec>')

	Local $pos = StringInStr(@ScriptFullPath, "_")
	$t = StringLeft(@ScriptFullPath, $pos - 1) + ".au3"

	FileWriteLine($fd, '      <Command>"' & @AutoItExe & '"</Command>')
	FileWriteLine($fd, _
			'      <Arguments>"' & $t & '" "' & $msg & '"' & $args & '</Arguments>')
	;      <Arguments>"F:\AutoIt scripts\MyAlarm.au3" "'&$msg&'"'&$args&'</Arguments>')
	FileWriteLine($fd, _
			'    </Exec>' & @CRLF & _
			'  </Actions>' & @CRLF & _
			'</Task>')
	FileClose($fd)
	Local $cml = '/Create /tn "My Alarm\' & $taskName & '" /xml ' & $filspc ; 2017-01-08
	RunSchTasks($cml)
	;	FileDelete($filspc)
	GUISetCursor(0)    ; arrow (default)
EndFunc   ;==>CreateTaskLogonXML