Display Computer Settings on your Desktop

**Anilrgowda** · 08-Mar-2007, 10:12 PM

Question: I am looking for a program or utility that will display my computer settings (username, ip, computer name, etc.) on my desktop. I have seen this accomplished on a linux box, and wanted to replicate it on windows xp. I know you can't do it within the XP OS, but I figured there had to be a utility that would achieve the same results. Thanks,

**Anilrgowda** · 08-Mar-2007, 10:12 PM

OK rough detail for now:

HTML file as follows... this had a background image and a second image on the right with the text at the bottom right of the page... you can probably lay this out better. The important bits are:

<SCRIPT LANGUAGE='JavaScript' type='text/javascript' src='pcname.js'></SCRIPT>

which locally embeds a javascript file on the pc.... this can point to a known (same) location on each PC C: drive then the login sript has to create the .js files as

echo document.write("USERNAME: %username%") > c:\yourdir\username.js
echo document.write("COMPUTER NAME: %computername%") > c:\yourdir\username.js
etc.
You can use VBS or batch file to create these files or any other language you prefer.
The IP Address is a little harder to get

del c:\yourdir\ipaddress.js 2>NUL
for /f "tokens=2 delims=:" %a in ('ipconfig ^| find "IP Address"') do echo document.write("IP ADDRESS: %%a") >> c:\yourdir\ipaddress.js

Have a play and I'll see what else I can come up with too.

Steve

<html>
<head>
<title>Help</title>

</head>
<body topmargin=0 rightmargin=0 leftmargin=0 background="Clouds_Large.jpg">

<table width='100%' height='100%' cellspacing='0' cellpadding='0' border='0'>
<tr>
<td rowspan='2' width='50%'></td>

<td width='50%' colspan='2'>
<img src='Background/BlueGrad.jpg' width='100%' height='100%' border='0'>
</td>
</tr>
<tr>
<td height='100' align='right' valign='middle' bgcolor='#010281'>
<b>
<p><SCRIPT LANGUAGE='JavaScript' type='text/javascript' src='pcname.js'></SCRIPT></p>
<p><SCRIPT LANGUAGE='JavaScript' type='text/javascript' src='username.js'></SCRIPT></p>
<p><SCRIPT LANGUAGE='JavaScript' type='text/javascript' src='ipaddr.js'></SCRIPT></p>
</b>
</td>
<td width='10' bgcolor='#010281'></td>
</tr>
</table>

</body>
</html>

**Mr. Jiggs** · 20-May-2008, 01:49 PM

I wrote a VB script which uses WMI to get this information to appear in a dialog box. I also wrote a VB .Net utility that takes it a bit further by displaying the basic info as information with a transparent background. Lets see if the script fits in this editor:
On Error Resume Next
Dim strComputer
Dim objWMIService
Dim propValue
Dim objItem
Dim SWBemlocator
Dim UserName
Dim Password
Dim colItems
Dim tempStr
Dim tempXtra

strComputer = "."
UserName = ""
Password = ""
tempStr=""
tempXtra=""

Set SWBemlocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = SWBemlocator.ConnectServer(strComputer,"root\CIMV2 ",UserName,Password)

Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
For Each objItem in colItems
tempstr = tempstr & "UserName: " & objItem.UserName & vbNewLine
tempstr = tempstr & "Machine Name: " & objItem.Caption & vbNewLine
tempstr = tempstr & "Domain: " & objItem.Domain & vbNewLine
tempXtra = tempXtra & "Memory: " & FormatNumber(objItem.TotalPhysicalMemory / 1024 \ 1024,1) & " MB" & vbNewLine
tempXtra = tempXtra & "SystemType: " & objItem.SystemType & vbNewLine
tempXtra = tempXtra & "Description: " & objItem.Description & vbNewLine
tempXtra = tempXtra & "PC Make & Model: " & objItem.Manufacturer & " - " & objItem.Model & vbNewLine
tempXtra = tempXtra & "Processors (Physical/Logical): " & objItem.NumberOfProcessors & "/" & objItem.NumberOfLogicalProcessors & vbNewLine
Next

