Dim g, HT ,pf , Backups ,B
Set Wshshell = Wscript.CreateObject("Wscript.shell")
Set Fso = Wscript.CreateObject("Scripting.FileSystemObject")
pf = Wshshell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Micr osoft\Windows\CurrentVersion\ProgramFilesDir")
If Not fso.FolderExists(pf & "\" & "Hijackthis") then
fso.CreateFolder(pf & "\" & "Hijackthis")
End IF
HT=Wshshell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\M icrosoft\Windows\CurrentVersion\App Paths\HijackThis.exe\")
If not fso.FileExists(HT) Then
MsgBox "Hijackthis.exe not found!"
Wscript.quit
End IF
B = InstrRev(HT, "\")
B = Mid(HT,1,B)
Backups = B & "\" & "backups"
Set g = Fso.GetFile(HT)
HT = g.ShortPath
fso.movefile HT , pf & "\" & "Hijackthis\"
If fso.FolderExists(Backups) then fso.MoveFolder Backups, pf & "\" & "Hijackthis\"
Wshshell.Run Chr(34) & pf & "\" & "Hijackthis\hijackthis.exe" & Chr(34)
Set Wshshell = nothing
Set fso = nothing
Set g = nothing