tr="à á â ã ä å ¸  æ ç è é ê ë ì í î ï ð ñ ò ó ô õ ö ÷  ø  ù   ú  û ü ý þ  ÿ  À Á Â Ã Ä Å ¨  Æ Ç È É Ê Ë Ì Í Î Ï Ð Ñ Ò Ó Ô Õ Ö ×  Ø  Ù   Ú  Û Ü Ý Þ  ß  "
tl="àaábâvãgädåe¸yoæjçzèiéyêkëlìmínîoïpðrñsòtóuôfõhöc÷chøshùschú''ûyü'ýeþyuÿyaÀAÁBÂVÃGÄDÅE¨YoÆJÇZÈIÉYÊKËLÌMÍNÎOÏPÐRÑSÒTÓUÔFÕHÖC×ChØShÙSchÚ''ÛYÜ'ÝEÞYußYa"

'òðàíñëèòåðàöèè ñòðîêè ïî ÃÎÑÒ 7.79 2000
'tl="àaábâvãgädåe¸joæzhçzèiéjjêkëlìmínîoïpðrñsòtóuôfõkhöc÷chøshùshhú''ûyü'ýehþjuÿjaÀAÁBÂVÃGÄDÅE¨JoÆZhÇZÈIÉJjÊKËLÌMÍNÎOÏPÐRÑSÒTÓUÔFÕKhÖC×ChØShÙShhÚ''ÛYÜ'ÝEhÞJußJa"

Function Translit(ByVal sIncoming)
	translit = ""
	For pos = 1 To len(sIncoming) Step 1
		Do
			sSymbol = mid(sIncoming, pos, 1)
	      If sSymbol="ü" or sSymbol="ú" or sSymbol="Ü" or sSymbol="Ú" Then Exit Do
	      findpos = InStr(1, tr, sSymbol)
	      If findpos=0 or sSymbol=" " Then
	         ' ***** Â òðàíñëèòåðàöèè íå íóæäàåòñÿ
	         translit = translit + sSymbol
	      Else
	         ' ***** Ïåðâûé ñèìâîë
	         translit = translit + mid(tl, findpos + 1, 1)
	         ' ***** Âòîðîé ñèìâîë
	         If mid(tr, findpos + 2, 1) = " " Then
	             translit = translit + mid(tl, findpos + 2, 1)
	             ' ***** Òðåòèé ñèìâîë
	             If mid(tr, findpos+3, 1) =" " Then
	                 translit = translit + mid(tl, findpos + 3, 1)
	             End If
	         End If
			End If
		Loop While False
	Next
End Function
Set WshShell = WScript.CreateObject("WScript.Shell")
text = Translit(WScript.Arguments(0))
res = InputBox(WScript.Arguments(0), "Òðàíñëèòåðàöèÿ", text)