Set colItems = objWMIService.ExecQuery("Select * from Win32_DisplayControllerConfiguration",,48)
For Each objItem in colItems
tempXtra = tempXtra & "Video Card: " & objItem.Name & vbNewLine
tempXtra = tempXtra & "Resolution: " & objItem.VideoMode & vbNewLine
Next

Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration",,48)
For Each objItem in colItems
If Not IsNull(objItem.DNSHostName) Then
for each propValue in objItem.IPAddress
If propValue <> "0.0.0.0" Then
tempstr = tempstr & "IPAddress: " & propValue & vbNewLine
End If
Next
End If
Next
tempstr = tempstr & vbNewLine

If Len(tempStr)<1 Then
tempStr="Nothing found…"
End If

Set colItems = objWMIService.ExecQuery("Select * from Win32_DiskDrive",,48)
For Each objItem in colItems
tempstr = tempStr & "Model: " & objItem.Model & vbTab
tempStr = tempStr & "(" & FormatNumber(objItem.Size/1024\1024,0) & " MB)" & vbNewLine
Next

Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalDisk",,48)
For Each objItem in colItems
tempstr = tempstr & "Drive: " & objItem.Caption & Space(4)
tempstr = tempstr & objItem.FileSystem & vbTab
tempstr = tempstr & "(" & objItem.Description & ")" & vbnewline
tempstr = tempstr & Space(4) & FormatNumber(objItem.Size /1024 \ 1024,0) & " MB" & vbtab
tempstr = tempstr & "(" & FormatNumber(objItem.FreeSpace/1024\1024,0) & " MB Free)" & vbnewline
Next

wscript.Echo tempStr & vbNewLine & tempXtra

08-Mar-2007, 10:12 PM	#1 (permalink)
Anilrgowda Administrator Posts: 18,715 Join Date: Jan 2006 Rep Power: 10 IM:	Display Computer Settings on your Desktop Question: I am looking for a program or utility that will display my computer settings (username, ip, computer name, etc.) on my desktop. I have seen this accomplished on a linux box, and wanted to replicate it on windows xp. I know you can't do it within the XP OS, but I figured there had to be a utility that would achieve the same results. Thanks,

08-Mar-2007, 10:12 PM	#2 (permalink)
Anilrgowda Administrator Posts: 18,715 Join Date: Jan 2006 Rep Power: 10 IM:	Re: Display Computer Settings on your Desktop OK rough detail for now: HTML file as follows... this had a background image and a second image on the right with the text at the bottom right of the page... you can probably lay this out better. The important bits are: <SCRIPT LANGUAGE='JavaScript' type='text/javascript' src='pcname.js'></SCRIPT> which locally embeds a javascript file on the pc.... this can point to a known (same) location on each PC C: drive then the login sript has to create the .js files as echo document.write("USERNAME: %username%") > c:\yourdir\username.js echo document.write("COMPUTER NAME: %computername%") > c:\yourdir\username.js etc. You can use VBS or batch file to create these files or any other language you prefer. The IP Address is a little harder to get del c:\yourdir\ipaddress.js 2>NUL for /f "tokens=2 delims=:" %a in ('ipconfig ^\| find "IP Address"') do echo document.write("IP ADDRESS: %%a") >> c:\yourdir\ipaddress.js Have a play and I'll see what else I can come up with too. Steve <html> <head> <title>Help</title> </head> <body topmargin=0 rightmargin=0 leftmargin=0 background="Clouds_Large.jpg"> <table width='100%' height='100%' cellspacing='0' cellpadding='0' border='0'> <tr> <td rowspan='2' width='50%'></td> <td width='50%' colspan='2'> <img src='Background/BlueGrad.jpg' width='100%' height='100%' border='0'> </td> </tr> <tr> <td height='100' align='right' valign='middle' bgcolor='#010281'> <b> <p><SCRIPT LANGUAGE='JavaScript' type='text/javascript' src='pcname.js'></SCRIPT></p> <p><SCRIPT LANGUAGE='JavaScript' type='text/javascript' src='username.js'></SCRIPT></p> <p><SCRIPT LANGUAGE='JavaScript' type='text/javascript' src='ipaddr.js'></SCRIPT></p> </b> </td> <td width='10' bgcolor='#010281'></td> </tr> </table> </body> </html>

