Including Kernel32.dll in VBScript to call GETACP()

jordi79

Hi,

I need to call the GETAcp function in Kernel32.dll from NAV to get the ANSI codepage in the local client machine. I am having problems in scripting this script. My script is as follows:

Private Declare Function test123 Lib "Kernel32.dll" () As Long 
Msgbox test123

But I am getting compilation errors:

---

Windows Script Host

---

Script: C:\temp.vbs
Line: 1
Char: 17
Error: Expected end of statement
Code: 800A0401
Source: Microsoft VBScript compilation error

---

OK

---

is there something wrong with my code? Is there any alternative to get the local ANSI code page?

many thanks.

kine

You can use the Windows Language table to read it for specific language. But you need to select correct language...

jordi79

i assume you are referring to the language table in NAV. This table will only list all the windows language codes. I want to find out what is the language that the local client is using. this can be changed by the users in regional settings. but i want to know what language code is configured, so that I can do some language specific formatting.

Slawek_Guzek

Try WMI call in VBScript instead.

jordi79

Yes. WMI scripts called via VBScript is the solution. it works.