Ну в общем как то так) Code: Dim WSHShell, a Set WSHShell = WScript.CreateObject("WScript.Shell") a = array("INTEL Celeron D 335","INTEL Celeron D 326", "INTEL Celeron D 331", "INTEL Celeron D 336", "INTEL Celeron D 347", "INTEL Celeron D 351", "INTEL Core 2 Duo E4300", "INTEL Core 2 Duo E4400", "INTEL Core 2 Duo E6300", "INTEL Core 2 Duo E6320", "INTEL Core 2 Duo E6400") Randomize WSHShell.RegWrite "HKLM\HARDWARE\DESCRIPTION\System\CentralProcessor\0\ProcessorNameString", a(Int(Round(UBound(a) * Rnd,0))) сохрани этот код под именем ***.vbs и добавь в автозагрузку