20-May-2008, 01:49 PM	#3 (permalink)
Mr. Jiggs Fix my Error! Posts: 1 Join Date: May 2008 Rep Power: 0 IM:	Re: Display Computer Settings on your Desktop I wrote a VB script which uses WMI to get this information to appear in a dialog box. I also wrote a VB .Net utility that takes it a bit further by displaying the basic info as information with a transparent background. Lets see if the script fits in this editor: On Error Resume Next Dim strComputer Dim objWMIService Dim propValue Dim objItem Dim SWBemlocator Dim UserName Dim Password Dim colItems Dim tempStr Dim tempXtra strComputer = "." UserName = "" Password = "" tempStr="" tempXtra="" Set SWBemlocator = CreateObject("WbemScripting.SWbemLocator") Set objWMIService = SWBemlocator.ConnectServer(strComputer,"root\CIMV2 ",UserName,Password) Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48) For Each objItem in colItems tempstr = tempstr & "UserName: " & objItem.UserName & vbNewLine tempstr = tempstr & "Machine Name: " & objItem.Caption & vbNewLine tempstr = tempstr & "Domain: " & objItem.Domain & vbNewLine tempXtra = tempXtra & "Memory: " & FormatNumber(objItem.TotalPhysicalMemory / 1024 \ 1024,1) & " MB" & vbNewLine tempXtra = tempXtra & "SystemType: " & objItem.SystemType & vbNewLine tempXtra = tempXtra & "Description: " & objItem.Description & vbNewLine tempXtra = tempXtra & "PC Make & Model: " & objItem.Manufacturer & " - " & objItem.Model & vbNewLine tempXtra = tempXtra & "Processors (Physical/Logical): " & objItem.NumberOfProcessors & "/" & objItem.NumberOfLogicalProcessors & vbNewLine Next Set colItems = objWMIService.ExecQuery("Select * from Win32_DisplayControllerConfiguration",,48) For Each objItem in colItems tempXtra = tempXtra & "Video Card: " & objItem.Name & vbNewLine tempXtra = tempXtra & "Resolution: " & objItem.VideoMode & vbNewLine Next Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration",,48) For Each objItem in colItems If Not IsNull(objItem.DNSHostName) Then for each propValue in objItem.IPAddress If propValue <> "0.0.0.0" Then tempstr = tempstr & "IPAddress: " & propValue & vbNewLine End If Next End If Next tempstr = tempstr & vbNewLine If Len(tempStr)<1 Then tempStr="Nothing found…" End If Set colItems = objWMIService.ExecQuery("Select * from Win32_DiskDrive",,48) For Each objItem in colItems tempstr = tempStr & "Model: " & objItem.Model & vbTab tempStr = tempStr & "(" & FormatNumber(objItem.Size/1024\1024,0) & " MB)" & vbNewLine Next Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalDisk",,48) For Each objItem in colItems tempstr = tempstr & "Drive: " & objItem.Caption & Space(4) tempstr = tempstr & objItem.FileSystem & vbTab tempstr = tempstr & "(" & objItem.Description & ")" & vbnewline tempstr = tempstr & Space(4) & FormatNumber(objItem.Size /1024 \ 1024,0) & " MB" & vbtab tempstr = tempstr & "(" & FormatNumber(objItem.FreeSpace/1024\1024,0) & " MB Free)" & vbnewline Next wscript.Echo tempStr & vbNewLine & tempXtra

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)