Software-Management » Softwarepaket für Win XP oder Win x64

#1 | Softwarepaket für Win XP oder Win x64 datum

01.02.2013 11:18

Hallo,

ich habe ein Softwarepaket wo Verknüpfungen anlegen werden müssen. Jetzt wollte ich gerne auslesen welches Betriebssystem installiert ist. Ich bekomme aber die Abfrage nicht hin. Hilfe.

Antworten

#2 | RE: Softwarepaket für Win XP oder Win x64 datum

01.02.2013 11:52

Andreas

Informationen anzeigen

Beitr�ge:	595
Registriert seit:	12.07.2011
Wohnort:	Dortmund

Hallo Herr Münke,

binden Sie mal die folgende Funktion in Ihr Script ein:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Public Function getOSPlatformName()
    Dim sPlatform, sOSVersion As String
    ' hier wird das installierte OS ermittelt
    sPlatform = "Windows XP"
    sOSVersion = ""
    GetRegString&( HKLM, "Software\Microsoft\Windows NT\CurrentVersion\", "CurrentVersion", sOSVersion )
    If sOSVersion$ = "4.0" Then
        sPlatform = "Windows NT"
    ElseIf sOSVersion$ = "5.0" Then
        sPlatform = "Windows 2000"
    ElseIf sOSVersion$ = "5.1" Then
        sPlatform = "Windows XP"
    ElseIf sOSVersion$ = "5.2" Then
        sPlatform = "Windows 2003" ' oder "Windows XP (x64)"
    ElseIf sOSVersion$ = "6.0" Then
        sPlatform = "Windows Vista"
        ' auch: "Windows 2008"
     ElseIf sOSVersion$ = "6.1" Then
        sPlatform = "Windows 7"
     ElseIf sOSVersion$ = "6.2" Then
        sPlatform = "Windows 8"
    End If
    ' Erkennung emulierte 32Bit Umgebung auf 64Bit Betriebssystem
    If "" <> Dir$(GetWinDir()+"\SysWOW64\*.*") Then
        sPlatform = sPlatform + " (x64)"
    End If
    getOSPlatformName = sPlatform
End Function
 
 

Nun können Sie in Ihrem Script z.B. ein Abfrage des installiertem OS wie in folgendem Beispiel machen:

1
2
3
4
5
 
If getOSPlatformName() = "Windows XP" Then
  'mach irgendwas
Else
  'mach was anderes
End If
 

Mit freundlichen Grüßen

Andreas
Produktsupport DX-Union
________________________________________________
MATERNA GmbH
Information & Communications

Telefon: +49 231 5599-111
E-Mail: dxu2nd@materna.de
_______________________________________________
Hauptsitz der MATERNA GmbH: Voßkuhle 37, 44141 Dortmund
Geschäftsführer: Dr. Winfried Materna, Helmut an de Meulen, Ralph Hartwig
Amtsgericht Dortmund HRB 5839

Antworten

#3 | RE: Softwarepaket für Win XP oder Win x64 datum

01.02.2013 12:24

Hallo Herr Ahlrichs,

danke für die schnelle Hilfe, jetzt habe ich das Script genommen und beim ausführen die Funktion reinkopiert und mit dem Script Editor laufen lassen leider kommt die Meldung sieh Anhang.

kmuenke hat folgende Bilder an diesen Beitrag angeh�ngt

Aufgrund eingeschr�nkter Benutzerrechte werden nur die Namen der Dateianh�nge angezeigt Jetzt anmelden!
Unbenannt.jpg

Unbenannt.jpg

Antworten

#4 | RE: Softwarepaket für Win XP oder Win x64 datum

01.02.2013 12:28

Hallo Herr Münke,

Sie müssen die Funktion ausserhalb von 'Sub Main' positionieren und das was Sie ausserhalb von 'Sub Main' stehen haben, in 'Sub Main'.

Mit freundlichen Grüßen

Andreas
Produktsupport DX-Union
________________________________________________
MATERNA GmbH
Information & Communications

Telefon: +49 231 5599-111
E-Mail: dxu2nd@materna.de
_______________________________________________
Hauptsitz der MATERNA GmbH: Voßkuhle 37, 44141 Dortmund
Geschäftsführer: Dr. Winfried Materna, Helmut an de Meulen, Ralph Hartwig
Amtsgericht Dortmund HRB 5839

Antworten

#5 | RE: Softwarepaket für Win XP oder Win x64 datum

01.02.2013 12:39

Das dachte ich mir. Alles klar geht Danke

Antworten

#6 | RE: Softwarepaket für Win XP oder Win x64 datum

01.02.2013 13:11

Ich noch mal, jetzt habe ich das Script in die inst.bas eingebaut und er kommt wieder mit dieses Zeile hoch Public Function getOSPlatformName() <Unterminated block statement.>

Antworten

#7 | RE: Softwarepaket für Win XP oder Win x64 datum

01.02.2013 13:13

Hallo Herr Münke,

posten Sie bitte mal das komplette Script, am besten als Anhang.

Mit freundlichen Grüßen

Andreas
Produktsupport DX-Union
________________________________________________
MATERNA GmbH
Information & Communications

Telefon: +49 231 5599-111
E-Mail: dxu2nd@materna.de
_______________________________________________
Hauptsitz der MATERNA GmbH: Voßkuhle 37, 44141 Dortmund
Geschäftsführer: Dr. Winfried Materna, Helmut an de Meulen, Ralph Hartwig
Amtsgericht Dortmund HRB 5839

Antworten

#8 | RE: Softwarepaket für Win XP oder Win x64 datum

01.02.2013 13:19

Hallo hier das Script.

kmuenke hat folgende Dateien an diesen Beitrag angeh�ngt

Aufgrund eingeschr�nkter Benutzerrechte werden nur die Namen der Dateianh�nge angezeigt Jetzt anmelden!

Lotus Notes.txt

Antworten

#9 | RE: Softwarepaket für Win XP oder Win x64 datum

01.02.2013 13:40 (zuletzt bearbeitet: 01.02.2013 13:48)

Andreas

Informationen anzeigen

Beitr�ge:	595
Registriert seit:	12.07.2011
Wohnort:	Dortmund

Hallo Herr Münke,

das ist aber doch nicht das komplette Script, oder?
Sie dürfen die neue Funktion

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Public Function getOSPlatformName()
    Dim sPlatform, sOSVersion As String
    ' hier wird das installierte OS ermittelt
    sPlatform = "Windows XP"
    sOSVersion = ""
    GetRegString&( HKLM, "Software\Microsoft\Windows NT\CurrentVersion\", "CurrentVersion", sOSVersion )
    If sOSVersion$ = "4.0" Then
        sPlatform = "Windows NT"
    ElseIf sOSVersion$ = "5.0" Then
        sPlatform = "Windows 2000"
    ElseIf sOSVersion$ = "5.1" Then
        sPlatform = "Windows XP"
    ElseIf sOSVersion$ = "5.2" Then
        sPlatform = "Windows 2003" ' oder "Windows XP (x64)"
    ElseIf sOSVersion$ = "6.0" Then
        sPlatform = "Windows Vista"
        ' auch: "Windows 2008"
     ElseIf sOSVersion$ = "6.1" Then
        sPlatform = "Windows 7"
     ElseIf sOSVersion$ = "6.2" Then
        sPlatform = "Windows 8"
    End If
    ' Erkennung emulierte 32Bit Umgebung auf 64Bit Betriebssystem
    If "" <> Dir$(GetWinDir()+"\SysWOW64\*.*") Then
        sPlatform = sPlatform + " (x64)"
    End If
	
    getOSPlatformName = sPlatform
End Function
 

nicht innerhalb von 'Sub Main' plazieren.
Kopieren Sie diese einfach unter das 'End Sub' der 'Sub Main' Funktion.

Ausserdem unterscheidet die Funktion auch 32/64 Bit. Wenn es sich um ein 64-Bit OS handelt, wird ' (x64)' an den String angehangen.
Da ich nach Sicht Ihres Scripts vermute, dass Sie ausschließlich Windows 7 64-Bit einsetzen, müssen Sie in der 2ten If-Abfrage also nach 'Windows 7 (x64)' abfragen und nicht nach 'Windows 7'.

Mit freundlichen Grüßen

Andreas
Produktsupport DX-Union
________________________________________________
MATERNA GmbH
Information & Communications

Telefon: +49 231 5599-111
E-Mail: dxu2nd@materna.de
_______________________________________________
Hauptsitz der MATERNA GmbH: Voßkuhle 37, 44141 Dortmund
Geschäftsführer: Dr. Winfried Materna, Helmut an de Meulen, Ralph Hartwig
Amtsgericht Dortmund HRB 5839

Antworten

#10 | RE: Softwarepaket für Win XP oder Win x64 datum

01.02.2013 14:02 (zuletzt bearbeitet: 01.02.2013 14:02)

kmuenke

Informationen anzeigen

Beitr�ge:	56
Registriert seit:	25.10.2011
Wohnort:	Kassel

das ist das gesamte Script was in der Post Installation läuft.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
 

Function Phase3
 
	'PostInstall
	On Error Goto Fehler
	EnableReportDXDist
 
	Public Function getOSPlatformName()
    Dim sPlatform, sOSVersion As String
    ' hier wird das installierte OS ermittelt
    sPlatform = "Windows XP"
    sOSVersion = ""
    GetRegString&( HKLM, "Software\Microsoft\Windows NT\CurrentVersion\", "CurrentVersion", sOSVersion )
    If sOSVersion$ = "4.0" Then
        sPlatform = "Windows NT"
    ElseIf sOSVersion$ = "5.0" Then
        sPlatform = "Windows 2000"
    ElseIf sOSVersion$ = "5.1" Then
        sPlatform = "Windows XP"
    ElseIf sOSVersion$ = "5.2" Then
        sPlatform = "Windows 2003" ' oder "Windows XP (x64)"
    ElseIf sOSVersion$ = "6.0" Then
        sPlatform = "Windows Vista"
        ' auch: "Windows 2008"
     ElseIf sOSVersion$ = "6.1" Then
        sPlatform = "Windows 7"
     ElseIf sOSVersion$ = "6.2" Then
        sPlatform = "Windows 8"
    End If
    ' Erkennung emulierte 32Bit Umgebung auf 64Bit Betriebssystem
    If "" <> Dir$(GetWinDir()+"\SysWOW64\*.*") Then
        sPlatform = sPlatform + " (x64)"
    End If
	
	getOSPlatformName = sPlatform
	End Function
	
	ReportDXDist (1, "Post-Installationsaktionen durchf&#65533;hren")
	
	If getOSPlatformName() = "Windows XP" Then
	'PostInstallationsaktionen ausf&#65533;hren
	rm32 ("-q -r -f","{ENVIRONMENT..ALLUSERSPROFILE}\Startmen&#65533;\Programme\Lotus Anwendungen")
	rm32 ("-q -f","{ENVIRONMENT..ALLUSERSPROFILE}\Desktop\Lotus Notes 8.5.lnk")
	wexec32 ("dxcopy","-f -r -v "+Chr(34)+"{dynamic..depotrechner}:{dynamic..verzeichnis}/conf/"+Chr(34)+" "+Chr(34)+"{ENVIRONMENT..ALLUSERSPROFILE}\Desktop\"+Chr(34),SW_NORMAL)
	wexec32 ("dxcopy","-f -r -v "+Chr(34)+"{dynamic..depotrechner}:{dynamic..verzeichnis}/conf/"+Chr(34)+" "+Chr(34)+"{ENVIRONMENT..ALLUSERSPROFILE}\Startmen&#65533;\Programme\Lotus Anwendungen"+Chr(34),SW_NORMAL)
	MakeDir32("-q", "D:\Notes")
	wexec32 ("dxcopy","-f -r -v "+Chr(34)+"{dynamic..depotrechner}:{dynamic..verzeichnis}/pkg/FuerNotes8/bookmark.nsf"+Chr(34)+" "+Chr(34)+"D:\Notes\"+Chr(34),SW_NORMAL)
	rm32 ("-r -q -f","C:\Lotus Anwendungen")
	End If
	
	If getOSPlatformName() = "Windows 7" Then
	'PostInstallationsaktionen ausf&#65533;hren
	rm32 ("-q -r -f","{ENVIRONMENT..ALLUSERSPROFILE}\Startmen&#65533;\Programme\Lotus Anwendungen")
	rm32 ("-q -f","{ENVIRONMENT..ALLUSERSPROFILE}\Desktop\Lotus Notes 8.5.lnk")
	wexec32 ("dxcopy","-f -r -v "+Chr(34)+"{dynamic..depotrechner}:{dynamic..verzeichnis}/conf_x64/"+Chr(34)+" "+Chr(34)+"{ENVIRONMENT..ALLUSERSPROFILE}\Desktop\"+Chr(34),SW_NORMAL)
	wexec32 ("dxcopy","-f -r -v "+Chr(34)+"{dynamic..depotrechner}:{dynamic..verzeichnis}/conf_x64/"+Chr(34)+" "+Chr(34)+"{ENVIRONMENT..ALLUSERSPROFILE}\Startmen&#65533;\Programme\Lotus Anwendungen"+Chr(34),SW_NORMAL)
	MakeDir32("-q", "D:\Notes")
	wexec32 ("dxcopy","-f -r -v "+Chr(34)+"{dynamic..depotrechner}:{dynamic..verzeichnis}/pkg/FuerNotes8/bookmark.nsf"+Chr(34)+" "+Chr(34)+"D:\Notes\"+Chr(34),SW_NORMAL)
	rm32 ("-r -q -f","C:\Lotus Anwendungen")
	
	End If
		
	ReportDXDist (1, "Post-Installationsaktionen abgeschlossen")
 
	Phase3 = 0
 
	Goto EndeOK:
 
	Fehler:
	FehlerSetzen("Fehler", "Es ist ein Fehler aufgetreten: " + err.description + " " + err.source + " " + str(err.number))
	Phase3 = 1
 
	EndeOK:
 
End Function
 
 

Antworten

#11 | RE: Softwarepaket für Win XP oder Win x64 datum

01.02.2013 15:15

Hallo Herr Münke,

ich rufe Sie kurz an, damit wir das telefonisch klären können.

Mit freundlichen Grüßen

Andreas
Produktsupport DX-Union
________________________________________________
MATERNA GmbH
Information & Communications

Telefon: +49 231 5599-111
E-Mail: dxu2nd@materna.de
_______________________________________________
Hauptsitz der MATERNA GmbH: Voßkuhle 37, 44141 Dortmund
Geschäftsführer: Dr. Winfried Materna, Helmut an de Meulen, Ralph Hartwig
Amtsgericht Dortmund HRB 5839

Antworten

#12 | RE: Softwarepaket für Win XP oder Win x64 datum

01.02.2013 15:18

SUPER DANKE hat mir geholfen.

Antworten