Take the following and paste into a VBS file – then run.

Still need to choose the Link, then set the “Run as administrator” when UAC is on…

 

Set Shell = CreateObject("WScript.Shell") 
Set Env = Shell.Environment("PROCESS") 
DesktopPath = Shell.SpecialFolders("Desktop") 
Set link = Shell.CreateShortcut(DesktopPath & "\WSS CMD.lnk") 

cssHive = Env("CommonProgramFiles") & "\Microsoft Shared\web server extensions\12" 
currentPath = RTrim(Replace(WScript.ScriptFullName, WScript.ScriptName, "")) 
envBatFile = "setWssPath.cmd" 

CreateBatFile currentPath & setWssPath & envBatFile, cssHive 

link.Arguments = "/k " & " " & Chr(34) & currentPath & envBatFile & Chr(34) 
link.Description = "WSS Command Prompt" 
link.HotKey = "CTRL+SHIFT+W" 
link.IconLocation = "%SystemRoot%\system32\SHELL32.dll,94" 
link.TargetPath = "%comspec%" 
link.WindowStyle = 1 
link.WorkingDirectory = cssHive 
link.Save 
Sub CreateBatFile(fileName, cssHive) 
    Set fso = CreateObject("Scripting.FileSystemObject") 
    Set file = fso.CreateTextFile(fileName, True) 
    file.WriteLine("@SET PATH=%PATH%;" & cssHive & "\bin") 
    file.WriteLine("@ECHO WSS CMD Shell - Shawn Cicoria") 
    file.WriteLine("CD " & cssHive)

End Sub