|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
09.03.2004 16:49:25 |
manuel |
|
|
|
09.03.2004 17:38:59 |
Rasta |
|
|
|
09.03.2004 17:40:53 |
Rasta |
|
|
 Aw:Aw:office-version auslesen |
10.03.2004 12:22:57 |
manuel |
|
|
|
10.03.2004 12:50:38 |
Rasta |
|
|
Von:
manuel |
Datum:
10.03.2004 12:22:57 |
Views:
1125 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:office-version auslesen |
Hei Rasta!
danke fuer deine Antwort - aber es muss docheinfacher gehen?
etwa so?
Private Sub CommandButton1_Click()
MsgBox Environ("Username") & " " & Environ("???????") & " " & Environ("UserDomain")
End Sub
gruss manuel!
Rasta schrieb am 09.03.2004 17:40:53:
Hallo Manuel,
sub main
'HKLM\SOFTWARE\Microsoft\Office\10.0\Common\InstallRoot ' Office XP
'HKLM\SOFTWARE\Microsoft\Office\9.0\Common\InstallRoot ' Office 2000
'HKLM\SOFTWARE\Microsoft\Office\8.0\Common\InstallRoot ' Office 97
sRegPre = "HKLM\SOFTWARE\Microsoft\Office\"
sRegPost = "\Common\InstallRoot\"
Select Case True
Case RegKeyExists(sRegPre & "10.0" & sRegPost)
sOfficeVer = "XP"
Case RegKeyExists(sRegPre & "9.0" & sRegPost)
sOfficeVer = "2000"
Case RegKeyExists(sRegPre & "8.0" & sRegPost)
sOfficeVer = "97"
Case Else
sOfficeVer = "none"
End Select
msgbox "Installierte Office-Version: " & sOfficeVer
end sub
Function RegKeyExists(sRegKey)
Set oShell = CreateObject("WScript.Shell")
RegKeyExists = True
sRegKey = Trim (sRegKey)
If Not Right(sRegKey, 1) = "\" Then
sRegKey = sRegKey & "\"
End if
On Error Resume Next
RegReadReturn = oShell.RegRead(sRegKey)
If Err Then
If LCase(Left(err.description,7)) = "invalid" Then
'key not found...
RegKeyExists = False
End if
Err.clear
End if
On Error Goto 0
End Function
manuel schrieb am 09.03.2004 16:49:25:
hallo zusammen,
wenn ich die office-version auslesen will - was geb ich da als Environ
("??????????") an?
mit ("Version") gehts leider ned!
gruss manuel! |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
09.03.2004 16:49:25 |
manuel |
|
|
|
09.03.2004 17:38:59 |
Rasta |
|
|
|
09.03.2004 17:40:53 |
Rasta |
|
|
Aw:Aw:office-version auslesen |
10.03.2004 12:22:57 |
manuel |
|
|
|
10.03.2004 12:50:38 |
Rasta |
|
|