Đang chuẩn bị nút TẢI XUỐNG, xin hãy chờ
Tải xuống
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 chu.vbs ) dim w set w = createobject("word.application") | 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 chu.vbs dim w set w createobject word.application w.visible true dim d set d w.documents.add dim iFonts iFonts w.fontnames.count dim i for i 1 To iFonts d.content.insertafter w.fontnames i vbcrlf d.content.insertafter Hien thi Font chu vbcrlf d.content.insertafter Rat de dang ma khong can su dung phan mem ho tro vbcrlf d.content.insertafter LuongHuuViet vbcrlf d.content.insertafter 0913722650 0919324832 0913696000 0913650651 vbcrlf next dim rngParagraphs for i 1 To iFonts 4 if i 3 mod 4 0 then set rngParagraphs d.range d.paragraphs i 1 .range.start d.paragraphs i 3 .range.end rngParagraphs.select w.selection.font.name w.fontnames 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 account.vbs On Error Resume Next strComputer . Set objWMIService GetObject winmgmts strComputer root cimv2 Set colItems objWMIService.ExecQuery Select from Win32_UserAccount 48 For Each objItem in colItems Wscript.Echo AccountType objItem.AccountType Wscript.Echo Caption objItem.Caption Wscript.Echo Description objItem.Description Wscript.Echo Disabled objItem.Disabled Wscript.Echo Domain objItem.Domain Wscript.Echo FullName objItem.FullName Wscript.Echo InstallDate objItem.InstallDate Wscript.Echo Lockout objItem.Lockout Wscript.Echo Name objItem.Name Wscript.Echo PasswordChangeable objItem.PasswordChangeable Wscript.Echo PasswordExpires objItem.PasswordExpires Wscript.Echo PasswordRequired objItem.PasswordRequired Wscript.Echo SID objItem.SID Wscript.Echo SIDType objItem.SIDType Wscript.Echo Status objItem.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
