Your access to this website and/or its content is subject to certain terms and conditions. If you do not wish to agree with the terms and conditions, then you should leave this website immediately.

Home

Privacy

Legal

Contact

Humour

Moral Volcano's BgInfo VBScript Add-Ons

Mark Russinovich's BgInfo is a Microsoft utility that can be set up to display computer configuration details, such as hardware information, on the Windows desktop background (wallpaper). In this page, I am offering you some unofficial add-ons that make BgInfo more useful - particularly in offices where employees are asked to provide their system configuration details to system administrators.

What's Included

BgInfo comes with a set of built-in configuration details that can be displayed on the wallpaper. BgInfo also allows the user to create custom configuration details. The built-in ones are good but they are not great.

In this page, I am offering some VBScript files and my BgInfo configuration file for download. As it is rarely a good idea to blindly use VBScript files from the Web, I am displaying the source code here so that you can use them only if you are fully satisfied. You are also completely free to extend the source code as you please.

When you run my BgInfo configuration file, your wallpaper will be updated similar to the screenshot here. (I have deliberately obscured some details.)

The following is a list of files in the download file. (The Erik Anderson's MP3 Pirate wallpaper is not included.)

1. BgInfo Configuration File: The my_bginfo.bgi file was created on my computer. It uses a set of built-in and my custom-made BgInfo configuration details and updates the current wallpaper.
2. VBScript Files: These text files contain my VBScript code. BgInfo will use this code when it displays the custom BgInfo configuration details mentioned in the my_bginfo.bgi file. For the sake of safety, the VBScript files have the extension .txt instead of .vbs. You can test them using cscript.exe if you replace Echo statements with Wscript.Echo.
   1. Get_Computer_Model.txt:
      winmgt = "winmgmts:{impersonationLevel=impersonate}!//" Set oWMI_Qeury_Result = GetObject(winmgt).InstancesOf("Win32_ComputerSystem") For Each oItem In oWMI_Qeury_Result Set oComputer = oItem Exit For Next If IsNull(oComputer.Model) Then sComputerModel = "*no-name* model" Else sComputerModel = oComputer.Model End If If IsNull(oComputer.Manufacturer) Then sComputerManufacturer = "*no-name* manufacturer" Else sComputerManufacturer = oComputer.Manufacturer End If sComputer = Trim(sComputerModel) & " by " & Trim(sComputerManufacturer) Echo sComputer
   2. Get_Motherboard_Model.txt:
      winmgt = "winmgmts:{impersonationLevel=impersonate}!//" Set oWMI_Qeury_Result = GetObject(winmgt).InstancesOf("Win32_BaseBoard") For Each oItem In oWMI_Qeury_Result Set oMotherBoard = oItem Exit For Next If IsNull(oMotherBoard.Model) Then If IsNull(oMotherBoard.Product) Then sMotherBoardModel = "*no-name* model" Else sMotherBoardModel = oMotherBoard.Product End If Else sMotherBoardModel = oMotherBoard.Model End If If IsNull(oMotherBoard.Manufacturer) Then sMotherBoardManufacturer = "*no-name* manufacturer" Else sMotherBoardManufacturer = oMotherBoard.Manufacturer End If sMotherBoard = sMotherBoardModel & " by " & sMotherBoardManufacturer Echo sMotherBoard
   3. Get_Memory.txt:
      winmgt = "winmgmts:{impersonationLevel=impersonate}!//" Set oWMI_Qeury_Result = GetObject(winmgt).InstancesOf("Win32_PhysicalMemory") iTotalMemory = 0 For Each oItem In oWMI_Qeury_Result iTotalMemory = iTotalMemory + oItem.Capacity Next iTotalMemory = Round(iTotalMemory/(1024*1024)) Echo "Installed: " & iTotalMemory & " MB" Set oWMI_Qeury_Result = GetObject(winmgt).InstancesOf("Win32_ComputerSystem") For Each oItem in oWMI_Qeury_Result iAvailableMemory = oItem.TotalPhysicalMemory Next iAvailableMemory = Round(iAvailableMemory/(1024*1024)) Echo "Available: " & iAvailableMemory & " MB" Set oWMI_Qeury_Result = GetObject(winmgt).InstancesOf("Win32_OperatingSystem") For Each oItem in oWMI_Qeury_Result iFreeMemory = oItem.FreePhysicalMemory Next iFreeMemory = Round(iFreeMemory/(1024)) Echo "Free: " & iFreeMemory & " MB"
   4. Get_Memory.txt:
      winmgt = "winmgmts:{impersonationLevel=impersonate}!//" Set oWMI_Qeury_Result = GetObject(winmgt).InstancesOf("Win32_PhysicalMemory") iTotalMemory = 0 For Each oItem In oWMI_Qeury_Result iTotalMemory = iTotalMemory + oItem.Capacity Next iTotalMemory = Round(iTotalMemory/(1024*1024)) Echo "Installed: " & iTotalMemory & " MB" Set oWMI_Qeury_Result = GetObject(winmgt).InstancesOf("Win32_ComputerSystem") For Each oItem in oWMI_Qeury_Result iAvailableMemory = oItem.TotalPhysicalMemory Next iAvailableMemory = Round(iAvailableMemory/(1024*1024)) Echo "Available: " & iAvailableMemory & " MB" Set oWMI_Qeury_Result = GetObject(winmgt).InstancesOf("Win32_OperatingSystem") For Each oItem in oWMI_Qeury_Result iFreeMemory = oItem.FreePhysicalMemory Next iFreeMemory = Round(iFreeMemory/(1024)) Echo "Free: " & iFreeMemory & " MB"
   5. Get_Hard_Drives.txt:
      winmgt = "winmgmts:{impersonationLevel=impersonate}!//" Set oWMI_Qeury_Result = GetObject(winmgt).InstancesOf("Win32_DiskDrive") i = 1 For Each oItem In oWMI_Qeury_Result Echo Round(oItem.Size/(1000*1000*1000)) & " GB (" & Round(oItem.Size/(1024*1024*1024)) & " GB - " & oItem.Model & ")" Next
   6. Get_OS.txt:
      winmgt = "winmgmts:{impersonationLevel=impersonate}!//" Set oWMI_Qeury_Result = GetObject(winmgt).InstancesOf("Win32_OperatingSystem") For Each oItem In oWMI_Qeury_Result Echo Replace(oItem.Caption, "Microsoft ", "") & " (" & oItem.CSDVersion & ")" Next

Download

Download the contents of this zip file to C:\Program Files\BgInfo or to the folder where you have installed BgInfo.

BGI.Zip (Size: 4 KB)
Download Now

Installation

1. Create a folder named BgInfo in your C:\Program Files folder.
2. Download BgInfo download file from Microsoft.com and extract the contents of that file in C:\Program Files\BgInfo.
3. Copy my_bginfo.bgi and my VBscript files to the C:\Program Files\BgInfo folder.
4. Run BgInfo.exe, open (File » Open) my_bginfo.bgi, and click Apply.
5. Close BgInfo.

If you have copied BgInfo to some other folder, then my_bginfo.bgi will not work as it is. You will have to click the Custom button and edit the location of each configuration detail manually.

You can add a shortcut with the following command to your startup folder so that the wallpaper is updated when you log in.

"C:\Program Files\BgInfo\BgInfo.exe" "C:\Program Files\BgInfo\my_bginfo.bgi" /timer:0

Home

Privacy

Legal

Contact

Humour

© V. Subhash, 2010. All rights reserved.

Moral Volcano is the work of an Indian, thinker, astrologer, software programmer, GNU/Linux user, web designer, technical writer, lexicographer, hacker, gamer, pioneer IE Blocker, amateur photographer, and somewhat podcast transcriptionist. named V. Subhash (Me). I have written a fake American Policy for Dummies book. My e-book How To Invest In Stocks PDF eBook is free but not fake. So, I my PDF eBook version of Ambrose Bierce's Devil's Dictionary, which was created using the all-text original provided by the Guttenberg project and a free software HTMLDoc.

I do not have any time for social notworking sites such as Facebook. They cause a huge loss of productivity in offices where employees have access to Internet. I had a Johnny Bravo fan site but that was gone when Yahoo closed Geocities. Sites such as Facebook, Linked-In, MySpace, Orkut, and Twitter thrive only because spies and marketers feel there is a great need for easy access to demographic and personal information. "Free" pretends to be free for a reason. Otherwise, everything comes with a price tag.

Finally, this website blocks Internet Explorer - all versions, not just IE6. This is the first website on the Internet to do so. If you have a website, I welcome you to do so.