kuestensturm
Aktives Mitglied
Thread Starter
- Dabei seit
- 15.02.2007
- Beiträge
- 501
- Reaktionspunkte
- 18
Hallo Community!
Ich benötige Hilfe bei der Umwandlung vom angehängten Windows VBS Skript in eine Mac Version.
Das Skript liest nach dem Öffnen die MAC-Adresse des Rechners und die Daten der Netzwerkkarte aus und zeigt diese in einem kleinen Fenster an.
Erklärtes Ziel ist es, unbeholfenen Usern durch einen Klick die MAC Adresse ihres Rechners anzeigen zu lassen.
Wie muss ich dazu vorgehen oder ist hier jemand der freundlicherweise das angehängte Skript umschreiben würde!?
Vielen Dank für Eure Hilfe
Skript:
Dim objNetworkAdapters, objAdapter, objWMI
Set objWMI = Nothing
Set objWMI = GetObject("winmgmts:")
Set objNetworkAdapters = objWMI.ExecQuery("select * from Win32_NetworkAdapterConfiguration where IPEnabled = 1")
For Each objAdapter In objNetworkAdapters
wscript.echo "Netzwerkkarte: " & objAdapter.Caption & " hat die MAC-Adresse " & objAdapter.MacAddress
Next
Ich benötige Hilfe bei der Umwandlung vom angehängten Windows VBS Skript in eine Mac Version.
Das Skript liest nach dem Öffnen die MAC-Adresse des Rechners und die Daten der Netzwerkkarte aus und zeigt diese in einem kleinen Fenster an.
Erklärtes Ziel ist es, unbeholfenen Usern durch einen Klick die MAC Adresse ihres Rechners anzeigen zu lassen.
Wie muss ich dazu vorgehen oder ist hier jemand der freundlicherweise das angehängte Skript umschreiben würde!?
Vielen Dank für Eure Hilfe
Skript:
Dim objNetworkAdapters, objAdapter, objWMI
Set objWMI = Nothing
Set objWMI = GetObject("winmgmts:")
Set objNetworkAdapters = objWMI.ExecQuery("select * from Win32_NetworkAdapterConfiguration where IPEnabled = 1")
For Each objAdapter In objNetworkAdapters
wscript.echo "Netzwerkkarte: " & objAdapter.Caption & " hat die MAC-Adresse " & objAdapter.MacAddress
Next