[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