Ola Marcelo,
bom certa vez, precisei gerar uma bat com aceituações, nesse caso eu usei a tabela ASCII, no sei caso, fiz um tratamento no Vbscript.
veja se te ajuda
On Error Resume Next
Set objShell=CreateObject("WScript.Shell")
strUserName = objShell.ExpandEnvironmentStrings("%USERNAME%")
strquery = "net user " & strUserName & " /domain"
strResultado = CreateObject("WScript.Shell").Exec(strquery).StdOut.ReadAll & Chr(3+46)
strResultado=replace(strResultado,"Æ","ã")
strResultado=replace(strResultado,"‡","ç")
strResultado=replace(strResultado,"Õ","å")
strResultado=replace(strResultado,"ƒ","â")
strResultado=replace(strResultado,"µ","Á")
strResultado=replace(strResultado,"·","À")
strResultado=replace(strResultado,"Ö","Í")
strResultado=replace(strResultado,"Þ","Ì")
strResultado=replace(strResultado,"¢","ó")
strResultado=replace(strResultado,"ã","Ò")
strResultado=replace(strResultado,"£","ú")
strResultado=replace(strResultado,"Ò","ã")
strResultado=replace(strResultado,"¡","í")
strResultado=replace(strResultado," ","á")
strResultado=replace(strResultado,"é","Ú")
strResultado=replace(strResultado,"ˆ","ê")
strResultado=replace(strResultado,"ä","õ")
objShell.Popup strResultado
TABELA ASCII
á=
à=…
ã=Æ
ä=„
â=ƒ
Á=µ
À=·
Ã=Ç
Ä=Ž
Â=¶
é=‚
è=Š
ë=‰
ê=ˆ
É=
È=Ô
Ë=Ó
Ê=Ò
í=¡
ì=
ï=‹
î=Œ
Í=Ö
Ì=Þ
Ï=Ø
Î=×
ó=¢
ò=•
õ=ä
ö=”
ô=“
Ó=à
Ò=ã
Õ=å
Ö=™
Ô=â
ú=£
ù=—
ü=
û=–
Ú=é
Ù=ë
Ü=š
Û=ê
ç=‡
Ç=€
§=õ
¹=û
²=ý
³=ü
£=œ
¢=½
¬=ª
º=§
ª=¦
º=ø
link de referencia
att, Aparecido Deveza
