Finde fil version

Sådan måske?

Dim exeName
If WScript.Arguments.Count = 0 Then
  exeName = InputBox("Enter the full path name of the executable to test:")
Else
  exeName = WScript.Arguments.Item(0)
End if

If exeName = "" Then
  WScript.Quit
End If

Dim proclist, ver
Set proclist = CreateObject("WshKit.Process")

ver = proclist.GetVersion(exeName)
MsgBox "Your " & UCase(exeName) & " has a version number of " & ver

//>Rune

Jeg får en fejl:
ActiveX-komponenten kan ikke oprette objektet "WshKit.Process"

Jeg fandt følgende som kan gøre det:

Dim fso, temp
  Set fso = CreateObject("Scripting.FileSystemObject")
  temp = fso.GetFileVersion("c:\msoffice\office\winword.exe")
  If Len(temp) Then
      GetVersion = temp
  Else
      GetVersion = "No version information available."
  End If
  MsgBox getversion

Fair nok, du skal lige afslutte spørgsmålet.... ;o)

//>Rune

Nå ja, men du får lidt for dit eksempel, jeg er sikker på at det bare en en lille simpel ting der mangler :-)

;o)