A demoban használt karantén script Sub EnableAccess On Error Resume Next WScript.Echo
{"Image DocumentName": "A demoban haszn\u00e1lt karant\u00e9n script", "Image ImageDescription": "Sub EnableAccess. On Error Resume Next. WScript.Echo VPN hozz\u00e1f\u00e9r\u00e9s enged\u00e9lyezve. sRun = GetRQCPath & TITOK MsgBox DEMO: Kattints az rqc.exe futtat\u00e1s\u00e1hoz! & _ vbCRLF & sRun. Set oSH = WScript.CreateObject( WScript.Shell ) nRetVal = oSH.Run(sRun, 0, True) If Err.Number <> 0 Then. WScript.Echo Bels\u00f6 hiba: & Err.Description. End If. If nRetVal = 0 Then. WScript.Echo Karant\u00e9n feloldva. Else. WScript.Echo Karant\u00e9n felold\u00e1sa sikertelen, hiba: & _ nRetVal. MsgBox DEMO: Kattints a kil\u00e9p\u00e9shez! End Sub. 4. oldal (folyt. k\u00f6v.)", "Image XResolution": "37", "Image YResolution": "37", "Image ResolutionUnit": "Pixels/Centimeter", "Image Software": "SlidePlayer", "Image YCbCrPositioning": "Centered"}