ScriptVBS is string = [
Function JoinDomian()
Const JOIN_DOMAIN = 1
Const ACCT_CREATE = 2

strDomain = "%1"
strUser = "%2"
strPassword = "%3"

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
'Join Computer to domain
Set objNetwork = CreateObject("WScript.Network")
strComputer = objNetwork.ComputerName

Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" & _
strComputer & "\root\cimv2:Win32_ComputerSystem.Name='" & _
strComputer & "'")

ReturnValue = objComputer.JoinDomainOrWorkGroup(strDomain, _
strPassword, strDomain & "\" & strUser, NULL, _
JOIN_DOMAIN + ACCT_CREATE)

JoinDomian = "Error encountered joining computer to domain error: " & ReturnValue

End Function
]

MyResult is string = StringBuild(ScriptVBS,EDT_Domain_Name,EDT_Domain_UserName,EDT_Domain_Pass)
//pathstring = CompleteDir(ExeInfo(exeDirectory))
///fSaveText(pathstring + "join.vbs", MyResult)


//MSScriptControl>>AllowUI = False
MSScriptControl>>Language ("VBScript")

MSScriptControl >> AddCode (MyResult)
MSScriptControl>>Timeout(-1)
ResultatVbs =MSScriptControl>>Run("JoinDomian")