[решено] Нужен Bat для определения имени ПК и сохранения его в текстовик
Нужен Bat для определения имени ПК и сохранения его в текстовик
|
А можно чтобы и сам текстовик назывался эти именем ?
|
Код:
1>%computername%.txt hostname
|
Нужен батник для определения имени ПК и добавления его в скрипт vbs в строку 10 и пос
000
|
Нужна помощь
Помогите с батником нужно определить имя пк и вставить его в скрипт VBS в строку 10 после символа 29
|
Вписывает имя компьютера в файл, строку 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%"
)
|
Цитата:
Цитата exekill
…и вставить его в скрипт VBS в строку 10 после символа 29 »
|
Зачем? Проще определить имя в самом скрипте VBS. |
Самое простое:
Код:
WScript.Echo WScript.CreateObject("WScript.Network").ComputerName
|
Время: 00:01.
© OSzone.net 2001-
