Нужен Bat для определения имени ПК и сохранения его в текстовик

[exekill]

Нужен Bat для определения имени ПК и сохранения его в текстовик

[Delirium]

hostname >c:\1.txt

[exekill]

А можно чтобы и сам текстовик назывался эти именем ?

[Foreigner]

1>%computername%.txt hostname

[exekill]

000

[exekill]

Помогите с батником нужно определить имя пк и вставить его в скрипт VBS в строку 10 после символа 29

[Anonymоus]

Вписывает имя компьютера в файл, строку 10, позицию 29, а после него - остаток строки (если есть)

@Echo Off
SetLocal EnableDelayedExpansion

Set Target=test.txt

Set i=0
For /F "usebackq delims=" %%A In ("%Target%") Do (
Set /A i+=1
If Not !i!==10 (
Echo %%A>>"edited_%Target%"
) Else (
Set String=%%A
Call :GetLenght "!String!"
If !strLenght! GTR 29 Set /A Shift=!strLenght!-29
Call :WriteString !Shift!
)
)
Exit

:GetLenght
Rem Получение длины текстовой строки.
Set /A strLenght=0
Set $String=%~1
:charCounter
If "%$String%"=="" Exit /B
Set /A strLenght+=1
Set $String=%$String:~1%
GoTo charCounter

:WriteString
If Not "%~1"=="" (
Echo !String:~,29!%ComputerName%!String:~-%~1!>>"edited_%Target%"
) Else (
Echo !String:~,29!%ComputerName%>>"edited_%Target%"
)

[Iska]

…и вставить его в скрипт VBS в строку 10 после символа 29 »
Зачем? Проще определить имя в самом скрипте VBS.

[exekill]

Iska напиши как !!!

[Iska]

Самое простое:
WScript.Echo WScript.CreateObject("WScript.Network").ComputerName