Серый форум — VBS/JS: узнать версию файла на сетевом компьютере

Re: VBS/JS: узнать версию файла на сетевом компьютере

null@example.com (alexii) — Sat, 13 Jul 2013 16:45:08 +0000

Flasher, не доглядел.

Re: VBS/JS: узнать версию файла на сетевом компьютере

null@example.com (Flasher) — Sat, 13 Jul 2013 08:22:25 +0000

alexii >

Крепыш пишет:

глубина вложенности может быть любой
...без первых трёх элементов...

Re: VBS/JS: узнать версию файла на сетевом компьютере

null@example.com (alexii) — Sat, 13 Jul 2013 01:39:40 +0000

Крепыш, во-первых, не превращаем тему в чат: один вопрос — одна тема. Во-вторых, для решения указанного вопроса есть метод «.GetFileName()» объекта «Scripting.FileSystemObject».

Re: VBS/JS: узнать версию файла на сетевом компьютере

null@example.com (Крепыш) — Fri, 12 Jul 2013 08:53:18 +0000

Сделал с помощью рег. выражения. Код на JScript:

Name = FileName.match(/\\\\.+?\\.+?\\.+?\\(.+)?/)[1]

Re: VBS/JS: узнать версию файла на сетевом компьютере

null@example.com (Крепыш) — Fri, 12 Jul 2013 07:59:56 +0000

Теперь вот такая задачка: есть путь к файлу:

FileName = "\\IP\Share\Folder\...\File",
где
IP - IP-адрес компьютера,
Share - имя расшаренного ресурса
Folder - имя папки в этом ресурсе
глубина вложенности может быть любой

Нужно вычленить путь к файлу без первых трёх элементов, т.е.:

Name = "...\File"
Подскажите, пожалуйста! А то сам не соображу.

Re: VBS/JS: узнать версию файла на сетевом компьютере

null@example.com (Dmitrii) — Fri, 12 Jul 2013 06:25:17 +0000

Крепыш пишет:

... видимо прав не хватает

Именно так.

Re: VBS/JS: узнать версию файла на сетевом компьютере

null@example.com (Крепыш) — Fri, 12 Jul 2013 05:45:47 +0000

Dmitrii,
ругается при попытке создать объект, видимо прав не хватает:

Разрешение отклонено: 'GetObject'

Flasher,
чё-то я пошёл сложным путём, не знал, что есть функция GetFileVersion()

FileName - путь к файлу в расшаренной папке

FileName = "\\\<путь к файлу>"
MsgBox "Version: " & CreateObject("Scripting.FileSystemObject").GetFileVersion(FileName)

Re: VBS/JS: узнать версию файла на сетевом компьютере

null@example.com (Dmitrii) — Fri, 12 Jul 2013 03:17:27 +0000

FileName = "C:\\Windows\\notepad.exe"
strIP = "192.168.0.1"
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strIP & "\root\CIMV2")
Set colFiles = objWMIService.ExecQuery("Select * from CIM_Datafile Where Name='" & FileName  & "'")
For Each objFile in colFiles
  WScript.Echo "Version: " & objFile.Version
Next

Re: VBS/JS: узнать версию файла на сетевом компьютере

null@example.com (Flasher) — Thu, 11 Jul 2013 17:44:31 +0000

Крепыш
Речь про файл на сетевом диске? Если да, то:

F = "///<путь к файлу>"
With CreateObject("Scripting.FileSystemObject")
  Set D = .GetDrive(.GetDriveName(F)) 
  Col   = InStr(F, ":")
  If D.DriveType = 3 And Col Then F = D.ShareName & Mid(F, Col + 1)
  MsgBox "Version: " & .GetFileVersion(F)
End With

VBS/JS: узнать версию файла на сетевом компьютере

null@example.com (Крепыш) — Thu, 11 Jul 2013 13:57:30 +0000

Скрипт выводит версию файла:

Set FileName = "C:\\Windows\\notepad.exe"
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
Set colFiles = objWMIService.ExecQuery("Select * from CIM_Datafile Where Name = '" & FileName  & "'")
For Each objFile in colFiles
  WScript.Echo "Version: " & objFile.Version
Next

Как вывести версию файла на сетевом компьютере, задав его IP-адрес?