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

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

2013-07-13T16:45:08Z

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

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

2013-07-13T08:22:25Z

alexii >

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

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

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

2013-07-13T01:39:40Z

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

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

2013-07-12T08:53:18Z

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

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

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

2013-07-12T07:59:56Z

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

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

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

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

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

2013-07-12T06:25:17Z

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

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

Именно так.

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

2013-07-12T05:45:47Z

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

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

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

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

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

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

2013-07-12T03:17:27Z

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: узнать версию файла на сетевом компьютере

2013-07-11T17:44:31Z

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

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: узнать версию файла на сетевом компьютере

2013-07-11T13:57:30Z

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

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-адрес?