---

Hej er der nogen der kan hjælpe mig med at et script eller et VB program, som kan vise hvilken version af Access der ligger på maskinen. Det behøver ikke at være et vbs script .Noget i den stil


OPTION EXPLICIT
On Error Resume Next
'Global variables
Dim shell
Dim strVerKey,strVersion,Currentversion
Dim sngWaitTime, CD

'Pause for 2 second to wait for system to load script
sngWaitTime = Timer() + 2
Do
Loop While Timer() < sngWaitTime

Set WshShell = WScript.CreateObject("WScript.Shell")

' Her sættes en variabelværdi for det aktuelle CD-R drev, hvor VBS filen ligge er usikker på hvordan det skal være
CD = CurrentDir

'Create references to system objects (ddls)
Set Shell = CreateObject("WScript.Shell")

'Henter oplysninger om
Currentversion=Shell.RegRead("HKLM\SOFTWARE\Microsoft\Office\CurrentVersion")

Select case Currentversion
Case 1
Currentversion="2002"
WshShell.run CD &"\install_1.exe"
Case 2
Currentversion="2000"
WshShell.run CD &"\install_2.exe"
Case 3
Currentversion="1997"
WshShell.run CD &"\install_3.exe"

End Select

MsgBox Currentversion

'Cleanup
set Shell=nothing


Hilsen Tballe

Dette spørgsmål er blevet annulleret, det er derfor ikke muligt for at tilføje flere kommentarer.