Test Your Vital Security Policy

Code:

Set cf = CreateObject("Scripting.FileSystemObject")
If Not cf.FolderExists("c:/Finjan/") then
flag=cf.CreateFolder("c:/Finjan/")
End if
Set s = CreateObject("Shell.Application")
s.ShellExecute "cmd.exe /k dir C:>c:/Finjan/FinjanVbsDemo.txt"

Test Name:	Remote Code Execution (RCE) Demo
Security Status:	You are safe

Details: Our test indicates that your Web Security policy blocked malicious content from entering your network