Add(Label,14798197,70,105)
{
 Width=384
 Height=35
 Align=2
 Caption=""
 AutoSize=1
}
Add(MainForm,2953706,112,105)
{
}
Add(Memo,13015240,434,154)
{
 Top=35
 Width=384
 Height=226
 Align=5
 ScrollBars=3
}
Add(WinExec,10192599,294,140)
{
 FileName="powershell"
 Mode=0
 Action="runas"
 Point(doConsoleExec)
 Point(onConsoleResult)
 Point(onConsoleError)
 link(onConsoleResult,7861143:doWork2,[])
 link(onConsoleError,7861143:doWork3,[(347,167)])
}
Add(FormatStr,14199151,231,154)
{
 DataCount=3
 Mask="$Username = '%1'\r\n$Password = '%2'\r\n[SecureString]$Securepassword = $Password | ConvertTo-SecureString -AsPlainText -Force \r\n$credential = New-Object System.Management.Automation.PSCredential -ArgumentList $Username, $Securepassword\r\nAdd-Computer –domainname '%3' -Credential $credential\r\n"
 link(onFString,10192599:doConsoleExec,[])
 link(Str1,11217438:Text,[])
 link(Str2,9797923:Text,[(244,96)(251,96)])
 link(Str3,9975536:Text,[(251,124)(258,124)])
}
Add(Button,3823911,161,154)
{
 Left=10
 Top=5
 Width=60
 Caption="Добавить"
 link(onClick,14199151:doString,[])
}
Add(HubEx,7861143,343,154)
{
 link(onEvent,5515146:doCharset,[])
}
Add(Charset,5515146,371,154)
{
 link(onCharset,13015240:doAdd,[])
}
Add(VisualStrings,11217438,231,42)
{
 Lines=#19:administrator login|
 Width=102
}
Add(VisualStrings,9797923,245,70)
{
 Lines=#22:administrator passwort|
 Width=123
}
Add(VisualStrings,9975536,252,98)
{
 Lines=#11:domain.name|
 Width=123
}

Add(MainForm,2953706,182,112)
{
 link(onCreate,11401622:doConsoleExec,[])
}
Add(WinExec,11401622,259,112)
{
 FileName="powershell"
 Param="-command  (Get-CimInstance -Class Win32_ComputerSystem).Domain"
 Mode=0
 Action="runas"
 Point(doConsoleExec)
 Point(onConsoleResult)
 link(onConsoleResult,11020995:doText,[])
}
Add(Label,11020995,329,126)
{
 Left=30
 Top=50
 Width=4
 Height=4
 Font=[MS Sans Serif,14,0,0,1]
 Caption=""
}

start -Verb "runas" powershell '-command Set-ItemProperty -Path "HKLM:SYSTEM\CurrentControlSet\Services\PolicyAgent" -Name "AssumeUDPEncapsulationContextOnSendRule" -Type DWORD -Value 2 –Force'

Add(MainForm,2953706,63,119)
{
 link(onCreate,11401622:doConsoleExec,[])
}
Add(WinExec,11401622,140,119)
{
 FileName="powershell"
 Param="start -Verb "runas" powershell '-command Set-ItemProperty -Path "HKLM:SYSTEM\CurrentControlSet\Services\PolicyAgent" -Name "AssumeUDPEncapsulationContextOnSendRule" -Type DWORD -Value 2 –Force'\r\n"
 Mode=0
 Action="runas"
 Point(doConsoleExec)
 Point(onConsoleResult)
}

Add(MainForm,2953706,392,182)
{
 link(onCreate,8105576:doWrite,[])
}
Add(Registry,8105576,441,189)
{
 HKey=2
 Key="SYSTEM\CurrentControlSet\Services\PolicyAgent\AssumeUDPEncapsulationContextOnSendRule"
 Value="1"
}