This shows you the differences between two versions of the page.
userspace:library:getmsversionmap [2014/11/22 19:00] GEI |
userspace:library:getmsversionmap [2021/08/23 08:37] |
||
---|---|---|---|
Line 1: | Line 1: | ||
- | ====== getMsVersionMap.opsiinc ====== | ||
- | \\ | ||
- | read OS version and OS Type...\\ | ||
- | Tested with opsi 4.0.4\\ | ||
- | requiredWinstVersion >= 4.11.2.\\ | ||
- | By // | ||
- | |||
- | placed in global library, such as %ScriptDrive$/ | ||
- | call with | ||
- | <code winst> | ||
- | include_insert %ScriptDrive%/ | ||
- | </ | ||
- | |||
- | === === | ||
- | <code winst> | ||
- | ; This sourcecode is partly owned by uib.de | ||
- | ; and published under the Terms of the General Public License. | ||
- | ; credits: http:// | ||
- | ; | ||
- | ; written by GEI (Detlef Krummel | ||
- | ; FILE " | ||
- | |||
- | requiredWinstVersion > | ||
- | ; for debugging | ||
- | ; based on: | ||
- | ; https:// | ||
- | ; http:// | ||
- | ; http:// | ||
- | |||
- | ; for debugging setLogLevel = 7 | ||
- | DefStringList $MsVersionMap_List$ | ||
- | Set $MsVersionMap_List$ = GetMsVersionMap | ||
- | setLogLevel = 6 | ||
- | |||
- | ; ----- sample values ------------------------------------------------------------------------ | ||
- | ; 0)major_version=5 1)minor_version=1 2)build_number=2600 | ||
- | ; 3)platform_id=2 4)csd_version=Service Pack 3 5)service_pack_major=3 | ||
- | ; 6)service_pack_minor=0 7)suite_mask=256 8)product_type_nr=1 | ||
- | ; 9)2003r2=false | ||
- | |||
- | DefVar $MsVersionMap_MajorVersion$ | ||
- | Set $MsVersionMap_MajorVersion$ = takeString( 0, | ||
- | DefVar $MsVersionMap_MinorVersion$ | ||
- | Set $MsVersionMap_MinorVersion$ = takeString( 1, | ||
- | DefVar $MsVersionMap_BuildNumber$ | ||
- | Set $MsVersionMap_BuildNumber$ = takeString( 2, | ||
- | DefVar $MsVersionMap_PlatformId$ | ||
- | Set $MsVersionMap_PlatformId$ = takeString( 3, | ||
- | DefVar $MsVersionMap_CsdVersion$ | ||
- | Set $MsVersionMap_CsdVersion$ = takeString( 4, | ||
- | DefVar $MsVersionMap_ServicePackMajor$ | ||
- | Set $MsVersionMap_ServicePackMajor$ = takeString( 5, | ||
- | DefVar $MsVersionMap_ServicePackMinor$ | ||
- | Set $MsVersionMap_ServicePackMinor$ = takeString( 6, | ||
- | DefVar $MsVersionMap_SuiteMask$ | ||
- | Set $MsVersionMap_SuiteMask$ = takeString( 7, | ||
- | DefVar $MsVersionMap_ProductTypeNr$ | ||
- | Set $MsVersionMap_ProductTypeNr$ = takeString( 8, | ||
- | DefVar $MsVersionMap_2003r2$ | ||
- | Set $MsVersionMap_2003r2$ = takeString( 9, | ||
- | |||
- | ; ---------------------- additional: define and set $WinOS$ ----------------------------------------- | ||
- | DefVar $WinOS$ | ||
- | Set $WinOS$ = " | ||
- | |||
- | ; @UIB: spagetti code, a CASE structur is absolutely desirable ... | ||
- | ; https:// | ||
- | |||
- | if $MsVersionMap_ProductType$ = " | ||
- | ; Client OS | ||
- | if $MsVersionMap_MajorVersion$ = " | ||
- | Set $WinOS$ = " | ||
- | else | ||
- | if $MsVersionMap_MajorVersion$ = " | ||
- | if $MsVersionMap_MinorVersion$ = " | ||
- | Set $WinOS$ = " | ||
- | else | ||
- | if $MsVersionMap_MinorVersion$ = " | ||
- | Set $WinOS$ = " | ||
- | else | ||
- | if $MsVersionMap_MinorVersion$ = " | ||
- | Set $WinOS$ = " | ||
- | else | ||
- | if $MsVersionMap_MinorVersion$ = " | ||
- | Set $WinOS$ = " | ||
- | else | ||
- | if $MsVersionMap_MinorVersion$ = " | ||
- | set $WinOS$ = "Win9 ?" | ||
- | endif | ||
- | endif | ||
- | endif | ||
- | endif | ||
- | endif | ||
- | endif | ||
- | ; Major not 5 or 6 | ||
- | set $WinOS$ = " | ||
- | endif | ||
- | else | ||
- | ; Server OS | ||
- | if $MsVersionMap_ProductType = " | ||
- | Set $WinOS$ = " | ||
- | else | ||
- | if $MsVersionMap_ProductType = " | ||
- | Set $WinOS$ = " | ||
- | else | ||
- | Set $WinOS$ = " | ||
- | endif | ||
- | endif | ||
- | endif | ||
- | </ |