SCRIPT FILES

I. GIỚI THIỆU SCRIPT FILES:
VBScript (Viết tắt của Visual Basic Scripting Edition) là một ngôn ngữ Active Scripting, được phát triển bởi Microsoft, nó sử dụng Component Object Model để truy cập đến các thành phần bên trong như FileSystemObject hoặc FSO dùng để create, read, update và delete files. Cú pháp câu lệnh khá giống với ngôn ngữ lập trình Microsoft Visual Basic nhưng rút gọn và tinh giản hơn.

Trong bài viết này tôi giới thiệu ứng dụng cho phép triển khai Script trên DOMAIN để các client mỗi khi shutdown máy sẽ tự động xóa các file cache, file tạm và rác. Quả thật, vì một nguyên nhân nào đó, các tập tin đó có thể xuất hiện (do chương trình bị ngắt quãng giữa chừng,...). Như vậy, sau một thời gian, dung lượng trống trên ổ cứng của bạn bị giảm đáng kể.

Có nhiều cách để xoá các tập tin không cần thiết này. Thủ công nhất là vào các thư mục đó và thực hiện thao tác xoá tập tin. Các thư mục mặc định là Windows\Prefetch và Windows\Temp. Microsoft cũng cung cấp một số trình dọn dẹp tập tin tạm, ví dụ như Disk Cleanup. Bạn vào Start\Programs\Accessories\System Tools và chọn Disk Cleanup. Chương trình có một số chọn lựa như xoá các tập tin Internet, dọn Recycle Bin, xoá tập tin trong thư mục Temp...

Tuy nhiên bạn có thể tự làm một chương trình dọn rác như vậy nhờ vào khả năng của VBScript và thực hiện một cách tự động sau khi logoff hay shutdown may. Ở đây, tôi chỉ trình bày cách xoá các tập tin trong thư mục Prefetch, Temp.


II. SOURCE CODE:
Sau đây là source code thực hiện việc xoá các tập tin, các folder trong thư mục Prefetch, Temp. Chú ý có các cách viết khác nhau, tuy nhiên dưới đây là một cách viết cơ bản:

Code:


Dim fso
Set fso = Createobject("Scripting.FileSystemObject")

Dim MyVar
MyVar = MsgBox ("Xoa cac cache duoc luu tru trong Prefetch", 0, "Xoa Prefetch")

fso.DeleteFile("C:\Windows\Prefetch\*.*")
fso.DeleteFolder("C:\Windows\Prefetch\*")

fso.DeleteFile("C:\Windows\Temp\*.*")
fso.DeleteFolder("C:\Windows\Temp\*")


Bạn lưu tập tin này với phần đuôi mở rộng là .vbs, ví dụ: DelTemp.vbs.

Muốn thực hiện lệnh bạn chỉ cần double click vào tập tin này. Khi chạy, chương trình sẽ xác nhận lại xem bạn có thực sự muốn xoá các tập tin rác hay không.

Nếu không muốn phải trả lời, bạn có thể lược bớt một số câu lệnh, chương trình sẽ ngắn hơn:

Code:


Dim fso
Set fso = Createobject("Scripting.FileSystemObject")

fso.DeleteFile("C:\Windows\Prefetch\*.*")
fso.DeleteFolder("C:\Windows\Prefetch\*")

fso.DeleteFile("C:\Windows\Temp\*.*")
fso.DeleteFolder("C:\Windows\Temp\*")


Bây giờ bạn có thể tạo GPO triển khai cho các Domain Users thực hiện xoá cache mỗi khi shutdown máy.


III. FILM DEMO:
Các bạn tải film demo tại đây: Script Files.exe và Script File.wmv

Các bạn có thể thực hiện tương tự với các nội dung khác cho mục logon, logoff và restart với các nội dung như lời chào, sự nhắc nhở đến từng user...



CHÚC CÁC BẠN THÀNH CÔNG!!!