OK I get that,
Here is the code I am trying to display that I have stored in MY Computer Information.kix, maybe you know of an easier way to have this work.

I want the user to be able to double-click this and have it run when they call us for help desk.
code:
;**** Created with KiXscripts Editor | http://KiXscripts.com ****
;**** Last Modified on 2/21/2003 at 11:59:03 AM by mmontgomery ****

; *** File Name:     MYCOMP.KIX *** v1.3
; *** Date Created: 2002-03-05 by Ron Lewis
; *** Last Date Modified: 2002-10-01 11:20 PST - By Ron Lewis
; *** CHANGE: Updated for use with GetIPinfo UDF, added CPU & Speed, and Low disk space warning.
; ***         Removed the amount of days, SMS ID, USER SID so that all info would fit on 800x600
; *** Comments:	This file is called by a shortcut on the users desktop.
; *** Acknowledgments: Thanks to the following for help and ideas
; *** Shawn, Bryce, Fabian, bleonard, and Howard Bullock


Break On
$IPaddr = EnumIPInfo(0,0)
If $IPaddr = "0.0.0.0" OR $IPaddr = ""
  $IPinfo = GetIPinfo()
  $IPaddr = $IPinfo[0]
  $SNmask = $IPinfo[1]
  $Gateway = $IPinfo[2]
Else
  $SNmask = EnumIPInfo(0,1)
  $Gateway = EnumIPInfo(0,3)
EndIf

$nul = SetConsole("hide")
$HKLMAppPaths = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths"
; CheckIE variables
  Dim $RC1, $RC2, $RC3, $TmpLen1, $TmpLen2, $TmpLen3
  Dim $IEBuild, $IEFullVer, $IEMajor, $IEMinor, $IESubBd, $IEVer, $IECustom, $IEName

