Yahoo Answers is shutting down on May 4th, 2021 (Eastern Time) and beginning April 20th, 2021 (Eastern Time) the Yahoo Answers website will be in read-only mode. There will be no changes to other Yahoo properties or services, or your Yahoo account. You can find more information about the Yahoo Answers shutdown and how to download your data on this help page.

Need a Visual Basic Script editor Nar.vbs?

I've got a program that bestowed itself upon my PC via a friends flash drive. I do not keep my anti-virus all the time running but this seems to be a fairly harmless file. Google Search Nar.vbs and it's anarchy... lol

Anyway, a "TXT" only document version of the source code is on my site. Not very Programmer Savvy but I could use some tips, I want to reverse engineer this piece of crap to get rid of all the traces of it. Thanks!

http://www.itjournal-stevekline.com/nar.txt

Good Luck! Respond back with Source code modified to remove! Thanks much!

Oh... and No stupid "Answers" stating, try this and try that... I don't know the code that great and I am not practicing YOUR theory!

Update:

It's a false positive virus, it's just annoying. There's no risk being exploited by it running, it's the behavior of a virus that trips the anti-virus program to believe it IS a virus. Savvy?

1 Answer

Relevance
  • 1 decade ago
    Favorite Answer

    You can use this script to remove autorun.inf from all drives

    =============================================

    Dim fso

    Dim disk_drive

    Dim Malware_File

    Dim I

    Dim ArrayFile(10)

    ArrayFile(0) = "autorun.inf"

    ArrayFile(1) = "nar.vbs"

    ArrayFile(2) = "run.exe"

    ArrayFile(3) = "windows.scr"

    ArrayFile(4) = "window.scr"

    ArrayFile(5) = "auto.exe"

    Set fso = CreateObject("Scripting.FileSystemObject")

    for each disk_Drive in fso.drives

    If (disk_Drive.drivetype = 1 or disk_Drive.drivetype = 2) Then

    For I = 0 To 5

    If fso.FileExists( disk_Drive.path & "\" & ArrayFile(I) ) Then

    set Malware_File=fso.GetFile(disk_Drive.path & "\" & ArrayFile(I) )

    Malware_File.attributes = 32

    Malware_File.delete

    End if

    Next

    end if

    next

    ===============================================

Still have questions? Get your answers by asking now.