To re-create the Show desktop icon yourself, follow these steps:

1. Click Start, click Run, type notepad in the Open box, and then click OK.

2. Carefully copy and then paste the following text into the Notepad window:

[Shell]
Command=2
IconFile=explorer.exe,3
[Taskbar]
Command=ToggleDesktop

Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run("%comspec% /K test.bat"), 1, True

RMDIR "C:\Windows\temp\test001" /S /Q

/S : Removes all directories and files in the specified directory in addition to the directory itself. Used to remove a directory tree.

/Q : Quiet mode, do not ask if ok to remove a directory tree with /S.

+ Get Shortcut info without using WMI
+ Create a new shortcut

Get Shortcut info without using WMI

strTargetPath="C:\Documents and Settings\All Users\Desktop\My Shortcut.lnk"

Set wshShell = WScript.CreateObject("WScript.Shell")
Set objShortcut = wshShell.CreateShortcut(strTargetPath)

' For URL shortcuts, only ".FullName" and ".TargetPath" are valid
WScript.Echo "Full Name : " & objShortcut.FullName
WScript.Echo "Arguments : " & objShortcut.Arguments
WScript.Echo "Working Directory : " & objShortcut.WorkingDirectory

Disable the Windows Firewall

@ECHO off
netsh firewall set opmode disable
exit

Enable the Windows Firewall

@ECHO off
netsh firewall set opmode enable
exit

Option Explicit
Dim title, lf, HexVal, ErrMsg
title = "Hex to Dec Converter"
lf = vbcrlf

GetInput()

Sub GetInput()
HexVal = UCase(InputBox(ErrMsg & "Enter a Hex value " & _
"to be converted to Decimal:", title))
ConvertHex()
End Sub

Sub ConvertHex()
Dim x, y, z, v
If HexVal = "" Then
WScript.Quit
Else
For x = 1 To Len(HexVal)
y = Mid(HexVal, ((Len(HexVal) - x) + 1), 1)
On Error Resume Next
v = CLng("&H" & y)
If Err.Number <> 0 Then
GetErrMsg()
Exit Sub
End If
On Error GoTo 0
z = z + (v * 16 ^ (x - 1))
Next
If Len(z) > 15 Then

+ Add Formatted Text to a Word Document
+ Add a Formatted Table to a Word Document
+ Apply a Style to a Table in a Word Document
+ Add a Table to a Word Document
+ Append Text to a Word Document
+ Create a New Word Document
+ Create and Save a Word Document
+ Display Service Information in a Word Document
+ List Microsoft Word Properties
+ Modify Bookmark Text in a Word Document
+ Open and Print a Word Document
+ Read a Bookmark in a Word Document
+ Use Word to Search for Files

Add Formatted Text to a Word Document

+ Get Windows Service Pack Version
+ Get CurrentUser, ComputerName & Domain Name
+ Disk Monitoring : Drives Names, DisksSize, FreeSpace & %Used
+ Getting the list of installed programs on the local machine
+ Check if a computer is a Laptop or a Desktop
+ Retrieve Your Computer's MAC Address(es)

Get Windows Service Pack Version

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

Set colOperatingSystems = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")

Your browser may not support display of this image.

How to run Control Panel tools by typing a command:

To run a Control Panel tool in Windows, type the appropriate command in the Open box or at a command prompt.

Accessibility Controls = access.cpl
Add Hardware Wizard = hdwwiz.cpl
Add/Remove Programs = appwiz.cpl
Administrative Tools = control admintools
Automatic Updates = wuaucpl.cpl
Bluetooth Transfer Wizard = fsquirt
Calculator = calc
Certificate Manager = certmgr.msc
Character Map = charmap
Check Disk Utility = chkdsk
Clipboard Viewer = clipbrd

Your browser may not support display of this image.

Shutdown (with 30 second default delay) : Shutdown.exe -s
Shutdown Computer (with delay set to zero) : Shutdown.exe -s -t 00
Restart Computer (with delay set to zero) : Shutdown.exe -r -t 00
Restart (with 30 second default delay) : Shutdown.exe -r
Cancel ShutDown Or Restart : Shutdown.exe -a
Logoff Computer : Shutdown.exe -l
Lock Workstation : Rundll32.exe User32.dll,LockWorkStation