파워빌더에서 OS정보 읽어오기

Environment env

INTEGER     resp

n_macip uo_macip

/* Variable Setting */

resp = GetEnvironment(env)     //시스템 환경을 읽어오는 함수

CHOOSE  CASE env.OSType         //OS TYPE(파워빌더는 7개 인식)

CASE aix!

    is_ostype = 'AIX'

CASE hpux!

    is_ostype = 'HPUX'

CASE macintosh!

    is_ostype = 'MacIntosh'

CASE osf1!

    is_ostype  = 'OSF1'

CASE sol2!

    is_ostype  = 'Solaris 2'

CASE Windows!

    is_ostype = 'Windows'

CASE Windowsnt!

    is_ostype  = 'Windows NT'

CASE ELSE

    is_ostype = 'etc'

END CHOOSE

uo_macip = CREATE n_macip

uo_macip.uf_getipaddr(is_ip)

uo_macip.uf_getmacaddr(is_macaddr)

gs_ip = is_ip

gs_macaddr = is_macaddr