![]() |
Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета. Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме. С уважением, ваш призрачный админ, BigMac... |
|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - [решено] чтобы скрипт считывал имя компьютера находил строчку с искомым Computername и выводил |
|
VBS/WSH/JS - [решено] чтобы скрипт считывал имя компьютера находил строчку с искомым Computername и выводил
|
Новый участник Сообщения: 2 |
Здравствуйте! Проблема заключается в следующем:
1. Существует программа BGInfo (отображает на рабочем столе информацию) 2. Существует текстовый файл каждая сточка содержит Computername;инвентарныйномерпк 3. Хотелось бы решить проблему чтоб программа BGInfo отображала на рабочем столе инвентарный номер ПК, скрипт считывал имя компьютера находил строчку с искомым Computername и выводил значение на рабочий стол инвентарный номер Буду очень благодарен! Спасибо. |
|
Отправлено: 14:25, 30-07-2016 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Цитата DJMix27:
Попробуйте так: Скрытый текст
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
|
Профиль | Отправить PM | Цитировать Спасибо огромное! Все работает как нужно!
|
Отправлено: 11:11, 03-08-2016 | #3 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
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 |
|