[kaster]

очень странно, т.к. у меня совпадает.
ну тогда попробуй так

Код:

#include <encoding.au3>
$pid = Run(@ComSpec & ' /c echo %username%', '', @SW_HIDE, 0x1 + 0x2)

$sUserName = ''
While 1
	$tmp = StdoutRead($pid)
	$err = @error
	If StringLen($tmp) > 0 Then $sUserName &= $tmp
	If $err Then ExitLoop
Wend
$sUserName = _Encoding_OEM2ANSI($sUserName)
$sUserName = StringReplace($sUserName, @CR, '')
$sUserName = StringReplace($sUserName, @LF, '')
$sPath = 'D:\Work\' & $sUserName
ConsoleWrite($sPath & @CRLF)

Библиотеку брать тут - Encoding UDF - Библиотека для работы с кодировками строк