Имя пользователя:
Пароль:
 | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - [решено] чтобы скрипт считывал имя компьютера находил строчку с искомым Computername и выводил

Ответить
Настройки темы
VBS/WSH/JS - [решено] чтобы скрипт считывал имя компьютера находил строчку с искомым Computername и выводил

Новый участник


Сообщения: 2
Благодарности: 0

Профиль | Отправить PM | Цитировать


Здравствуйте! Проблема заключается в следующем:
1. Существует программа BGInfo (отображает на рабочем столе информацию)
2. Существует текстовый файл каждая сточка содержит Computername;инвентарныйномерпк
3. Хотелось бы решить проблему чтоб программа BGInfo отображала на рабочем столе инвентарный номер ПК, скрипт считывал имя компьютера находил строчку с искомым Computername и выводил значение на рабочий стол инвентарный номер
Буду очень благодарен! Спасибо.

Отправлено: 14:25, 30-07-2016

 

Ветеран


Сообщения: 27449
Благодарности: 8088

Профиль | Отправить PM | Цитировать


Цитата DJMix27:
2. Существует текстовый файл каждая сточка содержит Computername;инвентарныйномерпк »
Сразу прикладывайте к сообщению образец файла, упакованного в архив.

Попробуйте так:
Скрытый текст
Код: Выделить весь код
Option Explicit

Dim strMachineListFile

Dim strComputerName

Dim strLine
Dim strResult


strMachineListFile = "C:\Мои проекты\MachineList.txt"

With CreateObject("Scripting.FileSystemObject")
	If .FileExists(strMachineListFile) Then
		strComputerName = CreateObject("WScript.Network").ComputerName
		
		With .OpenTextFile(strMachineListFile)
			strResult = "Not found"
			
			Do Until .AtEndOfStream
				strLine = .ReadLine()
				
				If StrComp(Trim(Split(strLine, ";")(0)), strComputerName, vbTextCompare) = 0 Then
					strResult = Split(strLine, ";")(1)
					
					Exit Do
				End If
			Loop
			
			.Close
			
			Echo strResult
		End With
		
	Else
		Echo "Can't find machine list file [" & strMachineListFile & "]."
	End If
End With
Это сообщение посчитали полезным следующие участники:

Отправлено: 04:32, 31-07-2016 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Новый участник


Сообщения: 2
Благодарности: 0

Профиль | Отправить PM | Цитировать


Спасибо огромное! Все работает как нужно!

Отправлено: 11:11, 03-08-2016 | #3



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - [решено] чтобы скрипт считывал имя компьютера находил строчку с искомым Computername и выводил

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
PowerShell - Get-Process -ComputerName bee_loky Скриптовые языки администрирования Windows 2 29-03-2013 14:16
EventID - [решено] При загрузке комп выводил \WINDOWS\SYSTEM32\CONFIG\SYSTEM Efimalex Непонятные проблемы с Железом 2 27-10-2012 20:22
VBS/WSH/JS - [решено] Скрипт выводящий имя компьютера и IP vlsdtv Скриптовые языки администрирования Windows 2 11-02-2011 17:09
[решено] Что нужно сделать чтобы почта приходила на мое имя? DIDIDIDIMA Хочу все знать 1 01-09-2010 22:08
Интерфейс - Как сделать так чтобы выделялось только имя файла? Oreshin Microsoft Windows Vista 2 21-04-2009 13:12




 
Переход