Netzwerk-IP von einem andern Rechner auslesen

  • VBScript

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Mono.

    Netzwerk-IP von einem andern Rechner auslesen

    Hallo zusammen

    Ich hab folgendes Problem. Ich muss ein Skript abändern bei dem es um das Aufsetzen der Rechner geht.
    Das Aufsetzen erfolgt über das Netzwerk. Bis vor kurzem wurde der Computername ausgelesen und durch diesen an den betreffenden Server weitergeleitet.

    Visual Basic-Quellcode

    1. SET WshNetwork = WScript.CreateObject("WScript.Network")
    3. REM WScript.Echo "Your Computername is " & WshNetwork.ComputerName
    6. REM 4. zeichen des computernamens auslesen.
    7. region = MID(WshNetwork.ComputerName,4,2)
    10. REM anhand der region den richtigen server auswählen und skript ausführen
    11. DIM batchfile
    13. REM Standardserver ist East
    14. batchfile = "\\svnefs01\software$\AutoInst.cmd east"
    16. SELECT CASE region
    17. CASE "E1" : batchfile = "\\svnefs01\software$\AutoInst.cmd east"
    18. CASE "C1" : batchfile = "\\svncfs02\software$\AutoInst.cmd east"
    19. CASE "W1" : batchfile = "\\svnwfs03\software$\AutoInst.cmd east"
    20. CASE "E8" : batchfile = "\\svnefs01\software$\AutoInst.cmd east"
    21. CASE "C8" : batchfile = "\\svncfs02\software$\AutoInst.cmd central"
    22. CASE "W8" : batchfile = "\\svnwfs03\software$\AutoInst.cmd west"
    23. END SELECT
    26. REM in der Shell das Batchfile ausführen
    27. DIM objShell
    28. SET objShell = WScript.CreateObject ("WScript.Shell")
    29. CALL objShell.run (batchfile)
    30. SET objShell = NOTHING
    32. WScript.quit

    Nun muss ich die IP auslesen. Ich beschäftige mich noch nicht so lange mit VBS und habe dadurch keine Ahnung wie ich diese auslesen soll. Der Rechner hat verschiedene Netzwerkkarten (WLAN, LAN, Virtuelle Maschinen) und könnte dadurch noch erschwert werden. Hier habe ich mal ein wenig ausprobiert aber eben..

    Visual Basic-Quellcode

    1. SET WshNetwork = WScript.CreateObject("WScript.Network")
    3. REM WScript.Echo "Your IP-Adress is " & WshNetwork.IPConfig.IPAddress
    6. REM 4. zeichen der IP auslesen.
    7. ipadresse = MID(WshNetwork.IPConfig.IPAddress,6,2)
    10. REM anhand der IP den richtigen server auswählen und skript ausführen
    11. DIM batchfile
    13. REM Standardserver ist East
    14. batchfile = "\\svnefs01\software$\AutoInst.cmd east"
    16. SELECT CASE ipadresse
    17. CASE "96" : batchfile = "\\svnefs01\software$\AutoInst.cmd east"
    18. CASE "97" : batchfile = "\\svncfs02\software$\AutoInst.cmd central"
    19. CASE "98" : batchfile = "\\svnwfs03\software$\AutoInst.cmd west"
    21. END SELECT
    24. REM in der Shell das Batchfile ausführen
    25. DIM objShell
    26. SET objShell = WScript.CreateObject ("WScript.Shell")
    27. CALL objShell.run (batchfile)
    28. SET objShell = NOTHING
    30. WScript.quit


    Kann mir jemand dabei helfen?

    Gruss

Facebook
Telefonspende