Đang chuẩn bị nút TẢI XUỐNG, xin hãy chờ
Tải xuống
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 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 đó . Bạn mở Notepad lên và chép đoạn 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 .
