Database Search

TechHome

• Check RAM
• CPU Speed
• Detect if a User is Running DHCP
• Detect Network Bandwidth
• Determine whether a program is 16 or 32 bit
• Get Actual Disk Space
• How to Read the Number of Records from the Eventlog
• ICACLS Code Sample
• Remote Winversion
• Retrieve Physical Memory
• Time of Last Shutdown

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Remote WinVersion

;***************************************************************************
;**Gets operating system version
;***************************************************************************
computername = AskLine("Computername", "Please enter the computername in the form: \\", "")

reghandle = RegConnect(computername, @REGMACHINE)
ver=""
CheckReg=regexistVALUE(reghandle,"Software\Microsoft\Windows\CurrentVersion[Version]")
if CheckReg==0 then 
    checkNT=regexistVALUE(reghandle, "software\microsoft\windows nt\currentversion[CurrentVersion]")
    if checkNT==0 then
        message("Notice:", "Windows Version not detected!!!")
        exit
    else
        NTVersion=regqueryvalue(reghandle, "software\microsoft\windows nt\currentversion[CurrentVersion]")
        if NTVersion=="5.1" then ver="Windows XP Pro"
        if NTVersion=="5.0" then ver="Windows 2000"
        if NTVersion=="4.0" then ver="WinNT NT 4.0"
    end if
else
    WindowsVersion=RegQueryValue(reghandle,"Software\Microsoft\Windows\CurrentVersion[Version]")
    if WindowsVersion=="Windows 95" then
        SubVersionNumber=RegQueryValue(reghandle,"Software\Microsoft\Windows\CurrentVersion[SubVersionNumber]")
        if SubVersionNumber == "" then 
            ver="Win950"
            message("Netware Client Upgrade", "%@CRLF%Service Pack 1 for Win95 needs installed,%@CRLF%please contact I.S. immediately.%@CRLF%")
            exit
        END IF
        if SubVersionNumber == "A" then ver="Windows 95A"
        if SubVersionNumber == "B" then ver="Windows 95B"
        if SubVersionNumber == "C" then ver="Windows 95C"
    END IF

    If WindowsVersion=="Windows 98" then
        VersionNumber=RegQueryValue(reghandle,"Software\Microsoft\Windows\CurrentVersion[VersionNumber]")
        if VersionNumber == "4.10.1998" then ver="Win98"
        if VersionNumber == "4.10.2222" then ver="Win98SE" 
    END IF
    
    If WindowsVersion == "Windows Millennium Edition" then ver="WinME" 
end if
if ver=="" then 
    message("Notice:", "%@CRLF%Unable to Determine OS!!!!!!%@CRLF%")
    exit
end if

RegCloseKey(reghandle)

Message("Windows Version",ver)

Article ID:   W16008

File Created: 2004:03:30:15:42:10

Last Updated: 2004:03:30:15:42:10