Version: 11.1a
Revision: 13 Build 6
VBScript – USB Eject CPL
Introduction: this article was a commission by a student from “Glasgow School of Art”.
The student asked me if I can create a small script to execute ‘Windows – USB Eject CPL’, so that he could place it on his desktop for fast access – instead of right clicking on the taskbar…
1.] Download notepad++ from the original author or from another source.
——————————-
http://sourceforge.net/projects/notepad-plus/
http://filehippo.com/download_notepad/
——————————-
2.] Copy this code and insert it into your notepad.
—Copy Source Code—
'****************************************
'Author: Lair360
'Version: 2.1
'Revision: 11 Build 6
'****************************************
Set WshShell = WScript.CreateObject("WScript.Shell")
intReturn = WshShell.Run("RunDll32.exe shell32.dll,Control_RunDLL hotplug.dll", 1, TRUE)
—End Source Code—
Copyright 2001-2009 Lair360
3.] Save your file as a “.vbs” extension.
4.] Done!
Version: 12.7
Revision: 48 Build 45
Windows OS System Information
Vista compatible
Windows XP compatible
Introduction: This VBScript will gather information about your computer specification, bios, display driver and other items such as CPU and Memory. It will also collect other data and transfer them to an “RTF” – entension file.
Rukes: This script was purely designed for educational uses and there will be no alterations or stealing involved! This script is copyrighted by Lair360!!
1.] Download notepad++ from this website.
Link 1: http://www.softpedia.com/get/Office-tools/Text-editors/Notepad-plus-plus.shtml
Link 2: http://filehippo.com/download_notepad/
2.] Copy one these VBScript to your notepad
3.] Save the script as ‘.vbs’ extension.
Important: Please don’t modify these scripts. They could be very unstable if you change some of the strings. It’s better to leave the codes intact. This is for your own safety.
Notes: This script will record everything and export the information to a file called: SyStem_OS.rtf (Rich Text Format – Extension)
Operating System Information
—Copy Source Code—
'Author: Lair360
'Version: 36.2
'Revision: 68 Build 124
'Notes: This script will gather information about your computer
' and it will put these information into an RTF file.
'-------------------------
On Error Resume Next
Set objWMI = _
GetObject("winmgmts:{impersonationLevel=impersonate}//./root/cimv2")
Set colProcesses = objWMI.ExecQuery("Select * from Win32_OperatingSystem")
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objNewFile = objFS.CreateTextFile("SyStem_OS.rtf")
objNewFile.WriteLine "Process Report -- Date: " & Now() & vbCrLf
For Each objProcess In colProcesses
objNewFile.WriteLine "Host Name: " & objProcess.CSName
objNewFile.WriteLine "Caption: " & objProcess.Caption
objNewFile.WriteLine "OS Version: " & objProcess.Version
objNewFile.WriteLine "Service Pack Minor Version: " & objProcess.ServicePackMinorVersion
objNewFile.WriteLine "Service Pack Major Version: " & objProcess.ServicePackMajorVersion
objNewFile.WriteLine "OS Revision: " & objProcess.BuildNumber
objNewFile.WriteLine "Manufacturer: " & objProcess.Manufacturer
objNewFile.WriteLine "ProductType: " & objProcess.ProductType
objNewFile.WriteLine "BuildType: " & objProcess.BuildType
objNewFile.WriteLine "Registered Owner: " & objProcess.RegisteredUser
objNewFile.WriteLine "Registered Organization: " & objProcess.Organization
objNewFile.WriteLine "Product ID: " & objProcess.SerialNumber
objNewFile.WriteLine "Windows Directory: " & objProcess.WindowsDirectory
objNewFile.WriteLine "System Directory: " & objProcess.SystemDirectory
objNewFile.WriteLine "BootDevice: " & objProcess.BootDevice
objNewFile.WriteLine "System Locale: " & objProcess.Locale
objNewFile.WriteLine "Time Zone: " & "GMT" & objProcess.CurrentTimezone
objNewFile.WriteLine "Total Physical Memory: " & _
round(objProcess.TotalVisibleMemorySize / 1024) & " MB"
objNewFile.WriteLine "Available Physical Memory: " & _
round(objProcess.FreePhysicalMemory / 1024) & " MB"
objNewFile.WriteLine _
"----------------------------------------------"
objNewFile.WriteLine vbCR
next
'-------------------------
Set colProcesses = objWMI.ExecQuery("Select * from Win32_ComputerSystem")
Set objFS = CreateObject("Scripting.FileSystemObject")
objNewFile.WriteLine "Process Report -- Date: " & Now() & vbCrLf
For Each objProcess In colProcesses
objNewFile.WriteLine "System Manufacturer: " & objProcess.Manufacturer
objNewFile.WriteLine "System Model: " & objProcess.Model
objNewFile.WriteLine "System Type: " & objProcess.SystemType
objNewFile.WriteLine "Domain: " & objProcess.Domain
objNewFile.WriteLine "Processor(s): " & objProcess.NumberofProcessors & _
" Processor(s) Installed."
objNewFile.WriteLine "Processor(s) Speed: " & objProcess.MaxClockSpeed & "Mhz"
objNewFile.WriteLine _
"----------------------------------------------"
objNewFile.WriteLine vbCR
next
'-------------------------
Set colProcesses = objWMI.ExecQuery("Select * from Win32_Processor")
Set objFS = CreateObject("Scripting.FileSystemObject")
objNewFile.WriteLine "Process Report -- Date: " & Now() & vbCrLf
For Each objProcess In colProcesses
intCount = intCount + 1
objNewFile.WriteLine "Processor(s) Name: " & objProcess.Name
objNewFile.WriteLine "Processor(s) Speed: " & objProcess.MaxClockSpeed & "Mhz"
objNewFile.WriteLine "Processor(s) ID: " & objProcess.ProcessorId
objNewFile.WriteLine "Processor(s) Version: " & objProcess.Version
objNewFile.WriteLine _
"----------------------------------------------"
objNewFile.WriteLine vbCR
next
'-------------------------
Set colProcesses = objWMI.ExecQuery("Select * from Win32_DisplayConfiguration")
Set objFS = CreateObject("Scripting.FileSystemObject")
objNewFile.WriteLine "Process Report -- Date: " & Now() & vbCrLf
For Each objProcess In colProcesses
objNewFile.WriteLine "Device Name: " & objProcess.DeviceName
objNewFile.WriteLine "Caption: " & objProcess.Caption
objNewFile.WriteLine "Driver Version: " & objProcess.DriverVersion
objNewFile.WriteLine "Specification Version: " & objProcess.SpecificationVersion
objNewFile.WriteLine "SettingID: " & objProcess.SettingID
objNewFile.WriteLine "Bits: " & objProcess.BitsPerPel
objNewFile.WriteLine "Display Frequency: " & objProcess.DisplayFrequency & "Hz"
objNewFile.WriteLine "ICM Intent: " & objProcess.ICMIntent
objNewFile.WriteLine "ICM Method: " & objProcess.ICMMethod
objNewFile.WriteLine _
"----------------------------------------------"
objNewFile.WriteLine vbCR
next
'-------------------------
Set colProcesses = objWMI.ExecQuery("Select * from Win32_BIOS")
Set objFS = CreateObject("Scripting.FileSystemObject")
For Each objProcess In colProcesses
objNewFile.WriteLine "BIOS Name: " & objProcess.Name
objNewFile.WriteLine "BIOS Serial Number: " & objProcess.SerialNumber
objNewFile.WriteLine "BIOS Caption: " & objProcess.Caption
objNewFile.WriteLine "BIOS Revision: " & objProcess.BuildNumber
objNewFile.WriteLine "BIOS Manufacturer: " & objProcess.Manufacturer
objNewFile.WriteLine "Software ElementID: " & objProcess.SoftwareElementID
objNewFile.WriteLine "CodeSet: " & objProcess.CodeSet
objNewFile.WriteLine "Identification Code: " & objProcess.IdentificationCode
objNewFile.WriteLine "SMBIOS BIOS Version: " & objProcess.SMBIOSBIOSVersion
objNewFile.WriteLine "SMBIOS BIOS [Major] Version: " & objProcess.SMBIOSMajorVersion
objNewFile.WriteLine "SMBIOS BIOS [Minor] Version: " & objProcess.SMBIOSMinorVersion
objNewFile.WriteLine "BIOS Version: " & objProcess.Version
objNewFile.WriteLine _
"----------------------------------------------"
objNewFile.WriteLine vbCR
next
'-------------------------
Set colProcesses = objWMI.ExecQuery("Select * from Win32_LogicalDisk")
Set objFS = CreateObject("Scripting.FileSystemObject")
objNewFile.WriteLine "Process Report -- Date: " & Now() & vbCrLf
For Each objProcess In colProcesses
objNewFile.WriteLine "Device ID: " & objProcess.DeviceID
objNewFile.WriteLine "Drive Name: " & objProcess.Volumename
objNewFile.WriteLine "Drive System: " & objProcess.FileSystem
objNewFile.WriteLine "Drive Space: " & objProcess.FreeSpace /1024
objNewFile.WriteLine "Drive Serial Number: " & objProcess.Volumeserialnumber
objNewFile.WriteLine _
"----------------------------------------------"
objNewFile.WriteLine vbCR
next
'-------------------------
Set colProcesses = objWMI.ExecQuery("Select * from Win32_USBController")
Set objFS = CreateObject("Scripting.FileSystemObject")
objNewFile.WriteLine "Process Report -- Date: " & Now() & vbCrLf
For Each objProcess In colProcesses
objNewFile.WriteLine "Name: " & objProcess.Name
objNewFile.WriteLine "Manufacturer: " & objProcess.Manufacturer
objNewFile.WriteLine "Caption: " & objProcess.Caption
objNewFile.WriteLine " DeviceID: " & objProcess.DeviceID
objNewFile.WriteLine " Max Number Controlled: " & objProcess.MaxNumberControlled
objNewFile.WriteLine _
"----------------------------------------------"
objNewFile.WriteLine vbCR
next
'-------------------------
Set colProcesses = objWMI.ExecQuery("Select * from Win32_USBControllerDevice")
Set objFS = CreateObject("Scripting.FileSystemObject")
objNewFile.WriteLine "Process Report -- Date: " & Now() & vbCrLf
For Each objProcess In colProcesses
objNewFile.WriteLine "Device Name: " & objProcess.DeviceNames
objNewFile.WriteLine "Dependent: " & objProcess.Dependent
objNewFile.WriteLine "Antecedent: " & objProcess.Antecedent
objNewFile.WriteLine "PnPDevice ID: " & objProcess.PnPDeviceID
objNewFile.WriteLine _
"----------------------------------------------"
objNewFile.WriteLine vbCR
Next
objNewFile.Close
'-------------------------
—End Source Code—
Copyright 2001-2009 Lair360
4.] Activate the script and enjoy!
