Chương 1 :Thủ thuật Windows XP ( phần 6) 020. Hiển thị tất cả các phông chữ có trong máy. Vào Notepad soạn nội dung sau rồi lưu lại dưới định dạng là .vbs.( VD: Hien thi cac phong ) dim w set w = createobject("") | Chương 1 Thủ thuât WindowsXP phân 6 020. Hiển thị tất cả các phông chữ có trong máy. Vào Notepad soạn nội dung sau rồi lưu lại dưới định dạng là .vbs. VD Hien thi cac phong dim w set w createobject true dim d set d dim iFonts iFonts dim i for i 1 To iFonts i vbcrlf Hien thi Font chu vbcrlf Rat de dang ma khong can su dung phan mem ho tro vbcrlf LuongHuuViet vbcrlf 0913722650 0919324832 0913696000 0913650651 vbcrlf next dim rngParagraphs for i 1 To iFonts 4 if i 3 mod 4 0 then set rngParagraphs i 1 . i 3 . i - 1 4 1 end if next msgbox Ket Thuc Sau đó tiến hành thực thi file vừa tạo. 021. Kiểm tra các account trong Windows. Vào Notepad soạn nội dung sau rồi lưu lại dưới định dạng là .vbs VD Test On Error Resume Next strComputer . Set objWMIService GetObject winmgmts strComputer root cimv2 Set colItems Select from Win32_UserAccount 48 For Each objItem in colItems AccountType Caption Description Disabled Domain FullName InstallDate Lockout Name PasswordChangeable PasswordExpires PasswordRequired SID SIDType Status Next Sau đó tiến hành thực thi file vừa tạo. 022. Thay đổi thông tin người dùng trong Windows. Vào Notepad soạn nội dung sau rồi lưu lại dưới định dạng là .vbs VD Change
