Передача команд в CMD

#include <Date.au3>
#include <Array.au3>
;#RequireAdmin

Local $sUserName = "Администратор"
Local $sPassword = ""
Local $sDomain = ""
Local $sCMD = "C:\Windows\System32\cmd.exe"
Local $aArray[1]

;Запуск скрипта от имени Администратора
;RunAs($sUserName, $sDomain, $sPassword, 1, @ScriptFullPath)

$aArrayD = StringSplit(_NowDate(),"")
$aArrayT = StringSplit(_NowTime(),"")
;_ArrayDisplay($aArrayD)
;_ArrayDisplay($aArrayT)

$aArray[0] = (($aArrayD[1] & $aArrayD[2]) + ($aArrayT[3] & $aArrayT[4]))
$Result = _ArrayToString($aArray)
;MsgBox(0,"",$Result)

;Запуск CMD от имени Администратора
RunAs($sUserName, $sDomain, $sPassword, 0, $sCMD)
Sleep(200)
Send("net user " & "123 " & $Result)
Send ("{ENTER}")

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.14.2
 Author:         myName

 Script Function:
	Template AutoIt script.

#ce ----------------------------------------------------------------------------
;Script Start - Add your code below here
#include <Date.au3>
#include <Array.au3>
#NoTrayIcon

Local $sUserName = "Администратор"
Local $sPassword = ""
Local $sDomain = ""
Local $sCMD = "C:\Windows\System32\cmd.exe"
Local $aArray[1]

$aArrayDate = StringSplit(_NowDate(),"")
$aArrayTime = StringSplit(_NowTime(),"")
;_ArrayDisplay($aArrayDate)
;_ArrayDisplay($aArrayTime)

$aArray[0] = (($aArrayDate[1] & $aArrayDate[2]) + ($aArrayTime[3] & $aArrayTime[4]))
$sResult = _ArrayToString($aArray)
MsgBox(0,"",$sResult)

RunAs($sUserName, $sDomain, $sPassword, 0, @ComSpec & " /c " & "net user " & "123 " & $sResult)

#RequireAdmin
#include <Date.au3>
#include <Array.au3>
#NoTrayIcon

Local $aArray[1]

$aArrayDate = StringSplit(_NowDate(),"")
$aArrayTime = StringSplit(_NowTime(),"")

$aArray[0] = (($aArrayDate[1] & $aArrayDate[2]) + ($aArrayTime[3] & $aArrayTime[4]))
$sResult = _ArrayToString($aArray)

Run(@ComSpec & " /c net user 123 " & $sResult)