;-----------------------------------------------------------------
; SUBROUTINE: check_os
; Determines what operating system and type is running on the host
; RETURNS:
; $os "Windows 95" = Windows 95
; "Windows 98" = Windows 98
; "Windows NT" = Windows NT
; $NT_type "Server" = Server
; "Server Domain Controller" = Either an NT server PDC or BDC
;
;-----------------------------------------------------------------
:check_os

; Select statements don't seem to like using @INWIN and @DOS... hmm wtf
;$inwin_str = @INWIN
;$dos_str = @DOS

$NT_Type = "" ; default to nothing unless NT is detected

IF @INWIN = 1
?"Windows NT detected"
$os="Windows NT"
; Determine what type of Windows NT
$rtn=ReadValue("hkey_local_machine\system\currentcontrolset\control\productoptions","producttype")
Select
Case $rtn="WINNT"
; /* System is a Windows NT Workstation */
$NT_Type = "Workstation"
Case $rtn="SERVERNT"
; /* System is running Windows NT Server (domain member) */
$NT_Type = "Server"
Case $rtn="LANMANNT"
$NT_Type = "Server Domain Controller"
EndSelect
Endif

If @INWIN = 2
Select
Case @DOS = "4.0"
$os = "Windows 95"
Case @DOS = "4.10"
$os = "Windows 98"
EndSelect
Else
$os = "Unknown"
Endif
Return

------------------
K Torkelson
Sys Admin Analyst
ktorkelson@providentfunding.com