Betriebssystem mit Skript auslesen

Hallo zusammen,

leider gibt es je nach Betriebssystem verschiedene VBS-Befehlssätze beim Comfort Panel bzw. beim PC, daher möchte ich ein Skript schreiben, mit dem ich auslesen kann, welches Betriebssystem aktuell ist.

Ich benutze WinCC v13 SP1. Kann mir jemand helfen?

Vielen Dank
  PASE

Hallo,

bei den Filezugriffen muß ja bei VBS zwischen WinCE und Windows X unterschieden werden.

Ich würde da nicht das Betriebssystem abfragen, sondern eine interne binäre Variable anlegen (z.B. OSisCE) und dieser dann als Startwert bei WinCE eine 1 und sonst eine 0 übergeben.

Diese Variable dann einfach in den Skripten, bei denen das notwendig ist, abfragen.

Mfg

mm76

Hallo Murof,

vielen Dank für den Tipp, mit folgendem Skript funktioniert es:

Dim fso, drive, result

On Error Resume Next

Set fso= CreateObject("Scripting.FileSystemObject")

Set drive= fso.GetDrive(fso.GetDriveName(fso.GetAbsolutePathName("\Storage Card USB\")))

If Err.Number = 0 Then

  result = 1

Else

  result = 2

End If

Nun muss ich nur noch nach 1 (Win7) oder 2 (CE) unterscheiden - fertig!

Vielen Dank

Hallo PASE,

wenn ich es richtig interpretiere, hast du in deinem Script beide Betriebssystem vermischt.

- Scripting.FileSystemObject >> u.a. Windows 7

- StorageCard USB >> WinCE

Ausserdem müsstest du im WinCE bereits mit folgender Zeile eine Fehlernummer <> 0 bekommen:

Set fso= CreateObject("Scripting.FileSystemObject")

Gruss

Frink

Hallo Frink,

aufgrund der Zeile "On Error Resume Next" bekomme ich keine Fehlermeldung und das Skipt läuft durch. Lässt man diese Zeile weg, kommt je nach Betriebssystem eine Fehlermeldung.

  PASE

Hallo PASE,

das ist merkwürdig. "On Error Resume Next" heisst, dass die folgenden Befehle trotz eines Fehlers ausgeführt werden sollen. "Err.Number" sollte trotzdem auf einen Wert >0 gesetzt werden, womit du z.B. eine Systemmeldung mit den Fehlerinformationen erzeugen kannst.

Gruss
Frink