Betriebssystem erkennen

Declare Function api_GetWindowsDirectory Lib "kernel32" _
Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal _
nSize As Long) As Long

Function GetWinDir() As String
Dim lpBuffer As String * 255
Dim length As Long

length = api_GetWindowsDirectory(lpBuffer, Len(lpBuffer))
GetWinDir = Left(lpBuffer, length)
End Function

Sub WindowsVerzeichnis()

Antwort = MsgBox("Auf diesem System wurde" & vbCrLf & _
"Windowsim im Verzeichnis " & vbCrLf & vbCrLf & _
Space(8) & GetWinDir & vbCrLf & vbCrLf & _
"installiert.", vbInformation, "Windows-Verzeichnis")
End Sub

mit call WindowsVerzeichnis
dann aufrufen

auch mal im Archiv nachsehen ;-)

AxelG

Hallo,

mit folgender Formel bekommst Du diese Info:

=INFO("Sysversion")

Gruß
M. Wendeler
http://www.wendelers.de

Re: Betriebssystem erkennen
von: chris b
Geschrieben am: 14.05.2002 - 16:23:19

Dankeee gleich mal testen !

Re: Betriebssystem erkennen
von: chris b
Geschrieben am: 14.05.2002 - 16:26:09

Habs gleich getestet das geht aber nicht zeigt nur an in welchem Verzeichniss Windows installiert ist und nicht Win98 , Win95 , Winme Win2000 usww... geht das evtl auch ?

Re: Betriebssystem erkennen
von: AxelG
Geschrieben am: 14.05.2002 - 16:27:42

kombiniere die Antwort vom Michael und meine, dann hast Du alles was Du brauchst ;-)

Re: Betriebssystem erkennen
von: chris b
Geschrieben am: 14.05.2002 - 16:28:14

Danke auch dir das funzt ganz gut nur ich breuchte es für VBA

Re: Betriebssystem erkennen
von: chris b
Geschrieben am: 14.05.2002 - 16:35:49

Also irgendwie versteh ich das nicht !Ist doch ne formel?Kannst du mir nicht helfen ?

Re: Betriebssystem erkennen
von: Michael Wendeler
Geschrieben am: 14.05.2002 - 16:45:30

Hallo,

dann schreib diese Formel in Zell A1 und nimm folgendes Makro:

Sub Info()
MsgBox ("Ihr aktuelles Betriebssystem ist: " & [a1])
End Sub

Gruß
M. Wendeler
http://www.wendelers.de

Re: Betriebssystem erkennen
von: GraFri
Geschrieben am: 14.05.2002 - 17:01:44

Hallo

mfg, GraFri

Re: Betriebssystem erkennen
von: chris b
Geschrieben am: 14.05.2002 - 20:40:31

Tausend Danek klappt super !!

Re: Betriebssystem erkennen
von: AxelG
Geschrieben am: 15.05.2002 - 08:26:35

Declare Function api_GetWindowsDirectory Lib "kernel32" _
Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal _
nSize As Long) As Long

Function GetWinDir() As String
Dim lpBuffer As String * 255
Dim length As Long

length = api_GetWindowsDirectory(lpBuffer, Len(lpBuffer))
GetWinDir = Left(lpBuffer, length)
End Function

Sub WindowsVerzeichnis()
'=INFO("Sysversion") in Zelle A1 eintragen !
Antwort = MsgBox("Auf diesem System wurde" & vbCrLf & _
[a1] & " im im Verzeichnis " & vbCrLf & vbCrLf & _
Space(8) & GetWinDir & vbCrLf & vbCrLf & _
"installiert.", vbInformation, "Windows-Verzeichnis")

End Sub

versuche diesen Code, WICHTIG, wie Michal schreibt,

=INFO("Sysversion")

in Zelle A1 eintragen,

und mit call WindowsVerzeichnis

viel Erfolg !

AxelG