... để hiển thị đúng phông Unicode.Option ExplicitSet ws = WScript.CreateObject("WScript.Shell")Dim ws, t, p1, p2, n, g, cn, cgDim itemtypep1 = "HKLM\Software\Microsoft \Windows ... "RegisteredOwner")g = ws.RegRead(p1 & "RegisteredOrganization")t = "*¤*•,¤*•,¸.¸,•*¤*• _Thông Báo_•*¤*•,¸., •*¤*"cn = InputBox("Điền tên người sử dụng mới tại đây :", t,...