[Identification] OptionType = NetService [Options] ; Finger ; rCommands ; Serlogin ; Session ; Telnetd TELNETD [FileConstants] UtilityInf = "UTILITY.INF" subroutineinf = "SUBROUTN.INF" SoftwareType = "service" Exit_Code = 0 Manufacturer = "Microsoft" SystemService = $(!NTN_ServiceBase) ServiceKeyName = $(!NTN_ServiceBase) TCPIPKeyName = $(!NTN_ServiceBase)"\TCPIP" RSMKeyName = $(!NTN_ServiceBase)"\Remote Session Manager" ; ; Binary, MessageFile, Productname, Major Version, Minor version ; [ServiceClasses] ;Finger = "fingsvc.exe","fingmsgs.dll","Finger","1","1" ;rCommands= "rshell.exe","rshmsgs.dll","RemoteShell","1","1" ;Serlogin = "serlogin.exe","slogmsgs.dll","SerialLogin","1","1" SESSION = "rsmsvc.exe","rsmsvc.exe","Remote Session Manager","1","1" TELNETD = "telnetd.exe","telnetd.exe","Telnetd","1","1" [GeneralConstants] from = "" to = "" ExitCodeOk = 0 ExitCodeCancel = 1 ExitCodeFatal = 2 KeyNull = "" MAXIMUM_ALLOWED = 33554432 RegistryErrorIndex = NO_ERROR KeyProduct = "" KeyParameters = "" TRUE = 1 FALSE = 0 NoTitle = 0 ExitState = "Active" OldVersionExisted = $(FALSE) DefaultStatusReturn = STATUS_NO_EFFECT DriverPath = $(!STF_NTPATH)\drivers [date] Now = {} ? $(!LIBHANDLE) GetSystemDate [Identify] read-syms Identification set Status = STATUS_SUCCESSFUL set Identifier = $(OptionType) set Media = #("Source Media Descriptions", 1, 1) Return $(Status) $(Identifier) $(Media) [ReturnOptions] set Status = STATUS_FAILED set OptionList = {} set OptionTextList = {} set LanguageList = ^(LanguagesSupported, 1) Ifcontains(i) $($0) in $(LanguageList) goto returnoptions else set Status = STATUS_NOLANGUAGE goto finish_ReturnOptions endif returnoptions = + set OptionList = ^(Options, 1) set OptionTextList = ^(OptionsText$($0), 1) set Status = STATUS_SUCCESSFUL finish_ReturnOptions = + Return $(Status) $(OptionList) $(OptionTextList) [InstallOption] set Option = $($1) set SrcDir = $($2) set AddCopy = $($3) set DoCopy = $($4) set DoConfig = $($5) set LanguageList = ^(LanguagesSupported, 1) Ifcontains(i) $($0) NOT-IN $(LanguageList) Return STATUS_NOLANGUAGE endif set-subst LF = "\n" read-syms GeneralConstants read-syms FileConstants read-syms DialogConstants$(!STF_LANGUAGE) ifstr(i) $(!NTN_Origination) == "NCPA" set Continue = $(OK) endif read-syms FileConstants$(!STF_LANGUAGE) detect date set-title $(FunctionTitle) set to = Begin set from = Begin ; shell "subroutn.inf" SetupMessage $(!STF_LANGUAGE) STATUS $(Option) set ProductSoftwareName = #(ServiceClasses,$(Option),3) set ProductMajorVersion = #(ServiceClasses,$(Option),4) set ProductMinorVersion = #(ServiceClasses,$(Option),5) set ProductVersion = $(ProductMajorVersion)"."$(ProductMinorVersion) set ProductSoftwareImagePath = "%SystemRoot%\System32\"#(ServiceClasses,$(Option),1) set ProductKeyName = $(!NTN_SoftwareBase)"\"$(Manufacturer)"\"$(ProductSoftwareName)"\CurrentVersion" set ProductMsgDLL = "%SystemRoot%\System32\"#(ServiceClasses,$(Option),2) set CommonStatus = STATUS_SUCCESSFUL EndWait Begin = + Ifstr(i) $(!NTN_InstallMode) == deinstall set StartLabel = removeadapter else-Ifstr(i) $(!NTN_InstallMode) == Update set StartLabel = UpgradeSoftware else-Ifstr(i) $(!NTN_InstallMode) == bind set StartLabel = bindingadapter else-Ifstr(i) $(!NTN_InstallMode) == configure set StartLabel = configureadapter else set StartLabel = installadapter endif set from = $(fatal) set to = $(fatal) goto $(StartLabel) installadapter = + ; If the app is telnetd or rCommands, check to see that the ; TCP/IP stuff is loaded ifstr(i) $(Option) != "Serlogin" OpenRegKey $(!REG_H_LOCAL) "" $(TCPIPKeyName) $(MAXIMUM_ALLOWED) TCPIPKey Ifstr $(TCPIPKey) == $(KeyNull) set Error = "Please install Microsoft TCP/IP before installing the Telnet Server" goto fatal endif CloseRegKey $(TCPIPKey) endif ; If the app is serlogin, telnetd, or rCommands, then check to see ; that the remote session manager is loaded ;ifcontains(i) $(Option) in {"Serlogin","Telnetd","rCommands"} ; OpenRegKey $(!REG_H_LOCAL) "" $(RSMKeyName) $(MAXIMUM_ALLOWED) RSMKey ; Ifstr $(RSMKey) == $(KeyNull) ; set Error = "Please install the Remote Session Manager before installing this component." ; goto fatal ; endif ; CloseRegKey $(RSMKey) ;endif ;set FLibraryErrCtl = 1 ;shell "subroutn.inf" SetupMessage $(!STF_LANGUAGE) STATUS $(ProductKeyName) OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyName) $(MAXIMUM_ALLOWED) KeyProduct Ifstr $(KeyProduct) != $(KeyNull) CloseRegKey $(KeyProduct) Shell $(UtilityInf), VerExistedDlg, $(ProductSoftwareTitle),+ $(ProductVersion) ifint $($ShellCode) != $(!SHELL_CODE_OK) Debug-Output "ShellCode error: cannot get an error string." goto ShellCodeError endif goto end endif StartWait ifstr(i) $(OldVersionExisted) == $(FALSE) Ifstr(i) $(DoCopy) == "YES" Shell $(UtilityInf), DoAskSource, $(!STF_CWDDIR), $(SrcDir) YES Ifint $($ShellCode) != $(!SHELL_CODE_OK) Goto ShellCodeError Else-Ifstr(i) $($R0) == STATUS_FAILED Shell $(UtilityInf) RegistryErrorString "ASK_SOURCE_FAIL" ifint $($ShellCode) != $(!SHELL_CODE_OK) goto ShellCodeError endif set Error = $($R0) Goto fatal Else-Ifstr(i) $($R0) == STATUS_USERCANCEL Goto successful Endif Set SrcDir = $($R1) Endif ; ; Do the file copies ; install "Install-Option" ifstr(i) $(STF_INSTALL_OUTCOME) != STF_SUCCESS Shell $(UtilityInf) RegistryErrorString "UNABLE_COPY_FILE" ifint $($ShellCode) != $(!SHELL_CODE_OK) goto ShellCodeError endif set Error = $($R0) goto fatal endif set OEM_ABANDON_ON = TRUE ; ; Do the registry and service stuff ; read-syms Defaults-$(Option) ; shell "subroutn.inf" SetupMessage $(!STF_LANGUAGE) STATUS $(ProductSoftwareDisplayName) Shell $(UtilityInf), AddSoftwareComponent, $(Manufacturer), + $(ProductSoftwareName), $(ProductSoftwareName),+ $(ProductSoftwareDisplayName), + $(STF_CONTEXTINFNAME), $(ProductSoftwareImagePath), "autoserviceshare", "",+ $(ProductSoftwareDependancies), "", $(ProductMsgDLL) ; shell "subroutn.inf" SetupMessage $(!STF_LANGUAGE) STATUS $(RegLastError) Set SoftwareProductKey = $($R1) Set SoftwareNetRuleKey = $($R2) Set SoftwareServiceKey = $($R3) Set KeyParameters = $($R4) Set SoftLinkageKey = $($R5) ifint $($ShellCode) != $(!SHELL_CODE_OK) Debug-Output "ShellCode error" goto ShellCodeError endif set RegistryErrorIndex = $($R0) Ifstr(i) $(RegistryErrorIndex) != NO_ERROR EndWait Debug-Output "Registry error: add software components" CloseRegKey $(SoftwareProductKey) CloseRegKey $(SoftwareNetRuleKey) CloseRegKey $(SoftwareServiceKey) CloseRegKey $(KeyParameters) CloseRegKey $(SoftLinkageKey) goto fatalregistry endif ; read-syms Defaults-$(Option) Shell $(UtilityInf), AddValueList, $(KeyParameters), $(NewValueList) ifint $($ShellCode) != $(!SHELL_CODE_OK) Debug-Output "ShellCode error." goto ShellCodeError endif set RegistryErrorIndex = $($R0) Ifstr(i) $(RegistryErrorIndex) != NO_ERROR EndWait Debug-Output "Resgitry error: add value list." CloseRegKey $(SoftwareProductKey) CloseRegKey $(SoftwareNetRuleKey) CloseRegKey $(SoftwareServiceKey) CloseRegKey $(SoftLinkageKey) CloseRegKey $(KeyParameters) goto fatalregistry endif set NewValueList = {{SoftwareType,$(NoTitle),$(!REG_VT_SZ),$(SoftwareType)},+ {MajorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMajorVersion)},+ {MinorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMinorVersion)},+ {Title,$(NoTitle),$(!REG_VT_SZ),$(ProductSoftwareTitle)},+ {Description,$(NoTitle),$(!REG_VT_SZ),$(ProductSoftwareDescription)},+ {ServiceName,$(NoTitle),$(!REG_VT_SZ),$(ProductSoftwareName)},+ {InstallDate,$(NoTitle),$(!REG_VT_DWORD),*($(Now),1)}} Shell $(UtilityInf), AddValueList, $(SoftwareProductKey), $(NewValueList) ifint $($ShellCode) != $(!SHELL_CODE_OK) Debug-Output "ShellCode error." goto ShellCodeError endif set RegistryErrorIndex = $($R0) Ifstr(i) $(RegistryErrorIndex) != NO_ERROR EndWait Debug-Output "Resgitry error: add value list." CloseRegKey $(SoftwareProductKey) CloseRegKey $(SoftwareNetRuleKey) CloseRegKey $(SoftwareServiceKey) CloseRegKey $(SoftLinkageKey) CloseRegKey $(KeyParameters) goto fatalregistry endif set NewValueList = {{InfOption,$(NoTitle),$(!REG_VT_SZ),$(Option)}} Shell $(UtilityInf), AddValueList, $(SoftwareNetRuleKey), $(NewValueList) ifint $($ShellCode) != $(!SHELL_CODE_OK) Debug-Output "ShellCode error." goto ShellCodeError endif set RegistryErrorIndex = $($R0) Ifstr(i) $(RegistryErrorIndex) != NO_ERROR EndWait CloseRegKey $(SoftwareProductKey) CloseRegKey $(SoftwareNetRuleKey) CloseRegKey $(SoftwareServiceKey) CloseRegKey $(KeyParameters) CloseRegKey $(SoftLinkageKey) goto fatalregistry endif FlushRegKey $(SoftwareProductKey) FlushRegKey $(SoftwareNetRuleKey) FlushRegKey $(SoftwareServiceKey) FlushRegKey $(KeyParameters) FlushRegKey $(SoftLinkageKey) CloseRegKey $(SoftwareProductKey) CloseRegKey $(SoftwareNetRuleKey) CloseRegKey $(SoftwareServiceKey) CloseRegKey $(KeyParameters) CloseRegKey $(SoftLinkageKey) endif EndWait goto successful configureadapter = + ; set FLibraryErrCtl = 1 ifstr(i) $(Option) == "Finger" set hFinger = "" LoadLibrary "s" $(!STF_CWDDIR)\fingctl.cpl hFinger LibraryProcedure ResultList, $(hFinger), CPlFinger, $(!STF_HWND) Set Result = *($(ResultList),1) FreeLibrary $(hFinger) ifint $(Result) == 0 set CommonStatus = STATUS_SUCCESSFUL else-ifint $(Result) == 1 set CommonStatus = STATUS_USERCANCEL else set RegistryErrorIndex = $(Result) goto fatalregistry endif else-ifstr(i) $(Option) == "Session" set hSession = "" LoadLibrary "s" $(!STF_CWDDIR)\rsmctl.cpl hSession LibraryProcedure ResultList, $(hSession), CPlRemoteSessionManager, $(!STF_HWND) Set Result = *($(ResultList),1) FreeLibrary $(hSession) ifint $(Result) == 0 set CommonStatus = STATUS_SUCCESSFUL else-ifint $(Result) == 1 set CommonStatus = STATUS_USERCANCEL else set RegistryErrorIndex = $(Result) goto fatalregistry endif else-ifstr(i) $(Option) == "Serlogin" set hSerlogin = "" LoadLibrary "s" $(!STF_CWDDIR)\slogctl.cpl hSerlogin LibraryProcedure ResultList, $(hSerlogin), CPlSerialLogin, $(!STF_HWND) Set Result = *($(ResultList),1) FreeLibrary $(hSerlogin) ifint $(Result) == 0 set CommonStatus = STATUS_SUCCESSFUL else-ifint $(Result) == 1 set CommonStatus = STATUS_USERCANCEL else set RegistryErrorIndex = $(Result) goto fatalregistry endif else Shell $(UtilityInf),RegistryErrorString,CANNOT_CONFIGURE_SOFTWARE ifint $($ShellCode) != $(!SHELL_CODE_OK) Debug-Output "OEMNXPIP.INF: ShellCode error: cannot get an error string." goto ShellCodeError endif set Error = $($R0) set from = end set to = end set CommonStatus = STATUS_NO_EFFECT goto nonfatal endif goto successful bindingadapter =+ set Error = "Binding: Sorry, not yet implemented." goto fatal removeadapter = + Shell $(UtilityInf), RemoveSoftwareComponent, $(Manufacturer), + $(ProductSoftwareName) ifint $($ShellCode) != $(!SHELL_CODE_OK) Debug-Output "ShellCode error" goto ShellCodeError endif set RegistryErrorIndex = $($R0) Ifstr(i) $(RegistryErrorIndex) != NO_ERROR goto fatalregistry endif goto end UpgradeSoftware = + ifstr(i) $(ProductKeyName) == $(!NTN_RegBase) OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyName) $(MAXIMUM_ALLOWED) KeyProduct Ifstr $(KeyProduct) != $(KeyNull) GetRegValue $(KeyProduct),"MajorVersion", VersionInfo set Version = *($(VersionInfo), 4) Split-String $(!NTN_Infname), "\", FilenameList QueryListSize ListSize $(FilenameList) set !UG_Filename = *($(FilenameList), $(ListSize)) install "Install-Update" ifstr(i) $(STF_INSTALL_OUTCOME) != STF_SUCCESS goto fatal endif SetRegValue $(KeyProduct) {MajorVersion,$(NoTitle),$(!REG_VT_SZ),$(ProductMajorVersion)} SetRegValue $(KeyProduct) {MinorVersion,$(NoTitle),$(!REG_VT_SZ),$(ProductMinorVersion)} ifint $(Version) != $(ProductVersion) endif CloseRegKey $(KeyProduct) else goto fatalregistry endif endif goto end successful = + goto end warning = + Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), "WARNING", $(Error) ifint $($ShellCode) != $(!SHELL_CODE_OK) goto ShellCodeError endif ifstr(i) $($R1) == "OK" goto $(to) else-ifstr(i) $($R1) == "CANCEL" goto $(from) else goto "end" endif nonfatal = + ifstr(i) $(Error) == "" Shell $(UtilityInf) RegistryErrorString "SETUP_FAIL" ifint $($ShellCode) != $(!SHELL_CODE_OK) goto ShellCodeError endif set Error = $($R0) endif Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), "NONFATAL", $(Error) ifint $($ShellCode) != $(!SHELL_CODE_OK) goto ShellCodeError endif ifstr(i) $($R1) == "OK" goto $(from) else goto "end" endif fatalregistry = + Shell $(UtilityInf) RegistryErrorString $(RegistryErrorIndex) ifint $($ShellCode) != $(!SHELL_CODE_OK) goto ShellCodeError endif set Error = $($R0) goto fatal fatal = + ifstr(i) $(Error) == "" Shell $(UtilityInf) RegistryErrorString "SETUP_FAIL" ifint $($ShellCode) != $(!SHELL_CODE_OK) goto ShellCodeError endif set Error = $($R0) endif Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), "FATAL", $(Error) ifint $($ShellCode) != $(!SHELL_CODE_OK) goto ShellCodeError endif goto setfailed ShellCodeError = + set DlgType = "MessageBox" set STF_MB_TITLE = $(ShellCodeErrorTitle) set STF_MB_TEXT = $(ShellCodeErrorText) set STF_MB_TYPE = 1 set STF_MB_ICON = 3 set STF_MB_DEF = 1 ui start "Error Message" goto setfailed setfailed = + set CommonStatus = STATUS_FAILED Ifint $(RegistryErrorIndex) == TCPIP_NONEXIST_ERROR_FTPD set CommonStatus = STATUS_USERCANCEL endif ifstr(i) $(OEM_ABANDON_ON) == TRUE set OEM_ABANDON_ON = FALSE goto removeadapter endif goto end end = + goto term term = + Return $(CommonStatus) [Install-Option] set STF_VITAL = "" ifstr(i) $(AddCopy) == "YES" AddSectionFilesToCopyList Files-$(Option) $(SrcDir) $(!STF_WINDOWSSYSPATH) endif ifstr(i) $(DoCopy) == "YES" set !STF_NCPA_FLUSH_COPYLIST = TRUE CopyFilesInCopyList endif ifstr(i) $(DoConfig) == "YES" endif Exit [Install-Update] set STF_VITAL = "" set STF_OVERWRITE = "VERIFYSOURCEOLDER" AddSectionFilesToCopyList Files-$(Option) $(SrcDir) $(!STF_WINDOWSSYSPATH) AddSectionFilesToCopyList Files-Inf $(SrcDir) $(!STF_WINDOWSSYSPATH) set !STF_NCPA_FLUSH_COPYLIST = TRUE CopyFilesInCopyList exit [Source Media Descriptions] 1 = "Windows NT Telnet Server Disk", TAGFILE = rconsvc.exe [ProductType] STF_PRODUCT = Winnt ;STF_PLATFORM = Mips [Files-Inf] 1, oemsetup.inf, RENAME=$(!UG_Filename) [Files-Finger] 1,fingctl.cpl 1,fingctl.hlp 1,fingmsgs.dll 1,fingsvc.exe [Files-Session] 1,rsmsvc.exe 1,scraper.exe 1,rsmctl.cpl 1,rsmctl.hlp 1,who.exe 1,chsh.exe 1,tell.exe 1,tellall.exe 1,shutdown.exe 1,rsm.exe 1,execheck.exe 1,rsmlogin.cmd [Files-rCommands] 1,rshmsgs.dll 1,rshell.exe ;[Files-Telnetd] [FILES-TELNETD] 1,rsmsvc.exe 1,telnetd.exe 1,rsmlogin.cmd [Files-Serlogin] 1,serlogin.exe 1,slogctl.cpl 1,slogctl.hlp 1,slogmsgs.dll [Defaults-Finger] ProductSoftwareDescription = "Finger Server" ProductSoftwareDisplayName = "Finger Server" ProductSoftwareTitle = "Finger Server" ProductSoftwareDependancies = {"Tcpip","Afd"} MaxConnections = 20 GECOSlocation = 1 Scope = 1 DotFiles = 1 SiteInfo = "" NewValueList = {{MaxConnections,$(NoTitle),$(!REG_VT_DWORD),$(MaxConnections)},+ {Scope,$(NoTitle),$(!REG_VT_DWORD),$(Scope)},+ {SiteInfo,$(NoTitle),$(!REG_VT_SZ),$(SiteInfo)},+ {GECOSlocation,$(NoTitle),$(!REG_VT_DWORD),$(GECOSlocation)},+ {DotFiles,$(NoTitle),$(!REG_VT_DWORD),$(DotFiles)}} [Defaults-Session] ProductSoftwareDescription = "Remote Session Manager" ProductSoftwareDisplayName = "Remote Session Manager" ProductSoftwareTitle = "Remote Session Manager" ProductSoftwareDependancies = {"Afd"} MaxConnections = 20 Banner = "Welcome to Remote Session Service on %1" IdleTimeout = 0 LoginTimeout = 60 MessageFlags = 3 PreLoginMessage = "" PostLoginMessage = "" NewValueList = {{MaxConnections,$(NoTitle),$(!REG_VT_DWORD),$(MaxConnections)},+ {Banner,$(NoTitle),$(!REG_VT_SZ),$(Banner)},+ {IdleTimeout,$(NoTitle),$(!REG_VT_DWORD),$(IdleTimeout)},+ {LoginTimeout,$(NoTitle),$(!REG_VT_DWORD),$(LoginTimeout)},+ {MessageFlags,$(NoTitle),$(!REG_VT_DWORD),$(MessageFlags)},+ {PreLoginMessage,$(NoTitle),$(!REG_VT_SZ),$(PreLoginMessage)},+ {PostLoginMessage,$(NoTitle),$(!REG_VT_SZ),$(PostLoginMessage)}} [Defaults-rCommands] ProductSoftwareDescription = "BSD-Style R-Commands" ProductSoftwareDisplayName = "BSD-Style R-Commands" ProductSoftwareTitle = "BSD-Style R-Commands" ProductSoftwareDependancies = {"Tcpip","Afd","Remote Session Manager"} EnableRShell = 1 EnableRLogin = 1 NewValueList = {{EnableRShell,$(NoTitle),$(!REG_VT_DWORD),$(EnableRShell)},+ {EnableRLogin,$(NoTitle),$(!REG_VT_DWORD),$(EnableRLogin)}} ;[Defaults-Telnetd] ;ProductSoftwareDescription = "Telnetd (Inbound Telnet)" ;ProductSoftwareDisplayName = "Telnetd (Inbound Telnet)" ;ProductSoftwareTitle = "Telnetd" ;ProductSoftwareDependancies = {"Tcpip","Afd","Remote Session Manager"} ;MaxConnections = 20 ;NewValueList = {{MaxConnections,$(NoTitle),$(!REG_VT_DWORD),$(MaxConnections)}} [Defaults-TELNETD] ProductSoftwareDescription = "Telnetd (Inbound Telnet)" ProductSoftwareDisplayName = "Telnetd (Inbound Telnet)" ProductSoftwareTitle = "Telnetd" ProductSoftwareDependancies = {"Tcpip","Afd"} MaxConnections = 20 NewValueList = {{MaxConnections,$(NoTitle),$(!REG_VT_DWORD),$(MaxConnections)}} [Defaults-SerLogin] ProductSoftwareDescription = "Serial Remote Login" ProductSoftwareDisplayName = "Serial Remote Login" ProductSoftwareTitle = "Serial Remote Login" ProductSoftwareDependancies = {"Remote Session Manager"} MaxConnections = 20 NewValueList = {{MaxConnections,$(NoTitle),$(!REG_VT_DWORD),$(MaxConnections)}} [LanguagesSupported] ENG [OptionsTextENG] ; Finger = "Finger" ; rCommands = "BSD-Style R-Commands (rshd, rlogind, etc)" ; Serlogin = "Serial Remote Login" ; Session = "Remote Session Manager" ; Telnetd = "Telnetd (Inbound Telnet)" TELNETD = "Telnetd Service Beta (Inbound Telnet)" [FileConstantsENG] ProCaption = "Windows NT Setup" ProCancel = "Cancel" ProCancelMsg = "Windows NT Networking is not correctly installed. "+ "Are you sure you want to cancel copying files?" ProCancelCap = "Network Setup Message" ProText1 = "Copying:" ProText2 = "To:" FunctionTitle = "SII Connectivity Kit Setup" ProductSoftwareDescription = "" ProductSoftwareDisplayName = "" ProductSoftwareTitle = "" ShellCodeErrorTitle = "Error: "$(FunctionTitle) ShellCodeErrorText = "Shell Code Error." [DefaultsENG] [DialogConstantsENG] Help = "&Help" Exit = "Cancel" OK = "OK" HelpContext = "" Continue = "Continue" Cancel = "Cancel" [FileDependentDlgENG] [DebugMessageBox] set DlgType = "MessageBox" set STF_MB_TITLE = "Boing" set STF_MB_TEXT = $($0) set STF_MB_TYPE = 1 set STF_MB_ICON = 3 set STF_MB_DEF = 1 ui start "Error Message" return ""