26. februar 2003 - 12:45
Der er
1 løsning
Versionsnummer på officepakke/ Access installleret på maskinen
Hej er der nogen der kan hjælpe mig med at et script eller et Visual Basic 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
15. marts 2003 - 13:48
#1
Har selv fundet løsningen, så sparer jeg de points.
'OPTION EXPLICIT
On Error Resume Next
'Global variables
Dim shell
Dim strVerKey,strVersion,Currentversion2002, Currentversion2000, Currentversion1997
Dim sngWaitTime, CD
'Pause i 2 sekunder for at vente på systemet loader script
sngWaitTime = Timer() + 2
Do
Loop While Timer() < sngWaitTime
Set WshShell = WScript.CreateObject("WScript.Shell")
MsgBox WshShell.CurrentDirectory
' Finder det aktuelle drev
CD = WshShell.CurrentDirectory
Cd1 = CD & "\P1.exe"
Cd2 = CD & "\P2.exe"
Cd3 = CD & "\P3.exe"
MsgBox CD
' reference tol system objecter
Set Shell = CreateObject("WScript.Shell")
'Henter oplysninger om
Currentversion2002=Shell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Access\UserData")
Currentversion2000=Shell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Access\UserData")
Currentversion1997=Shell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Office\8.0\Access\UserData")
If Currentversion2002 = "1" Then
MsgBox "2002"
WshShell.run CD1
End If
If Currentversion2000 = "1" Then
MsgBox "2000"
WshShell.run CD2
End If
If Currentversion1997 ="1" Then
MsgBox "1997"
WshShell.run CD3
End If
'flush
set Shell=nothing
Hilsen Tballe
