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