PowerShell:
Код:

$u = [ADSI]"WinNT://$env:computer/$name"
$u.InvokeSet("MaxDisconnectionTime",1)
$u.SetInfo()
vbscript
:
Код:

strAccount = "Пользователь"
Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName
Set objUser = GetObject("WinNT://" & strComputer & "/" & strAccount & ",User")
objUser.MaxDisconnectionTime = 1
objUser.SetInfo