'System Environment VBS

'Digital Travesia
'http://gamereverserz.cjb.net/
'Checked On: Windows  2000 SP4, XP SP2, Vista


'SETUP
'-----

Option Explicit

Dim QfeSet
Dim Qfe
Dim Locator
Dim Service

Dim Message1
Dim Message2
Dim Message3
Dim Message4
Dim Message5
Dim Message6
Dim Message7



'BIOS
'----

Dim BIOS1
Dim BIOS2
Dim BIOS3
Dim BIOS4

Set Locator = WScript.CreateObject("WbemScripting.SWbemLocator")
Set Service = Locator.ConnectServer

Set QfeSet = Service.ExecQuery("Select * From Win32_BIOS")

For Each Qfe In QfeSet
    BIOS1 = "Name: " & Qfe.Name & vbCrLf
Next

For Each Qfe In QfeSet
    BIOS2 = "Manufacturer: " & Qfe.Manufacturer & vbCrLf
Next

For Each Qfe In QfeSet
    BIOS3 = "Version: " & Qfe.Version & vbCrLf
Next

For Each Qfe In QfeSet
    BIOS4 = "ReleaseDate: " & Qfe.ReleaseDate & vbCrLf
Next

Message1 = "[BIOS]" & vbCrLf & BIOS1 & BIOS2 & BIOS3 & BIOS4 & vbCrLf


'Wscript.Echo Message1



'CPU
'---

Dim CPU1
Dim CPU2
Dim CPU3
Dim CPU4
Dim CPU5
Dim CPU6

Set QfeSet = Service.ExecQuery("Select * From Win32_Processor")

For Each Qfe In QfeSet
    CPU1 = "Model: " &  Qfe.Description & vbCrLf
Next

For Each Qfe In QfeSet
    CPU2 = "Name: " & Qfe.Name & vbCrLf
Next

For Each Qfe In QfeSet
    CPU3 = "Vender: " & Qfe.Manufacturer & vbCrLf
Next

For Each Qfe In QfeSet
    CPU4 = "ClockSpeed: " & Qfe.CurrentClockSpeed & "MHz" & vbCrLf
Next

For Each Qfe In QfeSet
    CPU5 = "CPUID: " & Qfe.ProcessorId & vbCrLf
Next

Set QfeSet = Service.ExecQuery("Select * From Win32_ComputerSystem")

For Each Qfe In QfeSet
    CPU6 = "Num: " & Qfe.NumberOfProcessors & vbCrLf
Next

Message2 = "[CPU]" & vbCrLf & CPU1 & CPU2 & CPU3 & CPU4 & CPU5 & CPU6 & vbCrLf


'Wscript.Echo Message2



'OS
'--

Dim OS1
Dim OS2
Dim OS3
Dim OS4
Dim OS5
Dim OS6

Set QfeSet = Service.ExecQuery("Select * From Win32_OperatingSystem")

For Each Qfe In QfeSet
    OS1 = Qfe.Caption & vbCrLf
Next

For Each Qfe In QfeSet
    OS2 = "Version: " & Qfe.Version & vbCrLf
Next

For Each Qfe In QfeSet
    OS3 = "Build: " & Qfe.BuildNumber & vbCrLf
Next

For Each Qfe In QfeSet
    OS4 = "SP: " & Qfe.CSDVersion & vbCrLf
Next

For Each Qfe In QfeSet
    OS5 = "Locale: " & Qfe.Locale & vbCrLf
Next

For Each Qfe In QfeSet
    OS6 = "LocalDateTime: " & Qfe.LocalDateTime & vbCrLf
Next

'For Each Qfe In QfeSet
'    OS6 = "DEP Setting: " & Qfe.DataExecutionPrevention_SupportPolicy & vbCrLf
'Next
'Always Off	0
'Always On	1
'Opt In		2
'Opt Out	3

Message3 = "[OS]" & vbCrLf & OS1 & OS2 & OS3 & OS4 & OS5 & OS6 & vbCrLf


'Wscript.Echo Message3



'MEM
'---

Dim MEM0
Dim MEM1
Dim MEM2
Dim MEM3

