ChVL
Это решаемо с помощью скрипта. Например Autoit.
Код:
$i=1
Do
$var = RegEnumKey("HKU", $i)
If @error <> 0 Then ExitLoop
$RegExp = "S-1-5-21-.*"
$vResult = StringRegExp($var,$RegExp)
Select
Case @Error = 1
; Error. Flag is bad. $vResult = ""
Case @Error = 2
; Error. The pattern was invalid. $vResult = position in $sPattern where error occurred.
Case @Error = 0
if @Extended Then
;Вот тут и прописываешь усе что надоть!
$rez = RegWrite("HKEY_USERS\" & $var & "\Software\CNS\","Registrant","REG_SZ","ORVT")
$rez = RegWrite("HKEY_USERS\" & $var & "\Software\CNS\","LicenseKey","REG_SZ","N┌!╬_zS╨~╟jkf╘╖ф-_s╠y`1+x~└+T$ ")
$rez = RegWrite("HKEY_USERS\" & $var & "\Software\CNS\","CRC","REG_SZ","_")
$rez = RegWrite("HKEY_USERS\" & $var & "\Software\Microsoft\Windows\CurrentVersion\Run\MNS","C:\\Program Files\\Mobile Net Switch","REG_SZ","MNS.EXE")
Else
; Failure. Pattern not matched. $vResult = "" or false (0), depending on flag.
EndIf
EndSelect
$i+=1
Until NOT $var
