Ich will das Betriebssystem auslesen lassen und dannach eine If Varibale machen klappt aber nicht so ganz:

Set dtmConvertedDate = CreateObject("WbemScripting.SWbemDateTime")
strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set oss = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")
For Each os in oss
Set strOS = os.Caption
If strOS.Contains("Microsoft Windows 7") Then
Next

Habt ihr ne Idee?

Keiner eine Idee?

ODER SIHE DA :

[VB.NET] Betriebssystem ermitteln (inkl. Architektur)

TVX schrieb:

Visual Basic-Quellcode

1. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
2. MessageBox.Show(System.Environment.OSVersion.ToString)
3. If System.Environment.Is64BitOperatingSystem = True Then
4. Label1.Text = "x64"
5. Else
6. Label1.Text = "x86"
7. End If
8. End Sub

ODER SIHE DA :

[VB.NET] Betriebssystem ermitteln (inkl. Architektur)

Es soll nicht nach 32 oder 64 bit gesucht werden, das script soll herausfinden ob Win Xp oder Win 7 installiert ist und je nach dem was installiert is soll es ein anderes script ausführen .. alles im hintergrund ohne das der user etwas mitbekommt

Hier,


Code von diesem Thread, [VB.NET] Betriebssystem ermitteln (inkl. Architektur)

Mfg.eniking1998

SIHE LINK IM POST

DER STEHT SCHON IN MEINEM POST - ZU SPÄT

ER HAT IHN SOGAR UNBEMERKT MITZITIERT

enIking1998 schrieb:

Hier,

Visual Basic-Quellcode

1. Public Class Form1
3. '''
4. ''' Gibt das aktuelle Betriebssystem zurück.
5. '''
6. ''' Das aktuelle Betriebssystem
7. '''
8. Public Function GetOSVersion() As String
9. Select Case Environment.OSVersion.Platform
11. Case PlatformID.Win32S
12. Return "Windows 3.1"
14. Case PlatformID.Win32Windows
15. Select Case Environment.OSVersion.Version.Minor
16. Case 0
17. Return "Windows 95" 'Windows 95 unterstützt .Net nicht
18. Case 10
19. If Environment.OSVersion.Version.Revision.ToString() = "2222A" Then
20. Return "Windows 98 - Second Edition"
21. Else
22. Return "Windows 98"
23. End If
24. Case 90
25. Return "Windows ME"
26. Case Else
27. Return "Unbekannt"
28. End Select
30. Case PlatformID.Win32NT
31. Select Case Environment.OSVersion.Version.Major
32. Case 3
33. Select Case Environment.OSVersion.Version.Minor
34. Case 0
35. Return "Windows NT 3" 'Windows NT 3 unterstützt .Net nicht
36. Case 1
37. Return "Windows NT 3.1" 'Windows NT 3.1 unterstützt .Net nicht
38. Case 5
39. Return "Windows NT 3.5" 'Windows NT 3.5 unterstützt .Net nicht
40. Case 51
41. Return "Windows NT 3.51" 'Windows NT 3.51 unterstützt .Net nicht
42. End Select
43. Case 4
44. Return "Windows NT 4.0"
45. Case 5
46. Select Case Environment.OSVersion.Version.Minor
47. Case 0
48. Return "Windows 2000"
49. Case 1
50. Return "Windows XP"
51. Case 2
52. Return "Windows 2003"
53. End Select
54. Case 6
55. Select Case Environment.OSVersion.Version.Minor
56. Case 0
57. Return "Windows Vista/Windows 2008 Server"
58. Case 1
59. Return "Windows 7"
60. End Select
62. Case Else
63. Return "Unbekannt"
64. End Select
66. Case PlatformID.WinCE
67. Return "Windows CE"
69. Case PlatformID.Xbox
70. Return "XBox"
72. Case PlatformID.MacOSX
73. Return "Mac OS X"
75. Case PlatformID.Unix
76. Return "Unix"
78. Case Else
79. Return "Unbekannt"
80. End Select
81. End Function
83. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
84. MessageBox.Show(GetOSVersion)
86. If GetOSVersion = "Windows 7" Then
87. Script für Windows 7
89. ElseIf GetOSVersion = "Windows XP" Then
90. Script für Windows XP
91. End If
92. End Sub
93. End Class

Code von diesem Thread, [VB.NET] Betriebssystem ermitteln (inkl. Architektur)

Mfg.eniking1998

danke sehr hab ich aber schon versucht, komischerweise krieg ich gleich in der ersten zeile einen error

Vollzitat => Unnötig...

Nenn doch präzise Angaben, wie lautet denn der Fehler?!

Mfg.eniking1998

enIking1998 schrieb:

Vollzitat => Unnötig...

Nenn doch präzise Angaben, wie lautet denn der Fehler?!

Mfg.eniking1998

ja Vollzitat war wirklich dumm, bekomme einen Bezeichner erwartet Fehler ..

Nenn bitte die Zeile, ggf sende ein Screenshot, bei mir klappt es...

Und zitiere nicht Posts, die über Dein Post liegen ^^+ ...

EDIT: Ah VBSCript?!

Hier,


Code von DIESEM Thread...

Mfg.eniking1998

Zeile 1
Zeichen 8
Fehler: Bezeichner erwartet
Code: 800A03F2

HIER :

www48.zippyshare.com/v/69088150/file.html

enIking1998 schrieb:

Option Explicit Const COMPUTER = "." Dim WMI, OSs, OS Set WMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & COMPUTER & "\root\cimv2") Set OSs = WMI.ExecQuery("Select * from Win32_OperatingSystem") For Each OS in OSs Wscript.Echo "Betriebssystem: " & OS.Name Next

ja vbscript dachte ich hab das e iwo angegeben .. ja mit nem echo hab ich das auch hinbekommen aber wie mach ich das das es im hintergrund läuft und sich dan eben nur speicher ob es win 7 ist oder xp?

Im Hintergrund?
Hmm... Wenn es das ist was ich denke...Naja...
Das käme als zweitiges infrage, Betriebsystem ermitteln und dafür den vordefinierten Schad-Script ausführen...

Mfg.eniking1998

enIking1998 schrieb:

Wenn es das ist was ich denke

Du suchst wohl in allem erst mal das Kriminelle

Anscheinend gibt es aber auch noch Leute, die sinnvolle Anwendungen programmieren. => [VBScript] Signatur mit VBscript

@petaod
Naja deswegen ja [zweitiges] infragekommend...

Gehe vom schlimmsten aus, und Du hast Platz für das Gute...

Mfg.eniking1998

enIking1998 schrieb:

@petaod
Naja deswegen ja [zweitiges] infragekommend...

Gehe vom schlimmsten aus, und Du hast Platz für das Gute...

Mfg.eniking1998

nein ich will kein schad skript schreiben ich will ein skript schreiben der das betriebssystem ohne echo pop up auslist und dan je nach betriebsystem entscheidet welches weitere skript er verwenden soll .. das dient nur zur richtigen signatur !!