Phiên bản Update Lỗi Win XP 10/2010 part 5

Tham khảo tài liệu phiên bản update lỗi win xp 10/2010 part 5, 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:
Phiên bản Update Lỗi Win XP 10/2010 part 5Dim fso, ws, TgtIcon, RegKeySet ws = CreateObject(WScript.Shell)Set fso = CreateObject(Scripting.FileSystemObject)TgtIcon = fso.GetSpecialFolder(0) & Webgooglefavicon.icoRegKey = HKLMSOFTWAREMicrosoftInternetExplorerExtensions{aad080d5-9287-40edbdec-2cbed012baaa}IconRegKey = HKLMSOFTWAREMicrosoftInternetExplorerExtensions{aad080d5-9287-40edbdec-2cbed012baaa}HotIconOn Error Resume Nextws.RegWrite TgtIconfso.CopyFile googlefavicon.ico, TgtIcon, TrueDim WSHShell, pDim GUIDSet WSHShell = WScript.CreateObject(WScript.Shell)GUID = {aad080d5-9287-40ed-bdec-2cbed012baaa}p = HKEY_LOCAL_MACHINESOFTWAREMicrosoftInternetExplorerExtensionsWshShell.RegWrite P & GUID & ButtonText,XP-GoogleWshShell.RegWrite P & GUID & clsid,{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}WshShell.RegWrite P & GUID & Default Visible,YESWshShell.RegWrite P & GUID & Exec, http://www.google.comWshShell.RegWrite P & GUID & HotIcon,TgtIconWshShell.RegWrite P & GUID & Icon, TgtIconWshShell.RegWrite P & GUID & MenuText,GoogleSet WshShell = NothingMsgBox Google has been added to Internet & vbCR & Explorers Tools Menuand Toolbar,4096,Finished!Lưu tập tin này với tên là google.vbs , tiến hành chạy tập tin này .Không cho Spyware chiếm quyền điều khiển Home PageMáy tính của bạn nhiễm Spyware , bạn sử dụng các phần mềm chẳng hạn nhưAdware SE Pro hoặc Hijackthis để quét Spyware trên máy tính của bạn . phát hiệnthấy có web lạ chiếm quyền điều khiển trang chủ (Home Page) của bạn trong trìnhduyệt Internet Explorer .Mở trình soạn thảo văn bản Note Pad , chép và dán đoạn code này vào .Option ExplicitDim WSHShell, RegKey, ValueA, ResultOn Error Resume NextSet WSHShell = CreateObject(WScript.Shell)RegKey = HKEY_CURRENT_USERSoftwarePoliciesMicrosoftInternetExplorerControlPanelValueA = WSHShell.RegRead (regkey & HomePage)If ValueA = 0 Then Change Homepage is Enabled.Result = MsgBox(Ability to Change Homepage is currently [Enabled]. &_vbNewLine & Would you like to Disable? & _vbNewLine & Will lock andGray it out. & _vbNewLine & May need to Log-off for effect., 36)If Result = 6 Then clicked yesWSHShell.RegWrite regkey & HomePage, 1End IfElse Change Homepage is DisabledResult = MsgBox(Ability to Change Homepage is currently [Disabled]. & _vbNewLine & Would you like to Enable?, 36)If Result = 6 Then clicked yesWshShell.RegDelete HKCUSoftwarePoliciesMicrosoftInternetExplorerControlPanelHomePageEnd IfEnd IfLưu lại và đặt tên là DisableHomePage.vbsĐể chạy nó , bạn nhấn chuột vào tập tin này và chọn Yes . Logoff để thay đổi cóhiệu lực .Kiểm tra thông tin người dùng trong Windows XPBạn muốn kiểm tra xem trên máy tính của bạn có bao nhiêu User (người dùng) vàxem thông tin của các User này hay không .Bạn có thể thực hiện điều này thông qua tiện ích Computer Management tuy nhiênsử dụng tiện ích này không khả quan cho lắm !Hãy mở trình sọan thảo văn bản Notepad và chép đoạn code này vào .Lưu lại tập tin này , đặt tên cho nó là userinfo.vbs và tiến hành “chạy” nó .On Error Resume NextstrComputer = .Set objWMIService = GetObject(winmgmts:\ & strComputer & ootcimv2)Set colItems = objWMIService.ExecQuery(Select * fromWin32_UserAccount,,48)For Each objItem in colItemsWscript.Echo AccountType: & objItem.AccountTypeWscript.Echo Caption: & objItem.CaptionWscript.Echo Description: & objItem.DescriptionWscript.Echo Disabled: & objItem.DisabledWscript.Echo Domain: & objItem.DomainWscript.Echo FullName: & objItem.FullNameWscript.Echo InstallDate: & objItem.InstallDateWscript.Echo Lockout: & objItem.LockoutWscript.Echo Name: & objItem.NameWscript.Echo PasswordChangeable: & objItem.PasswordChangeableWscript.Echo PasswordExpires: & objItem.PasswordExpiresWscript.Echo PasswordRequired: & objItem.PasswordRequiredWscript.Echo SID: & objItem.SIDWscript.Echo SIDType: & objItem.SIDTypeWscript.Echo Status: & objItem.StatusNextLàm thế nào nhận biết USB 2.0 có trên máy tínhBạn mới vừa mua máy tính , người bán họ nói máy tính của bạn có gắn cổng USB2.0 .Còn bạn , “dân mới vào nghề” không biết đâu mà lần , thôi thì tin vào chính mìnhvậy .Đoạn code sau sẽ giúp bạn nhận biết được USB 2.0 có cài đặt trên máy tính củabạn hay không .Mở Notepad chép và dán đoạn code này vào . Đặt tên cho nó là testusb.vbsOn Error Resume NextRegKey = HKLMSYSTEMCurrentControlSetEnumUSBROOT_HUB20CreateObject(WScript.Shell).RegRead(RegKey & )If Err ThenIf InStr(LCase(Err.Description), invalid root) > 0 ThenMsgBox This computer does not seem to be USB 2 enabled.ElseMsgBox This computer appears to be USB 2 enabled.End IfEnd IfLiệt kê tất cả các ứng dụng đang chạy trong Windows XP bằng dòng lệnhBạn có thể sử dụng công cụ WMIC (Windows Management InstrumentationCommandline) để liệt kê tất cả các bộ xữ lý đang chạy trên hệ điều hành WindowsXP của bạn .Bạn vào Start – Run gõ CMD và ...