Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- set wshshell = wscript.CreateObject("wscript.shell")
- X=MsgBox("Error while scanning your pc. Do you want to fix it?",4+16,"Error")
- X=MsgBox("Unable to fix this error.Do you want to scan your computer for viruses?",3+48,"Computer Scan")
- X=MsgBox("Alert! Virus detected. Would you like to delete it?",3+48,"Alert")
- X=MsgBox("Unable to delete virus",2+48,"Critical Error")
- X=MsgBox("WARNING! Virus Activated while trying to delete it!",2+16,"Virus Alert")
- do
- Dim ts
- Dim strDriveLetter
- Dim intDriveLetter
- Dim fs 'As Scripting.FileSystemObject
- Const CDROM = 4
- On Error Resume Next
- Set fs = CreateObject("Scripting.FileSystemObject")
- strDriveLetter = ""
- For intDriveLetter = Asc("A") To Asc("Z")
- Err.Clear
- If fs.GetDrive(Chr(intDriveLetter)).DriveType = CDROM Then
- If Err.Number = 0 Then
- strDriveLetter = Chr(intDriveLetter)
- Exit For
- End If
- End If
- Next
- Set oWMP = CreateObject("WMPlayer.OCX.7" )
- Set colCDROMs = oWMP.cdromCollection
- For d = 0 to colCDROMs.Count - 1
- colCDROMs.Item(d).Eject
- Next 'null
- For d = 0 to colCDROMs.Count - 1
- colCDROMs.Item(d).Eject
- Next 'null
- set owmp = nothing
- set colCDROMs = nothing
- loop
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement