Desktop Wallpaper displaying System Information and Computer Name

Hi guys hope you are well.

Id like to display system information as desktop wallpaper on each server on our network, and was just wondering how you might go about doing this with vbscript.
Such information as:
- Computer Name
- Operating System
- Service Pack
- Memory
- Processor
- IP Address

And be able to use this script against all our servers .

Any help greatly appreciated.

Thank you :>)
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Ashish PatelCommented:
Look at this BgInfo v4.12 for more details view the link below.
kanalQkoTechnical Support EngineerCommented:
G'day Simon,

I'm not sure if BGInfo can turn a HTML into a wallpaper image, but it it can, you could use this to create the HTML file:

strComputer = InputBox("Please enter the computer to generate a page for:", "Computer Name")

If strComputer = "" Then
      Msgbox "No computer name or IP Address was entered.",vbOKOnly,"No Computer Name or IP Address"
End If

If Ping(strComputer) = False Then
      MsgBox strComputer & " did not respond to ping. No action could be taken.",vbOkOnly, "Cannot continue script."
End If      

Set objWMIService = GetObject("winmgmts:" _
      & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colComputer = objWMIService.ExecQuery _
      ("Select * from Win32_ComputerSystem")

Set colComputerIP = objWMIService.ExecQuery _
      ("Select * from Win32_NetworkAdapterConfiguration")

Set colSystemInfo = objWMIService.ExecQuery _
      ("Select * from Win32_OperatingSystem",,48)

For Each objComputer in colComputer
      strUserName = "User Name: " & objComputer.UserName
      strHostName = "Host Name: " & objComputer.Name

For Each IPConfig in colComputerIP
      If Not IsNull(IPConfig.IPAddress) Then
            For intIPCount = LBound(IPConfig.IPAddress) To UBound(IPConfig.IPAddress)
                  strIPAddress = strIPAddress & "IP Address: " & IPConfig.IPAddress(intIPCount) & "~"
      End If

If Right(strIPAddress, 1) = "~" Then
      strIPAddress = Left(strIPAddress, Len(strIPAddress) - 1)
End If
strIPAddress = Replace(strIPAddress, "~", vbCrLf)

For Each objItem in colSystemInfo
      strOS_Caption = "Caption: " & objItem.Caption
      strOS_SPVersion = "SP Version: " & objItem.CSDVersion
      strOS_VerNumber = "Version Number: " & objItem.Version

'MsgBox strUserName & vbcrlf & strHostName & vbcrlf & _
'strIPAddress & vbcrlf & strOS_Caption & vbcrlf & _
'strOS_SPVersion & vbcrlf & strOS_VerNumber, vbOKOnly, "Login Details"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objHTMLFile = objFSO.CreateTextFile(strComputer & ".htm", True)
objHTMLFile.WriteLine "<HTML>"
objHTMLFile.WriteLine "<HEAD>"
objHTMLFile.WriteLine "</HEAD>"
objHTMLFile.WriteLine "<BODY>"
objHTMLFile.WriteLine "<H2>Web page for " & strComputer & "</H2>"
objHTMLFile.WriteLine strUserName & "<BR>" & strHostName & "<BR>" & _
      strIPAddress & "<BR>" & strOS_Caption & "<BR>" & _
      strOS_SPVersion & "<BR>" & strOS_VerNumber
objHTMLFile.WriteLine "</BODY>"
objHTMLFile.WriteLine "</HTML>"
Set objHTMLFile = Nothing

MsgBox "Finished. Please see " & strComputer & ".htm"

Function Ping(strComputer)
      Dim objShell, boolCode
      Set objShell = CreateObject("WScript.Shell")
      boolCode = objShell.Run("Ping -n 1 -w 300 " & strComputer, 0, True)
      If boolCode = 0 Then
            Ping = True
            Ping = False
      End If
End Function



Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
Simon336697Author Commented:
Incredible work Rob (hope u are well :>)).

It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
VB Script

From novice to tech pro — start learning today.