Çözüldü UnKIS.vbs Virüs müdür?
- Konuyu başlatan AAXAA
- Başlangıç Tarihi
- Mesaj 7
- Görüntüleme 2.031
-
- Etiketler
- #pc #virüs #görevyöneticisi
Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Çözüm
Script Kaspersky'ı kaldırmak için yazılmış ancak size nasıl ulaştı bu script hiçbir fikrim yok. 
Zararlı olarak algılanmadığından manuel olarak silmenizde fayda var.
"C:\UnKIS.vbs" dosyasını silin.
Regedit'den "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\UnKIS" ve "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce\UnKIS" girdilerini silin. Veya CCleaner'dan da silebilirsin.
Kod:
Call fso.DeleteFile("%TEMP%\UnKIS.reg")
Call fso.DeleteFile("%TEMP%\UnKIS.vbs")
Call fso.DeleteFolder("")
Call fso.DeleteFolder("\")
Call fso.DeleteFolder("\Kaspersky Security 10 for Windows Server")
Call fso.DeleteFolder("%PROGRAMFILES%\Kaspersky Lab")
Call fso.DeleteFolder("%PROGRAMFILES%\Kaspersky Lab\Kaspersky Security 10 for Windows Server")
Call fso.DeleteFolder("%ALLUSERSPROFILE%\Kaspersky Lab\Kaspersky Security for Windows Server\10.0")
Call fso.DeleteFolder("%ALLUSERSPROFILE%\Microsoft\Windows\Start Menu\Programs\")
Call fso.DeleteFolder("%ALLUSERSPROFILE%\Microsoft\Windows\Start Menu\Programs\Kaspersky Security 10 for Windows Server")
Call fso.DeleteFolder(objDrive.DriveLetter & ":\kleaner.tmp")
const HKEY_CLASSES_ROOT=&H80000000
const HKEY_CURRENT_USER=&H80000001
const HKEY_LOCAL_MACHINE=&H80000002
const HKEY_USERS=&H80000003
Dim WshShell, fso, f, allfiles, allfolders
end if
End If
For Each objDrive in drives
If allfiles.Count=0 Then
If allfolders.Count=0 Then
if objDrive.DriveType=2 then
On Error Resume Next
On Error Resume NextDim WshShell, fso, f, allfiles, allfoldersSet WshShell=CreateObject("WScript.Shell")Set fso=CreateObject("Scripting.FileSystemObject")const HKEY_CLASSES_ROOT=&H80000000const HKEY_CURRENT_USER=&H80000001const HKEY_LOCAL_MACHINE=&H80000002const HKEY_USERS=&H80000003Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")WScript.Sleep 15000Call fso.DeleteFolder("C:\Program Files\Kaspersky Lab\Kaspersky Security 10 for Windows Server")Call fso.DeleteFolder("%ALLUSERSPROFILE%\Kaspersky Lab\Kaspersky Security for Windows Server\10.0")Call fso.DeleteFolder("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\")Call fso.DeleteFolder("\")Call fso.DeleteFolder("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Kaspersky Security 10 for Windows Server")Call fso.DeleteFolder("\Kaspersky Security 10 for Windows Server")Set f=fso.GetFolder("C:\Program Files\Kaspersky Lab")Set allfiles=f.FilesSet allfolders=f.SubFoldersIf allfile
Set allfiles=f.Files
Set allfolders=f.SubFolders
Set drives=fso.Drives
Set f=fso.GetFolder("%PROGRAMFILES%\Kaspersky Lab")
Set fso=CreateObject("Scripting.FileSystemObject")
Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
Set WshShell=CreateObject("WScript.Shell")
WScript.Sleep 15000
WshShell.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\KasperskyLab\KAVFSEE\10.0"
WshShell.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\UnKIS"
WshShell.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce\UnKIS""C:\UnKIS.vbs" dosyasını silin.
Regedit'den "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\UnKIS" ve "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce\UnKIS" girdilerini silin. Veya CCleaner'dan da silebilirsin.
Daha fazla
- Cinsiyet
- Erkek
Otomatik çalışmamasında fayda var.
Dunyanin en iyi nicki
Decapat
- Katılım
- 10 Ocak 2019
- Mesajlar
- 600
- Çözümler
- 1
AV ile tarama yap.
Daha fazla
- Cinsiyet
- Erkek
Eset, Kaspersky ile tarayın.
Evet zararlı.
Script Kaspersky'ı kaldırmak için yazılmış ancak size nasıl ulaştı bu script hiçbir fikrim yok.
Zararlı olarak algılanmadığından manuel olarak silmenizde fayda var.
"C:\UnKIS.vbs" dosyasını silin.
Regedit'den "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\UnKIS" ve "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce\UnKIS" girdilerini silin. Veya CCleaner'dan da silebilirsin.
Kod:
Call fso.DeleteFile("%TEMP%\UnKIS.reg")
Call fso.DeleteFile("%TEMP%\UnKIS.vbs")
Call fso.DeleteFolder("")
Call fso.DeleteFolder("\")
Call fso.DeleteFolder("\Kaspersky Security 10 for Windows Server")
Call fso.DeleteFolder("%PROGRAMFILES%\Kaspersky Lab")
Call fso.DeleteFolder("%PROGRAMFILES%\Kaspersky Lab\Kaspersky Security 10 for Windows Server")
Call fso.DeleteFolder("%ALLUSERSPROFILE%\Kaspersky Lab\Kaspersky Security for Windows Server\10.0")
Call fso.DeleteFolder("%ALLUSERSPROFILE%\Microsoft\Windows\Start Menu\Programs\")
Call fso.DeleteFolder("%ALLUSERSPROFILE%\Microsoft\Windows\Start Menu\Programs\Kaspersky Security 10 for Windows Server")
Call fso.DeleteFolder(objDrive.DriveLetter & ":\kleaner.tmp")
const HKEY_CLASSES_ROOT=&H80000000
const HKEY_CURRENT_USER=&H80000001
const HKEY_LOCAL_MACHINE=&H80000002
const HKEY_USERS=&H80000003
Dim WshShell, fso, f, allfiles, allfolders
end if
End If
For Each objDrive in drives
If allfiles.Count=0 Then
If allfolders.Count=0 Then
if objDrive.DriveType=2 then
On Error Resume Next
On Error Resume NextDim WshShell, fso, f, allfiles, allfoldersSet WshShell=CreateObject("WScript.Shell")Set fso=CreateObject("Scripting.FileSystemObject")const HKEY_CLASSES_ROOT=&H80000000const HKEY_CURRENT_USER=&H80000001const HKEY_LOCAL_MACHINE=&H80000002const HKEY_USERS=&H80000003Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")WScript.Sleep 15000Call fso.DeleteFolder("C:\Program Files\Kaspersky Lab\Kaspersky Security 10 for Windows Server")Call fso.DeleteFolder("%ALLUSERSPROFILE%\Kaspersky Lab\Kaspersky Security for Windows Server\10.0")Call fso.DeleteFolder("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\")Call fso.DeleteFolder("\")Call fso.DeleteFolder("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Kaspersky Security 10 for Windows Server")Call fso.DeleteFolder("\Kaspersky Security 10 for Windows Server")Set f=fso.GetFolder("C:\Program Files\Kaspersky Lab")Set allfiles=f.FilesSet allfolders=f.SubFoldersIf allfile
Set allfiles=f.Files
Set allfolders=f.SubFolders
Set drives=fso.Drives
Set f=fso.GetFolder("%PROGRAMFILES%\Kaspersky Lab")
Set fso=CreateObject("Scripting.FileSystemObject")
Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
Set WshShell=CreateObject("WScript.Shell")
WScript.Sleep 15000
WshShell.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\KasperskyLab\KAVFSEE\10.0"
WshShell.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\UnKIS"
WshShell.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce\UnKIS""C:\UnKIS.vbs" dosyasını silin.
Regedit'den "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\UnKIS" ve "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce\UnKIS" girdilerini silin. Veya CCleaner'dan da silebilirsin.
Son düzenleme:
Bende de Kaspersky kuruluydu revo ile kaldırdım ancak bazı şeyler kaldırılmamıştı hala exe olarak çalıştığını görüyordum. Antivirüs ile taratın diyince ben de bari geri yükleyeyim dedim o zaman baktım gitmiş. Tavsiyeleriniz için çok teşekkürler.
