[madmasles]

Pozia,
Попробуйте так

Код:

$hUser = FileOpen(@ScriptDir & "\" & @UserName & ".txt",2) ;создать новый файл с именем текущего пользователя.
FileWrite($hUser, "Текущий пользователь - " & @UserName) ;записать в него текущего пользователя.
FileClose($hUser) ;закрыть его.
; ..........
FileMove(@ScriptDir & "\1.txt", @ScriptDir & "\" & @UserName & ".txt") ;переименовать существующий файл.

[Pozia]

madmasles, я наверное Вас уже утомил Нужна опять помощь. Есть файл реестра. В нем я меняю слово PoziaMark на имя запущенной учетной записи. Скрипт такой:

Код:

; Определение Имени учетной записи
$sPathOld = ".\Setting\Set.reg"
$sPathNew = "SetNew.reg"
$slovo = "PoziaMark";
$sTest = FileRead($sPathOld)
$sTest = StringReplace($sTest, $slovo, @UserName)
FileWrite($sPathNew, $sTest)

Мне нужно его дописать чтобы скрипт еще определял какая разрядность системы (32 или 64) и менял Program Files Mark на Program Files в случае 32 разрядной системы или на Program Files (x86) при 64. Такое возможно?

[madmasles]

Pozia,
Ничего страшного. Попробуйте так

Код:

$sPathOld = @ScriptDir & "\1.txt"
$sPathNew = @ScriptDir & "\2.txt"
$slovoOld = "Program Files Mark"
$slovoNew32 = "Program Files"
$slovoNew64 = "Program Files (x86)"
$sTest = FileRead($sPathOld)
$ras = @OSArch ;макрос разрядности
If $ras = "X86" Then
    $sTest = StringReplace($sTest, $slovoOld, $slovoNew32)
Else
    $sTest = StringReplace($sTest, $slovoOld, $slovoNew64)
EndIf
FileWrite($sPathNew, $sTest)

Не могу проверить на 64 системе. В справке говорится, что макрос @OSArch возвращает "x86" или "ia64" или "x64". Не знаю что такое "ia64".

[Pozia]

Не могу проверить на 64 системе »

завтра на работе проверю. спасибо.

madmasles, аподскажите еще как объеденить приведенный Вами скрипт и мой из поста 12 в один на подобие как вы сделали в посте 9. Сам никак не соображу. Сложновато.

[madmasles]

Pozia,
Примерно так:

Код:

$sPathOld = ".\Setting\Set.reg"
$sPathNew = "SetNew.reg"
$slovo = "PoziaMark"
$slovoOld = "Program Files Mark"
$slovoNew32 = "Program Files"
$slovoNew64 = "Program Files (x86)"
$sTest = FileRead($sPathOld)
$sTest = StringReplace($sTest, $slovo, @UserName)
$ras = @OSArch
If $ras = "X86" Then
    $sTest = StringReplace($sTest, $slovoOld, $slovoNew32)
Else
    $sTest = StringReplace($sTest, $slovoOld, $slovoNew64)
EndIf
FileWrite($sPathNew, $sTest)

Только меня смущает это:

$sPathOld = ".\Setting\Set.reg"

Вы проверяли, так работает?
PS
Сам проверил - у меня так работает.

[Pozia]

Не могу проверить на 64 системе. »

все нормально работает. спасибо еще раз.