Set QfeSet = Service.ExecQuery("Select * From Win32_OperatingSystem")

For Each Qfe In QfeSet
    MEM0 = "TotalPhysicalMemory: " & FormatNumber(Qfe.TotalVisibleMemorySize, 0, 0, 0, -1) & "KB" & vbCrLf
Next

For Each Qfe In QfeSet
    MEM1 = "FreePhysicalMemory: " & FormatNumber(Qfe.FreePhysicalMemory, 0, 0, 0, -1) & "KB" & vbCrLf
Next

For Each Qfe In QfeSet
    MEM2 = "FreeSpaceInPagingFiles: " & FormatNumber(Qfe.FreeSpaceInPagingFiles, 0, 0, 0, -1) & "KB" & vbCrLf
Next

For Each Qfe In QfeSet
    MEM3 = "FreeVirtualMemory: " & FormatNumber(Qfe.FreeVirtualMemory, 0, 0, 0, -1) & "KB" & vbCrLf
Next

Message4 = "[MEMORY]" & vbCrLf & MEM0 & MEM1 & MEM2 & MEM3 & vbCrLf


'Wscript.Echo Message4



'GPU
'---

Dim GPU1
Dim GPU2
Dim GPU3
Dim GPU4
Dim GPU5

Set QfeSet = Service.ExecQuery("Select * From Win32_VideoController")

For Each Qfe In QfeSet
    GPU1 = "Name: " & Qfe.Caption & vbCrLf
Next

For Each Qfe In QfeSet
    GPU2 = "Resolution: " & Qfe.CurrentHorizontalResolution & "x" & Qfe.CurrentVerticalResolution
Next

For Each Qfe In QfeSet
    GPU3 = " (" & FormatNumber(Qfe.CurrentNumberOfColors, 0, 0, 0, -1) & " colors, "
Next

For Each Qfe In QfeSet
    GPU4 = Qfe.CurrentRefreshRate & "Hz)" & vbCrLf
Next

For Each Qfe In QfeSet
    GPU5 = "VRAM: " & FormatNumber(Qfe.AdapterRAM, 0, 0, 0, -1) & " Bytes" & vbCrLf
Next

Message5 = "[GPU]" & vbCrLf & GPU1 & GPU2 & GPU3 & GPU4 & GPU5 & vbCrLf


'Wscript.Echo Message5



'SOUND
'-----

Dim SOUND1
Dim SOUND2

Set QfeSet = Service.ExecQuery("Select * From Win32_SoundDevice")

For Each Qfe In QfeSet
    SOUND1 = "Name: " & Qfe.Name & vbCrLf
Next

For Each Qfe In QfeSet
    SOUND2 = "Manufacturer: " & Qfe.Manufacturer & vbCrLf
Next

Message6 = "[SOUND]" & vbCrLf & SOUND1 & SOUND2 & vbCrLf


'Wscript.Echo Message6



'COPY
'----

Dim IE
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "about:blank"

Do Until IE.ReadyState=4
 WScript.Sleep 1
Loop

'IE.Document.ParentWindow.ClipboardData.SetData "Text", Message1 & Message2 & Message3 & Message4 & Message5 & Message6

Const OLECMDID_COPY = 12
Const OLECMDID_SELECTALL = 17 '(&H11)
Const OLECMDEXECOPT_DODEFAULT = 0


IE.Document.body.innerText=Message1 & Message2 & Message3 & Message4 & Message5 & Message6
IE.ExecWB OLECMDID_SELECTALL,OLECMDEXECOPT_DODEFAULT
IE.ExecWB OLECMDID_COPY,OLECMDEXECOPT_DODEFAULT

IE.Quit



'TEST
'----

'Dim TEST1

'Set QfeSet = Service.ExecQuery("Select * From Win32_PhysicalMemory")

'For Each Qfe In QfeSet
'    TEST1 = "Name: " & Qfe.Name
'Next

'Message7 = "[TEST]" & TEST1 & vbCrLf


'Wscript.Echo TEST1



'CLEANUP
'-------

Set QfeSet = Nothing
Set Qfe = Nothing
Set Service = Nothing
Set Locator = Nothing