Imports System
Imports System.Runtime.InteropServices

Public Class Example
    Public Shared Sub Main()
        TestScripts("en-US", "microsoft.com")
        TestScripts("en-US", "m" & ChrW(&h456) & "crosoft.com")
        TestScripts("ru-RU", "m" & ChrW(&h456) & "crosoft.com")
        TestScripts("ja-JP", ChrW(&h65E5) & ChrW(&h672C) & _
                             ".microsoft.com")
    End Sub

    Public Shared Sub TestScripts( 
            ByVal locale As String, ByVal test As String)
        Dim result(79) As Char
        Console.WriteLine("Checking scripts for string {0}" & _
            " in locale {1}:", test, locale)

        ‘ Get the scripts expected for this locale        
        Dim size As Int32 = GetLocaleInfoEx(locale, LOCALE_SSCRIPTS, _ 
            result, 80)
        If size = 0 Then
            ‘ Unexpected Error reported in GetLastError()
            Console.WriteLine("Unexpected Error: {0}", _
                Marshal.GetLastWin32Error())
            Return
        End If
        Dim localeScripts As New String(result, 0, size)
        Console.WriteLine("Expected Locale Scripts: {0}", localeScripts)

        ‘ Get the scripts found in this string
        size = GetStringScripts(0, test, test.Length, result, 80)
        If size = 0 Then
            ‘ Unexpected Error reported in GetLastError()
            Console.WriteLine("Unexpected Error: {0}", _
                Marshal.GetLastWin32Error())
            Return
        End If
        Dim stringScripts As New String(result, 0, size)
        Console.WriteLine("Found Scripts in String: {0}", stringScripts)

        ‘ Are the scripts in the string allowable for that locale?
        Dim allowedBool As Int32 = VerifyScripts(0, localeScripts, _
            localeScripts.Length, stringScripts, stringScripts.Length)
        Dim allowed As Boolean = (allowedBool <> 0)
        Console.WriteLine("Are scripts allowed?     {0}", allowed)

        ‘ Are they allowed if Latn; is explicitly allowed?
        allowedBool = VerifyScripts(VS_ALLOW_LATIN, localeScripts, _
            localeScripts.Length, stringScripts, stringScripts.Length)
        allowed = (allowedBool <> 0)
        Console.WriteLine("Allowed if Latn allowed? {0}", allowed)
        Console.WriteLine()
    End Sub

    <DllImport("kernel32.dll", _
     CharSet:=CharSet.Unicode, SetLastError:=True)> _
    Private Shared Function GetLocaleInfoEx( _
        ByVal lpLocaleName As String, ByVal LCType As Int32, _
        ByVal lpLCData As Char(), ByVal cchData As Int32) As Int32
    End Function

    <DllImport("kernel32.dll", _
     CharSet:=CharSet.Unicode, SetLastError:=True)> _   
    Private Shared Function GetStringScripts(ByVal dwFlags As Int32, _
        ByVal lpString As String, ByVal cchString As Int32, _
        ByVal lpScripts As Char(), ByVal cchScripts As Int32) As Int32
    End Function

    <DllImport("kernel32.dll", _
     CharSet:=CharSet.Unicode, SetLastError:=True)> _
    Private Shared Function VerifyScripts(ByVal dwFlags As Int32, _
        ByVal lpLocaleScripts As String, _
        ByVal cchLocaleScripts As Int32, ByVal lptestScripts As String, _
        ByVal cchTestScripts As Int32) As Int32
    End Function

    Private Const LOCALE_SSCRIPTS As Int32 = &h6C
    Private Const VS_ALLOW_LATIN As Int32 = &h01
    Private Const GSS_ALLOW_INHERITED_COMMON As Int32 = &h01
End Class

> ubc example.ub
> example.exe
Checking scripts for string microsoft.com in locale en-US:
Expected Locale Scripts: Latn;
Found Scripts in String: Latn;
Are scripts allowed?     True
Allowed if Latn allowed? True

Checking scripts for string mcrosoft.com in locale en-US:
Expected Locale Scripts: Latn;
Found Scripts in String: Cyrl;Latn;
Are scripts allowed?     False
Allowed if Latn allowed? False

Checking scripts for string mcrosoft.com in locale ru-RU:
Expected Locale Scripts: Cyrl;
Found Scripts in String: Cyrl;Latn;
Are scripts allowed?     False
Allowed if Latn allowed? True

Checking scripts for string .microsoft.com in locale ja-JP:
Expected Locale Scripts: Hani;Hira;Kana;
Found Scripts in String: Hani;Latn;
Are scripts allowed?     False
Allowed if Latn allowed? True