While @error = 0
	$app = EnumKey("$HKLMAppPaths\",$index) $index = $index + 1
	Select
		Case $app = "excel.exe"
			$path = ReadValue("$HKLMAppPaths\$app","path")
			$Excelver = GetFileVersion("$path\$app","Productversion")
		Case $app = "winword.exe"
			$path = ReadValue("$HKLMAppPaths\$app","path")
			$Wordver = GetFileVersion("$path\$app","Productversion")
		Case $app = "powerpnt.exe"
			$path = ReadValue("$HKLMAppPaths\$app","path")
			$PowerPointver = GetFileVersion("$path\$app","Productversion")
		Case $app = "msaccess.exe"
			$path = ReadValue("$HKLMAppPaths\$app","path")
			$Accessver = GetFileVersion("$path\$app","Productversion")
		Case $app = "mspub.exe"
			$path = ReadValue("$HKLMAppPaths\$app","path")
			$Publisherver = GetFileVersion("$path\$app","Productversion")
		Case $app = "winproj.exe"
			$path = ReadValue("$HKLMAppPaths\$app","path")
			$Projectver = GetFileVersion("$path\$app","Productversion")
		Case $app = "visio32.exe"
			$path = ReadValue("$HKLMAppPaths\$app","path")
			$Visiover = GetFileVersion("$path\$app","Productversion")
		Case $app = "outlook.exe"
			$path = ReadValue("$HKLMAppPaths\$app","path")
			$Outlookver = GetFileVersion("$path\$app","Productversion")
	EndSelect
Loop

$Ex=$Excelver
$Wo=$Wordver
$Po=$PowerPointver
$Ac=$Accessver
$Pu=$Publisherver
$Pr=$Projectver
$Vi=$Visiover
$Ou=$Outlookver

Gosub "CheckIE"

$DiskSpace = GetDiskSpace("C:\") /1024
$RequiredSpace="200"
If $DiskSpace < $RequiredSpace
	$Low="WARNING! - WARNING!	: Disk space on your C: drive is low"
Else
	$Low=""
EndIf
$DaysLeft=365-@ydayno
$rc=""
$MyCPU=""
$MySpeed=Val(@MHZ)
$Mem = MemorySize()
If $MySpeed < 1001
	$MySpeed=("$MySpeed Mhz")
Else
	$MySpeed=("$MySpeed Ghz")
EndIf
If @INWIN=1	; Windows NT systems
	$MyCPU="CPU			: "+@CPU +"   "+$MySpeed
	$IsAdmin=""
	Select
		Case InGroup("\\@WKSTA\Administrators") = 1
			$IsAdmin="Yes"
		Case 1
			$IsAdmin="No"
	EndSelect
	$rc="Administrator		: "+$IsAdmin
EndIf


$SMS_ID=ReadValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\SMS\Client\configuration\Client Properties\","SMS Unique Identifier")
$pass_age=60-@pwage

;	Message Box Display Section				
$HDNumber = MessageBox("
Help Desk Support Number	: 302-855-7898
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
My User Logon ID		: @UserID
Full Name			: @FULLNAME
Operating System		: @PRODUCTTYPE Build @BUILD
Service Pack Level		: @CSD
$MyCPU
Memory Size		: $Mem MB
$rc
Current Workstation Time	: @TIME
Available Drive Space On C:   : $DiskSpace  MB
$Low
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
My Computer Name		: @WKSTA
Computer DNS Name	: @HOSTNAME
IP Address		: $IPaddr
Subnet Mask		: $SNmask
Default Gateway		: $Gateway
MAC Address		: @address
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Days Until Password Expires	: $pass_age
Password Age		: @PWAGE
Logon Domain		: @domain
Logon Server		: @LSERVER
Primary NT Group		: @PRIMARYGROUP
Home Directory		: @HOMEDIR
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Microsoft Office:
Access			: $Ac     
Excel			: $Ex     
Internet Explorer		: $IEFullVer   $IEName
Outlook			: $Ou     
PowerPoint		: $Po     
Project			: $Pr     
Publisher			: $Pu 
Visio			: $Vi     
Word			: $Wo     
" ,"My Computer Information",262208,0)
Goto end

:CheckIE
; REM **  Confirm Internet Explorer installed on system  (See MS TechNet article Q164539)
; REM **  Format of IE Version numbers: x.xx.xxxx.xxxx  (Major.Minor.Build.SubBuild)
  $RC1 = ReadValue ("HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer", "Build")		; REM **  IE3 onward  (s/b build only, or xxxxx.xxxx)
  $RC2 = ReadValue ("HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer", "Version")	; REM **  IE4 or later only  (s/b xx.xx.xxxx.xxxx)
  $RC3 = ReadValue ("HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer", "IVer")		; REM **  IE3 only  (s/b xxx)
  $IECustom = ReadValue ("HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer", "CustomizedVersion")	; REM **  IE4 or later only: (IC = Internet Content Provider IS = Internet Service Provider CO = Corporate Administrator )
  $TmpLen1 = Len ($RC1)
  $TmpLen2 = Len ($RC2)
  $TmpLen3 = Len ($RC3)

Select
    Case ($TmpLen1 = 5) AND (SubStr ($RC2, 4, 1) = ".")		; REM **  IE6 (WinXP) - MS error w/IE 6 where minor id is single charcter, and build value only 5 characters
      $IEMajor = SubStr ($RC2, 1, 1)
      $IEMinor = SubStr ($RC2, 3, 1) + "0"
      $IEBuild = SubStr ($RC2, 5, 4)
      $IESubBd = SubStr ($RC2, 10, $TmpLen2-9)
      $IEFullVer = $IEMajor + "." + $IEMinor + "." + $IEBuild + "." + $IESubBd
    Case ($TmpLen1 = 10) AND (SubStr ($RC2, 4, 1) = ".")	; REM **  IE6 (Win2K) - MS error w/IE 6 where minor id is single charcter
      $IEMajor = SubStr ($RC2, 1, 1)
      $IEMinor = SubStr ($RC2, 3, 1) + "0"
      $IEBuild = SubStr ($RC2, 5, 4)
      $IESubBd = SubStr ($RC2, 10, $TmpLen2-9)
      $IEFullVer = $IEMajor + "." + $IEMinor + "." + $IEBuild + "." + $IESubBd
    Case ($TmpLen1 = 14) OR ($TmpLen2 >= 11)			; REM **  IE5/IE4 - 14 is MS error w/IE 5.01 SP1 for Win2K, >=11 for various IE4, 5 versions not 14-character
      $IEFullVer = $RC2
      $IEMajor = SubStr ($RC2, 1, 1)
      $IEMinor = SubStr ($RC2, 3, 2)
      $IEBuild = SubStr ($RC2, 6, 4)
      $IESubBd = SubStr ($RC2, 11, $TmpLen2-9)
    Case ($TmpLen1 >= 3) AND ($RC3 = "103")			; REM **  IE3 - the build number only
      $IEMajor = "4"
      $IEMinor = "70"
      $IEBuild = "$RC1"
      $IESubBd = ""
      $IEFullVer = $IEMajor + "." + $IEMinor + "." + $IEBuild
    Case (1)
      $Status = $Skip
      $wri = WriteLine (1, "Verified IE not installed." + $CR)
      Return
  EndSelect

; REM **  Determine exact version installed on system, (See MS TechNet article Q164539)
  Select
    Case ($IEFullVer >= "6.00.2600.0000")	$IEVer = "6.00"		$IEName="Internet Explorer 6"
    Case ($IEFullVer >= "6.00.2479.0006")	$IEVer = "6.00"		$IEName="Internet Explorer 6 Public Preview (Beta) Refresh"
    Case ($IEFullVer >= "6.00.2462.0000")	$IEVer = "6.00"		$IEName="Internet Explorer 6 Public Preview (Beta)"
    Case ($IEFullVer >= "5.50.4807.2300")	$IEVer = "5.50 SP2"	$IEName="Internet Explorer 5.5 Service Pack 2"
    Case ($IEFullVer >= "5.50.4522.1800")	$IEVer = "5.50 SP1"	$IEName="Internet Explorer 5.5 Service Pack 1"
    Case ($IEFullVer >= "5.50.4308.2900")	$IEVer = "5.50"		$IEName="Internet Explorer 5.5 Advanced Security Privacy Beta"
    Case ($IEFullVer >= "5.50.4134.0600")	$IEVer = "5.50"		$IEName="Internet Explorer 5.5"
    Case ($IEFullVer >= "5.50.4134.0100")	$IEVer = "5.50"		$IEName="Internet Explorer 5.5		(Windows Me - 4.90.3000)"
    Case ($IEFullVer >= "5.50.4030.2400")	$IEVer = "5.50"		$IEName="Internet Explorer 5.5 & Internet Tools Beta"
    Case ($IEFullVer >= "5.50.3825.1300")	$IEVer = "5.50"		$IEName="Internet Explorer 5.5 Developer Preview (Beta)"
    Case ($IEFullVer >= "5.00.3315.1000")	$IEVer = "5.01 SP2"	$IEName="Internet Explorer 5.01 SP2	(Windows 2000)"
    Case ($IEFullVer >= "5.00.3314.2101")	$IEVer = "5.01 SP2"	$IEName="Internet Explorer 5.01 SP2	(Windows 95/98 and Windows NT 4.0)"
    Case ($IEFullVer >= "5.00.3105.0106")	$IEVer = "5.01 SP1"	$IEName="Internet Explorer 5.01 SP1	(Windows 95/98 and Windows NT 4.0)"
    Case ($IEFullVer >= "5.00.3103.1000")	$IEVer = "5.01 SP1"	$IEName="Internet Explorer 5.01 SP1	(Windows 2000)"
    Case ($IEFullVer >= "5.00.2920.0000")	$IEVer = "5.01"		$IEName="Internet Explorer 5.01 	(Windows 2000, build 5.00.2195)"
    Case ($IEFullVer >= "5.00.2919.6307")	$IEVer = "5.01"		$IEName="Internet Explorer 5.01	(Also included with Office 2000 SR-1)"
    Case ($IEFullVer >= "5.00.2919.3800")	$IEVer = "5.01"		$IEName="Internet Explorer 5.01	(Windows 2000 RC2, build 5.00.2128)"
    Case ($IEFullVer >= "5.00.2919.800")	$IEVer = "5.01"		$IEName="Internet Explorer 5.01	(Windows 2000 RC1, build 5.00.2072)"
    Case ($IEFullVer >= "5.00.2516.1900")	$IEVer = "5.01"		$IEName="Internet Explorer 5.01 	(Windows 2000 Beta 3, build 5.00.2031)"
    Case ($IEFullVer >= "5.00.2614.3500")	$IEVer = "5.00"		$IEName="Internet Explorer 5		(Windows 98 Second Edition)"
    Case ($IEFullVer >= "5.00.2314.1003")	$IEVer = "5.00"		$IEName="Internet Explorer 5 		(Office 2000)"
    Case ($IEFullVer >= "5.00.2014.0216")	$IEVer = "5.00"		$IEName="Internet Explorer 5"
    Case ($IEFullVer >= "5.00.0910.1309")	$IEVer = "5.00"		$IEName="Internet Explorer 5 Beta 	(Beta 2)"
    Case ($IEFullVer >= "5.00.0518.10")		$IEVer = "5.00"		$IEName="Internet Explorer 5 Developer Preview (Beta 1)"
    Case ($IEFullVer >= "4.72.3612.1713")	$IEVer = "4.01 SP2"	$IEName="Internet Explorer 4.01 Service Pack 2 (SP2)"
    Case ($IEFullVer >= "4.72.3110.8")		$IEVer = "4.01 SP1"	$IEName="Internet Explorer 4.01 Service Pack 1 (SP1)"
    Case ($IEFullVer >= "4.72.2106.8")		$IEVer = "4.01"		$IEName="Internet Explorer 4.01"
    Case ($IEFullVer >= "4.71.1712.6")		$IEVer = "4.00"		$IEName="Internet Explorer 4.0"
    Case ($IEFullVer >= "4.71.1008.3")		$IEVer = "4.00"		$IEName="Internet Explorer 4.0 Platform Preview 2.0 (PP2)"
    Case ($IEFullVer >= "4.71.544")			$IEVer = "4.00"		$IEName="Internet Explorer 4.0 Platform Preview 1.0 (PP1)"
    Case ($IEFullVer >= "4.70.1300")		$IEVer = "3.02"		$IEName="Internet Explorer 3.02 and 3.02a"
    Case ($IEFullVer >= "4.70.1215")		$IEVer = "3.01"		$IEName="Internet Explorer 3.01"
    Case ($IEFullVer >= "4.70.1158")		$IEVer = "3.00"		$IEName="Internet Explorer 3.0 	(OSR2)"
    Case ($IEFullVer >= "4.70.1155")		$IEVer = "3.00"		$IEName="Internet Explorer 3.0"
    Case ($IEFullVer >= "4.40.520")			$IEVer = "2.00"		$IEName="Internet Explorer 2.0"
    Case ($IEFullVer >= "4.40.308")			$IEVer = "1.00"		$IEName="Internet Explorer 1.0		(Plus!)"
  EndSelect
Return

Function GetIPinfo()
	Dim $IPinfo[3], $file, $RC, $Line, $pos, $Loop
	If Open(1,"%TEMP%\"+@WKSTA+".LOG", 5)= 0
		$out = WriteLine(1, "Gathering IP info using GetIPinfo()")
		$x = Close(1)
	EndIf
	$file = "%TEMP%\"+@WKSTA+".LOG"
	If @inwin=1
		Shell "%comspec% /c ipconfig >$file"
	Else
		Shell "winipcfg /batch $file"
	EndIf
	$RC = Open(5, "$file", 2)
	If $RC = 0
		$Line=ReadLine(5)
		$Loop = 1
		While (@ERROR = 0 AND $Loop = 1)
			If InStr($Line, ". . . : ") > 0
				While (@ERROR = 0 AND $Loop = 1)
					Select
						Case InStr($Line, "IP Address") > 0
							$pos = InStr($Line, ":")
							$IPinfo[0] = SubStr($Line, $pos+2, 15)
						Case InStr($Line, "Subnet Mask") > 0
							$IPinfo[1] = SubStr($Line, $pos+2, 15)
						Case InStr($Line, "Default Gateway") > 0
							$IPinfo[2] = SubStr($Line, $pos+2, 15)
							If $IPinfo[2] <> "0.0.0.0" AND $IPinfo[2] <> ""
								$Loop = 0
							EndIf
					EndSelect
					$Line=ReadLine(5)
				Loop
			EndIf
			$Line=ReadLine(5)
		Loop
		$RC=Close(5)
	EndIf
	$GetIPinfo = $IPinfo
EndFunction

:end
Exit(0)