VBScript has a function AscWthat returns the Unicode (wide) code of the first character in the specified string.
, AscW , , , ( , VBScript ). , , \unnnn, :
WScript.Echo ToUnicodeChar("✈") ''
Function ToUnicodeChar(Char)
str = Hex(AscW(Char))
ToUnicodeChar = "\u" & String(4 - Len(str), "0") & str
End Function