1000 Thủ Thuật Windows - PC part 25

Tham khảo tài liệu '1000 thủ thuật windows - pc part 25', công nghệ thông tin, hệ điều hành phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả
Nội dung trích xuất từ tài liệu:
1000 Thủ Thuật Windows - PC part 25 Bios của mình , bạn có thể dùng lệnh Debug để kiểm tra thông tin Bios của mình tuy nhiên cách làm sau sẽ rút ngắn thời gian hơn so với dùng lệnh Dubug . Mở Notepad và chép đọan mã sau : On Error Resume Next strComputer = '.' Set objWMIService = GetObject('winmgmts:\\' & strComputer & '\root\cimv2') Set colItems = objWMIService.ExecQuery('Select * from Win32_BIOS',,48) For Each objItem in colItems Wscript.Echo 'BiosCharacteristics: ' & objItem.BiosCharacteristics Wscript.Echo 'BIOSVersion: ' & objItem.BIOSVersion Wscript.Echo 'BuildNumber: ' & objItem.BuildNumber Wscript.Echo 'Caption: ' & objItem.Caption Wscript.Echo 'CodeSet: ' & objItem.CodeSet Wscript.Echo 'CurrentLanguage: ' & objItem.CurrentLanguage Wscript.Echo 'Description: ' & objItem.Description Wscript.Echo 'IdentificationCode: ' & objItem.IdentificationCode Wscript.Echo 'InstallableLanguages: ' & objItem.InstallableLanguages Wscript.Echo 'InstallDate: ' & objItem.InstallDate Wscript.Echo 'LanguageEdition: ' & objItem.LanguageEdition Wscript.Echo 'ListOfLanguages: ' & objItem.ListOfLanguages Wscript.Echo 'Manufacturer: ' & objItem.Manufacturer Wscript.Echo 'Name: ' & objItem.Name Wscript.Echo 'OtherTargetOS: ' & objItem.OtherTargetOS Wscript.Echo 'PrimaryBIOS: ' & objItem.PrimaryBIOS Wscript.Echo 'ReleaseDate: ' & objItem.ReleaseDate Wscript.Echo 'SerialNumber: ' & objItem.SerialNumber Wscript.Echo 'SMBIOSBIOSVersion: ' & objItem.SMBIOSBIOSVersion Wscript.Echo 'SMBIOSMajorVersion: ' & objItem.SMBIOSMajorVersion Wscript.Echo 'SMBIOSMinorVersion: ' & objItem.SMBIOSMinorVersion Wscript.Echo 'SMBIOSPresent: ' & objItem.SMBIOSPresent Wscript.Echo 'SoftwareElementID: ' & objItem.SoftwareElementID Wscript.Echo 'SoftwareElementState: ' & objItem.SoftwareElementState Wscript.Echo 'Status: ' & objItem.Status Wscript.Echo 'TargetOperatingSystem: ' & objItem.TargetOperatingSystem Wscript.Echo 'Version: ' & objItem.Version Next Lưu tập tin này và đặt tên là infobios.vbs 223. Xem dung lượng của một Partition Bạn thường sử dụng Windows Explorer để xem dung lượng partition còn trống hoặc xem partition đó có bao nhiêu thư mục thì đây thủ thuật sau sẽ giúp bạn xem dung lượng của partition còn trống , các thư mục chứa trong partition đó , ... Ở đây tôi sử dụng VBscript để làm điều này khi đó nó sẽ xuất dữ liệu ở ngõ ra của partition đó . Bạn mở Notepad lên và chép đọan mã sau vào : Option Explicit MsgBox RunOutput( 'COMMAND /C DIR H:\', 0 ) Function RunOutput( cProgram, nWindowType ) Dim oFS Set oFS = CreateObject('Scripting.FileSystemObject') Dim cFile cFile = oFS.GetSpecialFolder(2).Path & '\' & oFS.GetTempName Dim oShell Set oShell = CreateObject( 'WScript.Shell' ) oShell.Run cProgram & ' >' & cFile, nWindowType, True Set oShell = Nothing Dim oFile Set oFile = oFS.OpenTextFile(cFile, 1, True) RunOutput = oFile.ReadAll() oFile.Close oFS.DeleteFile cFile End Function Lưu ý : H: là ổ đĩa mà bạn muốn xem . Lưu tập tin này lại với tên là output.vbs 224. Xem giờ hệ thống bằng Windows Script Host Bạn thường xem giờ bằng chức năng Day and Time trong Control Panel hoặc ở thanh System Tray . Tuy nhiên ta vẩn có cách xem giờ trên hệ thống bằng Windows Script Host . Để làm điều này , bạn mở notepad lên và chép đọan mã sau vào : On Error Resume Next strComputer = '.' Set objWMIService = GetObject('winmgmts:\\' & strComputer & '\root\cimv2') Set colItems = objWMIService.ExecQuery('Select * from Win32_UTCTime') For Each objItem in colItems Wscript.Echo 'Day: ' & objItem.Day Wscript.Echo 'Day Of Week: ' & objItem.DayOfWeek Wscript.Echo 'Hour: ' & objItem.Hour Wscript.Echo 'Milliseconds: ' & objItem.Milliseconds Wscript.Echo 'Minute: ' & objItem.Minute Wscript.Echo 'Month: ' & objItem.Month Wscript.Echo 'Quarter: ' & objItem.Quarter Wscript.Echo 'Second: ' & objItem.Second Wscript.Echo 'Week In Month: ' & objItem.WeekInMonth Wscript.Echo 'Year: ' & objItem.Year Wscript.Echo Next Lưu lại và đặt tên là disptime.vbs 225. Thêm một cách để đổi tên lệnh Run Bạn từng biết sử dụng khóa Registry để đổi tên trong menu Start , tuy nhiên ta sẽ có cách thứ hai để đổi tên lệnh Run . Bạn mở Notepad chép đọan code này vào : Option Explicit Set ws = WScript.CreateObject('WScript.Shell') Dim ws, t, p1, n, cn, MyBox, Title Dim itemtype p1 = 'HKCR\CLSID\{2559a1f3-21d7-11d4-bdaf-00c04f60b9f0}\' n = ws.RegRead(p1 & 'LocalizedString') t = 'Change the Name of Run on Start Menu' cn = InputBox('Type in the name to replace Run with.', t, n) If cn '' Then ws.RegWrite p1 & 'LocalizedString', cn End If Title = 'Run on the Start Menu has now been renamed.' MyBox = MsgBox(Title,64,'Finished') Lưu tập tin này với tên changerun.vbs Sau đó bạn tiến hành chạy tập tin này và nhập vào tên cần thay đổi . Logoff hoặc khởi động lại máy tính Lưu ý : Thủ thuật này không áp dụng cho Classical Start Menu 226. Hiển thị tất cả các phím tắt trong Microsoft Word 2000 Trong Microsoft Word 2000 có cung cấp cho bạn một macro chứa danh sách các phím tắt , vậy bạn có muốn hiển thị tất cả các phím tắt trong Microsoft Word 2000 hay không , thủ thuật sau sẽ giúp bạn hiển thị tất cả các phím tắt này rất dể dàng . Mở Microsoft Word , nhấn Ctrl_N để mở một tài liệu mới tiếp theo ...