code:

---

select
	Case @inwin=1 
		$kernel="WinNT"
		$Svcpack=ReadValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion","CSDVersion")
		$prodkey="HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ProductOptions"
		$type=ReadValue("$prodkey","ProductType")
		$Suite=ReadValue("$prodkey","ProductSuite")		
		IF LEN($Suite)>0
			while INSTR($Suite,"|")
				$pipe=INSTR($Suite,"|")
				$front=SUBSTR($Suite,1,$pipe-1)
				$back =SUBSTR($Suite,$pipe+1,len($suite)-len(front) )
				$Suite=$front+" "+$back
				loop
		Else
			$Suite=""
			EndIf
		select
			Case @dos=5.0
				$system="Win2k"
			Case @dos=4.0
				$system="WinNT"
			endselect
		select
			Case $type="LANMANNT"
				$flavor="$Suite"+"Domain Controller"
			Case $type="ServerNT"
				$flavor="$Suite "+"Member Server"
			Case $type="WinNT"
				$flavor="Workstation"
			endselect
	Case @inwin=2
		$kernel="Win9x"
                $Svcpack=""
		$SubVer=ReadValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion","SubVersionNumber")
		select
			Case @dos="4.90"
				$system="WinME"
				$flavor="A"
			Case @dos="4.10"
				$system="Win98"
				select
					Case $subver="a "  ;This is the culprit, needs a space before the "a".
						$flavor="SE"
					Case $subver=" "
						$flavor="A"
					endselect
			Case @dos="4.0" 
				$system="Win95"
				select
					Case $subver=" C"
						$flavor="OSR2.5"
					Case $subver=" B"
						$flavor="OSR2"
					Case $subver="a"
						$flavor="A"
					endselect
			endselect
	endselect
? "Kernel is $kernel"
? "OS is     $system $Svcpack"
? "Flavor is $flavor"
select
case $flavor="$Suite"+"Domain Controller" or $flavor="$Suite"+"Member Server"
     gosub "end"
     endselect

---

[This message has been edited by brewdude6 (edited 31 January 2001).]

[This message has been edited by brewdude6 (edited 02 February 2001).]

[This message has been edited by brewdude6 (edited 02 February 2001).]

[/code], not [\code] - you can edit this bit of post and all the formatting will return.

cj

P.S.
[kix]
; WebKix version 1.0
; by cj
$message="[This message has been edited by cj (edited 31 January 2001).]"
at(8,0) "$message"
quit
[/kix]

[This message has been edited by cj (edited 31 January 2001).]

gosub "end"

Is there a label defined for "end"?

Or am I just missing that peice of code?

code:

---

:end
exit

---

[This message has been edited by brewdude6 (edited 01 February 2001).]

[This message has been edited by brewdude6 (edited 01 February 2001).]

Kix32 script.kix /d

you are prompted for every line.

If you type the name of a variable (after it is defined in the script), the value will be returned to you.

You could pinpoint the error a bit better with this (I hope )

------------------
Greetz,

Roger the Young
------------------------
The code is out there...
------------------------

http://home.wanadoo.nl/r.s.m.s.dejong/Kixtart

------------------------

[This message has been edited by brewdude6 (edited 01 February 2001).]

Kernel is Win9x
OS is Win98
Flavor is $flavor

Oh, the script did also bomb out with the machine being identified, incorrectly, as a server.

Ok, here's the cause:
The subversion for 98SE is " A " (<space>A<space> ). Change that and the script works as expected. Better yet, fill in the $subver variable with a default string at the head of the script to ensure it is never empty when you get to the bottom, which is the real reason the script failed.