Forums.Avtograd.Ru: bat-аника - Forums.Avtograd.Ru

Перейти к содержимому

  • (2 Страниц)
  • +
  • 1
  • 2
  • Вы не можете создать новую тему
  • Вы не можете ответить в тему

bat-аника Вопросы по написанию bat-файлов

#1 Пользователь офлайн   IriLka

  • Новичок
  • Pip
  • Группа: Пользователи
  • Сообщений: 8
  • Регистрация: 01 Ноябрь 07

Отправлено 06 Ноябрь 2007 - 10:39

Здравствуйте! Не нашла темы про bat, а очень нужно. Необходимо, чтобы батник выполнял определенные вычисления со временем, затем менял время, запускал программу и таймер к ней, а затем опять менял время, закрывал запущенное приложение и возвращал время на текущее. Можно ли такое извращение создать? И у кого-нить есть предложения или соответствующая литература?
0


  • (2 Страниц)
  • +
  • 1
  • 2
  • Вы не можете создать новую тему
  • Вы не можете ответить в тему

Другие ответы в этой теме

#21 Пользователь офлайн   Barrabas

  • Пользователь
  • PipPip
  • Группа: Пользователи
  • Сообщений: 431
  • Регистрация: 01 Ноябрь 07

Отправлено 08 Январь 2008 - 01:24

Просмотр сообщенияKeks (6.1.2008, 18:42):

Заинтриговал прям, скинь какой-нить пример на VBS

чем?
VB знаешь? почти тоже самое, только выполняется без компиляции
0

#22 Пользователь офлайн   Sam :evel:

  • Старожил
  • PipPipPipPipPip
  • Группа: Пользователи
  • Сообщений: 1 610
  • Регистрация: 01 Ноябрь 07

Отправлено 26 Январь 2008 - 21:37

У меня болшая коллекция файлов, а все названия переписывать очень долго, какой написать батник, чтобы он мне все вывел и сохранил в файле 1.txt ?
http://nexusx.ru/ - Все о продуктах компании Google
0

#23 Пользователь офлайн   GlooMen

  • Профи =)
  • PipPipPipPipPip
  • Группа: Пользователи
  • Сообщений: 2 063
  • Регистрация: 01 Ноябрь 07

Отправлено 27 Январь 2008 - 16:12

dir > 1.txt
0

#24 Пользователь офлайн   Sam :evel:

  • Старожил
  • PipPipPipPipPip
  • Группа: Пользователи
  • Сообщений: 1 610
  • Регистрация: 01 Ноябрь 07

Отправлено 28 Январь 2008 - 07:04

А как сделать чтобы он сортировал файл по изменению?
п.с. А есть какаянить прога помимо ворда которая распознает дос кодировку?
http://nexusx.ru/ - Все о продуктах компании Google
0

#25 Пользователь офлайн   up

  • Старожил
  • PipPipPipPipPip
  • Группа: Пользователи
  • Сообщений: 1 193
  • Регистрация: 01 Ноябрь 07

Отправлено 28 Январь 2008 - 07:56

Просмотр сообщенияSam :evel: (28.1.2008, 7:04):

п.с. А есть какаянить прога помимо ворда которая распознает дос кодировку?
EmEditor, ASCII Art Studio
0

#26 Пользователь офлайн   Barrabas

  • Пользователь
  • PipPip
  • Группа: Пользователи
  • Сообщений: 431
  • Регистрация: 01 Ноябрь 07

Отправлено 29 Январь 2008 - 00:21

Цитата

п.с. А есть какаянить прога помимо ворда которая распознает дос кодировку?

Юзай FAR например
0

#27 Пользователь офлайн   AlterEgo

  • Пользователь
  • PipPip
  • Группа: Пользователи
  • Сообщений: 138
  • Регистрация: 01 Ноябрь 07

Отправлено 29 Январь 2008 - 15:01

Просмотр сообщенияSam :evel: (28.1.2008, 7:04):

А как сделать чтобы он сортировал файл по изменению?


dir /?
0

#28 Пользователь офлайн   Barrabas

  • Пользователь
  • PipPip
  • Группа: Пользователи
  • Сообщений: 431
  • Регистрация: 01 Ноябрь 07

Отправлено 30 Январь 2008 - 13:58

Просмотр сообщенияBarrabas (8.1.2008, 2:24):

чем?
VB знаешь? почти тоже самое, только выполняется без компиляции

вот сейчас как раз делал скрипт который роут протисывает для поднятого ВПНа
	Dim i, strComputer, objWMIService, IPConfigSet, IPConfig, IPAddress
	strComputer = "."
	Set objWMIService = GetObject( _
	  "winmgmts:\\" & strComputer & "\root\cimv2")
	Set IPConfigSet = objWMIService.ExecQuery _
	  ("Select IPAddress from Win32_NetworkAdapterConfiguration ")
	For Each IPConfig In IPConfigSet
		If Not IsNull(IPConfig.IPAddress) Then
			For i = LBound(IPConfig.IPAddress) To UBound(IPConfig.IPAddress)
				If instr(IPConfig.IPAddress(i),"192.168.9.") > 0 Then
					IPAddress = IPConfig.IPAddress(i)
				End If
			Next
		End If
	Next
	If IPAddress = "" Then 
		WScript.Echo "Не найден IP адрес"
		WScript.Quit(0) 
	End If
	Dim shell
	Set shell = CreateObject("WScript.Shell")
	shell.run "route add 192.168.7.107 " & IPAddress
	WScript.Quit(0)

0

  • (2 Страниц)
  • +
  • 1
  • 2
  • Вы не можете создать новую тему
  • Вы не можете ответить в тему

2 человек читают эту тему
0 пользователей, 2 гостей, 0 скрытых пользователей