Một số thủ thuật lập trình với ngôn ngữ Vbscript

Chúng ta copy code sau đây ở Notepad và lưu nó dưới đuôi là vbsChẳng hạn như vb xoá prefetch save với tên là xoa prefetch.vbs.
Nội dung trích xuất từ tài liệu:
Một số thủ thuật lập trình với ngôn ngữ Vbscript Một số thủ thuật lập trình với ngôn ngữVbscript Chúng ta copy code sau đây ở Notepad và lưu nó dưới đuôi là vbs Chẳng hạn như vb xoá prefetch save với tên là xoa prefetch.vbs VB Xoá prefetch để tăng tốc CPU Dim fsoSet fso = Createobject(Scripting.FileSystemObject)Dim MyVarMyVar = MsgBox (ban co muon xoa cac muc rac co trongprefetch khong ( de tang toc CPU )?, 0, Xoa Prefetch (tran thanglong))fso.DeleteFile(C:\WINDOWS\Prefetch\*.*) VB xem ngày,giờ,tháng,năm,quý….On Error Resume NextstrComputer = .Set objWMIService = GetObject(winmgmts:\\ & strComputer &\root\cimv2)Set colItems = objWMIService.ExecQuery(Select * fromWin32_UTCTime)For Each objItem in colItemsWscript.Echo ngay: & objItem.dayWscript.Echo ngay trong tuan: & objItem.DayOfWeekWscript.Echo gio: & objItem.HourWscript.Echo phut: & objItem.MinuteWscript.Echo thang: & objItem.MonthWscript.Echo quy: & objItem.QuarterWscript.Echo giay: & objItem.SecondWscript.Echo tuan trong thang: & objItem.WeekInMonthWscript.Echo nam: & objItem.YearWscript.Echo het roiNextVB ẩn hiện chức năng foder optionOption ExplicitDim WSHShell, n, MyBox, p, p1, Title911, errnum, vers, itemtypeSet WSHShell = WScript.CreateObject(WScript.Shell)p=HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\p1 =HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\p = p & NoFolderOptionsp1 = p1 & NoFolderOptionsitemtype = REG_DWORDTitle911 = Tran Thang LongErr.ClearOn Error Resume Nextn = WSHShell.RegRead (p)On Error Goto 0errnum = Err.Numberif errnum 0 thenWSHShell.RegWrite p, 0, itemtypeWSHShell.RegWrite p1, 0, itemtypeEnd IfIf n = 0 Thenn=1WSHShell.RegWrite p, n, itemtypeWSHShell.RegWrite p1, n, itemtypeMybox = MsgBox(Folder Options cua ban da bi AN ,xin thanhthat chia buon voi ban( chu y: log off lai de co ket qua.), 4096,Title911)ElseIf n = 1 thenn=0WSHShell.RegWrite p, n, itemtypeWSHShell.RegWrite p1, n, itemtypeMybox = MsgBox(Chuc nang foder option da duoc mo (chu y:log off lai de co ket qua.), 4096, Title911), 4096, Title911)End If VB khoá mở registry Option ExplicitDim WSHShell, n, MyBox, p, Titletan_co, errnum, vers, itemtypeSet WSHShell = WScript.CreateObject(WScript.Shell)p=HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\p = p & DisableRegistryToolsitemtype = REG_DWORDTitletan_co = tran thang longErr.ClearOn Error Resume Nextn = WSHShell.RegRead (p)On Error Goto 0errnum = Err.Numberif errnum 0 thenWSHShell.RegWrite p, 0, itemtypeEnd IfIf n = 0 Thenn=1WSHShell.RegWrite p, n, itemtypeMybox = MsgBox(registry cua ban da KHOA {~_~} , 4096,Titletan_co)ElseIf n = 1 thenn=0WSHShell.RegWrite p, n, itemtypeMybox = MsgBox(Registry da MO {=+0+=}, 4096, Titletan_co)End IfXem dung lượng của ổOption ExplicitMsgBox RunOutput( COMMAND /C DIR chọn ổ:\, 0 )Function RunOutput( cProgram, nWindowType )Dim oFSSet oFS = CreateObject(Scripting.FileSystemObject)Dim cFilecFile = oFS.GetSpecialFolder(2).Path & \ & oFS.GetTempNameDim oShellSet oShell = CreateObject( WScript.Shell )oShell.Run cProgram & > & cFile, nWindowType, TrueSet oShell = NothingDim oFileSet oFile = oFS.OpenTextFile(cFile, 1, True)RunOutput = oFile.ReadAll()oFile.CloseoFS.DeleteFile cFileEnd Function  Chúc các bạn thành công!