Geek Answers Handbook

Is this a REALLY activex control?

I have a pretty simple code block.

Sub Run(Name)
on error resume next
Set objShell = CreateObject("WScript.Shell")
if Err.Number = 429 then
    alert("Invalid Security Level.")
    exit sub
end if
objShell.Run Name
if Err.Number <> 0 then
    Alert("Please verify your Operating System Choice")
end if
Set objShell = Nothing 
End Sub

I use this with links on a website to allow the user to defragment their hard drive with:

<a href="#" onclick="Run('c:\\windows\\system32\\dfrgui.exe')">Defrag Windows Vista</a><br>
<a href="#" onclick="Run('c:\\windows\\system32\\dfrg.msc')">Defrag Windows Server 2003 SE or Windows XP</a>

As you can probably guess .. using:

Set objShell = CreateObject("WScript.Shell")

It is the cause of some problem, and it throws an error that the object could not be created. I can go to IE security and change the security settings for

"Initialize and ActiveX script controls are not marked as script-safe"

in the “Hint”, and it will actually tell me and will start when I click “Yes”.

My question at this point is:

, asp (htm page w/no code). 20 vbscript htm?

.. , DOES, SSL. - ?

, , , ...

" , "

" , "

, , .

+3
1

. "WScript.Shell", IE , . "". . "WScript.Shell", .

ActiveX, " ", .

+6

More articles: