* WSH
#define SystemFolder 1
oFs = createobject('Scripting.FileSystemObject')
oSysFolder = oFs.GetSpecialFolder(SystemFolder)
? 'WSH :',oSysFolder.Path

*WinAPI
declare integer GetSystemDirectory in win32API ;
  string @ lpBuffer, integer uSize
lpBuffer=space(300)
lnLen=GetSystemDirectory(@lpBuffer, 300)
? 'WinAPI :'+left(lpBuffer,lnLen)