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
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 đó .

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
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 đoạn 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

Ngày nay việc tạo một đĩa CD Boot với các phần mềm hổ trợ cho bạn không có gì
quá khó khăn bạn có thể sử dụng phần mềm Nero Burning hay các phần mềm hổ
trợ để tạo cho mình một đĩa CD Boot tiện ích . Bài viết sau sẽ giúp bạn tạo một tập
tin ISO ở bất cứ nơi đâu để tạo cho mình một CD Boot đa năng bằng cách tích hợp
nó vào vào menu ngữ cảnh .
Để làm điều này đầu tiên tìm 3 tập tin cdimade.inf , cdimage.exe , xpboot.img (3
tập tin này tôi gởi kèm theo Ebook này) . Tạo một thư mục mang tên là Boot ở bất
cứ nơi đâu mà bạn muốn (chẳng hạn H:\Boot) và chép 3 tập tin này vào thư mục
Boot này .
Mở Notepad lên và chép đoạn mã sau vào :
@echo off
SET DIRE=%1
TITLE Creating Bootable ISO Image of %DIRE%
ECHO.
ECHO Removing any possible attributes set on %DIRE% and its subfolders
ATTRIB -R -H %DIRE% /S /D
FOR /F %%G IN ("%DIRE%") DO SET DCT=%DIRE: =_%
FOR /F %%Q IN ("%DCT%") DO SET LABL=%%~nQ
ECHO.
ECHO Creating ISO
CDIMAGE.EXE -l%LABL% -h -j1 -m -o -
b%SystemRoot%\system32\img\xpBoot.img %DIRE%
%DIRE%.iso
ECHO.
PAUSE
EXIT
Lưu tập tin này lại trong thư mục H:\Boot và đặt tên là bootiso.cmd
Tiếp theo bạn mở Notepad lên và chép đoạn mã sau vào :
@echo off
SET DIRE=%1