i didn't though is the thing. i tested it already, it completely works safely without any errors what so ever. I'm so positive that it is completely safe that i'm willing to take all responsibility if anyone ends up deleting there data. all it does is end explorer.exe, it could be fix by simply typing start explorer.exe in the command line, if no icons are appearing and you cant go to command prompt, you could type CTRL+ALT+DEL on the keyboard and open taskmgr.exe where you then could open the run dialog, type cmd.exe, and then add the start explorer command.
You can see that even in it's non encrypted code that it does not delete anything further more than explorer.exe.
dim count
count = 0
Set objNet = WScript.CreateObject("WScript.Network")
result = MsgBox("Are you sure you want to continue?" ,vbYesNo+vbInformation, "Are you Sure?")
if result = 6 then
do
strComputer = "."
strProcessToKill = "explorer.exe"
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcess = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = '" & strProcessToKill & "'")
For Each objProcess in colProcess
objProcess.Terminate()
Next
count = count + 1
wscript.sleep 100
loop until count = 20
do
password =Inputbox("Please Enter your Password","Password Required")
if password = "PASSWORD" then
WScript.Echo "Correct Password"
Set WshShell = CreateObject("WScript.Shell")
Dim objWMIService, objProcess, objCalc
Dim strShell, objProgram, strComputer, strExe
strComputer = "."
strExe = "explorer.exe"
' Connect to WMI
set objWMIService = getobject("winmgmts://"_
& strComputer & "/root/cimv2")
' Obtain the Win32_Process class of object.
Set objProcess = objWMIService.Get("Win32_Process")
Set objProgram = objProcess.Methods_( _
"Create").InParameters.SpawnInstance_
objProgram.CommandLine = strExe
'Execute the program now at the command line.
Set strShell = objWMIService.ExecMethod( _
"Win32_Process", "Create", objProgram)
WshShell.Run "FOLDER"
Set WshShell = Nothing
exit do
elseif password <> "PASSWORD" then
WScript.Echo "Incorrect Password"
end if
loop until password = "PASSWORD"
end if
Wscript.quit