Visual Basic

Dim asciiString As String = "ÒË╩ßÊÒÃ╩ ╩▀Ýݦ"

Dim [unicode] As Encoding = Encoding.Unicode

Dim en As EncodingInfo() = Encoding.GetEncodings()
For Each ei As EncodingInfo In en
    Dim enc As Encoding = Encoding.GetEncoding(ei.CodePage)

    Dim asciiBytes As Byte() = enc.GetBytes(asciiString)

    Dim unicodeBytes As Byte() = Encoding.Convert(enc, [unicode], asciiBytes)

    Dim unicodeChars([unicode].GetCharCount(unicodeBytes, 0, unicodeBytes.Length) - 1) As Char
    [unicode].GetChars(unicodeBytes, 0, unicodeBytes.Length, unicodeChars, 0)

    Dim unicodeString As New String(unicodeChars)

    Console.WriteLine("Codepage:       {0}", ei.CodePage.ToString())
    Console.WriteLine("Unicode string: {0}", unicodeString)
    Console.WriteLine("")
Next

Ebube wrote:

Dim att1 As XmlAttribute = doc.CreateAttribute("xsi:noNamespaceSchemaLocation")

att1.Value = "SCHEMA_010.xsd"

reportNode.Attributes.Append(att1)

Dim att1 As XmlAttribute = doc.CreateAttribute("xsi:noNamespaceSchemaLocation", "http://www.w3.org/2001/XMLSchema-instance")
att1.Value = "SCHEMA_010.xsd"
reportNode.Attributes.Append(att1)

Dim doc As New System.Xml.XmlDocument()

Dim declarationNode As System.Xml.XmlNode = doc.CreateXmlDeclaration("1.0", "", "")
doc.AppendChild(declarationNode)

Dim reportNode As System.Xml.XmlNode = doc.CreateElement("PENCOM_REPORT")

Dim att As System.Xml.XmlAttribute = doc.CreateAttribute("xmlns:xsi")
att.Value = "http://www.w3.org/2001/XMLSchema-instance"
reportNode.Attributes.Append(att)

Dim att1 As System.Xml.XmlAttribute = doc.CreateAttribute("xsi:noNamespaceSchemaLocation", "http://www.w3.org/2001/XMLSchema-instance")
att1.Value = "SCHEMA_010.xsd"
reportNode.Attributes.Append(att1)

doc.AppendChild(reportNode)

Dim XMLOutput As String = doc.OuterXml

<?xml version="1.0"?><PENCOM_REPORT xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="SCHEMA_010.xsd" />

shutdown -f
shutdown -a