$pp=ReadValue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ProductOptions","ProductType")
$SubVer=ReadValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion","SubVersionNumber")

select
Case @inwin=1 and $pp<>"WinNT" and @dos=5.0
$os="Win2k Server"
Case @inwin=1 and $pp="WinNT" and @dos=5.0
$os="Win2k Professional"
Case @inwin=1 and $pp="LANMANNT"
$os="WinNT 4.0 Domain Controller"
Case @inwin=1 and $pp="ServerNT"
$os="WinNT 4.0 Member Server"
Case @inwin=1 and $pp="WinNT"
$os="WinNT 4.0 Workstation"
Case @inwin=2 and @dos="4.10"
$os="Win98"
Case @inwin=2 and @dos="4.0" and $subver=" C"
$os="Win95c"
Case @inwin=2 and @dos="4.0" and $subver=" B"
$os="Win95b"
Case @inwin=2 and @dos="4.0" and $subver="a"
$os="Win95a"
Case @inwin=2 and @dos="4.0"
$os="Win95"
Case 1
$os="undetermined"
endselect

? "Operating System is "+$os
get $k ;Pauses script to view output