Den irriterande CD-enheten viruset (1 / 3 steg)
Steg 1: Steg 1: kopiera och klistra in i anteckningar
För det första, gå vidare och kopiera och klistra in detta i anteckningar.
##############################################################
göra
Dim ts
Dim strDriveLetter
Dim intDriveLetter
Dim fs ' som Scripting.FileSystemObject
CONST CDROM = 4
På fel återupptas nästa
Ställa in fs = CreateObjectScripting.FileSystemObject("")
strDriveLetter = ""
För intDriveLetter = Asc("A") till Asc("Z")
Err.Clear
Om fs. GetDrive(Chr(intDriveLetter)). DriveType = CDROM då
Om Err.Number = 0 då
strDriveLetter = Chr(intDriveLetter)
Utgång för
Slut om
Slut om
Nästa
Ange oWMP = CreateObject ("WMPlayer.OCX.7")
Ange colCDROMs = oWMP.cdromCollection
För d = 0 till colCDROMs.Count - 1
colCDROMs.Item(d). Mata ut
Nästa "null
För d = 0 till colCDROMs.Count - 1
colCDROMs.Item(d). Mata ut
Nästa "null
Ange owmp = ingenting
Ange colCDROMs = ingenting
loop
####################################################################
Vill du veta vad dessa kommandon betyder, fråga mig inte. Jag vet inte så mycket om kodning och sådant, bara grundläggande fakta. I själva verket lämna i kommentarerna nedan om du vill veta dessa grundläggande kommandon för en Windows Batch-fil.