Rechnername mittels VB-Script ermitteln (ohne ActiveX Objekt)

  • VBScript

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

    Rechnername mittels VB-Script ermitteln (ohne ActiveX Objekt)

    moins,

    ich hab derzeit das Problem, dass ich mit meiner ASP-Webseite den Rechnernamen eines Clients ermitteln muss, um ihn dann mit einer Datenbank abzugleichen. Zwar habe ich schon die folgende Möglichkeit mit Hilfe eines ASP Objekts gefunden, aber die Standardsicherheitseinstellungen des Internet Explorers blockieren dieses Skript unweigerlich:

    Quellcode

    1. <script language="VBScript">
    2. set objNetwork = CreateObject("WScript.Network")
    3. strComputerName = objNetwork.Computername
    4. </script>


    für mich gibt es daher nur zwei Möglichkeiten ...

    1. den Rechnernamen ohne die Nutzung eines ActiveX Objektes auszulesen
    2. das Skript als "sicher" zu markieren, was den IE dazu bewegen würde dieses auch auszuführen.

    leider habe ich bei beiden Möglichkeiten absolut keine Ahnung wie ich das anstellen soll :(

    kann mir da wer helfen?
    die MAC Adresse des Rechners würde mir übrigens ebenso weiterhelfen wie der hostname (RDN oder besser FQDN)
    falls eins von beiden auch serverseitig ermittelbar ist, dann käme auch das als Lösung in Frage ... leider zeigen bei mir die Servervariablen REMOTE_HOST und REMOTE_ADDR jeweils die IP des Rechners an (ich weis ... REMOTE_HOST sollte den Namen geben ... tut's aber nich)


    thx für eure Hilfe



    P.S.
    das VB Script oben ist nur ein Auszug ... der ermittelte String wird entsprechend weiterverarbeitet

    Ich weiss nicht ob es hier zu deinem problem passt aber schaue dir das doch mal an:

    Visual Basic-Quellcode

    1. Dim strComputer, dicProductType, objWMIDateTime, objWMI, colOS, objOS
    2. Dim colCS, objCS, objBIOS, colBIOS
    4. ' Variablen der Daten
    5. Dim HostName, OSName, OSVersion, ProduktSchluessel, OriginalInstallDate
    6. Dim WindowsDirectory, SystemDirectory, TotalPhysicalMemory, SystemManufacturer
    7. Dim SystemModel
    10. ' ------ SCRIPT CONFIGURATION ------
    11. strComputer = "." ' e.g. rallen-srv01
    12. ' ------ END CONFIGURATION ---------
    14. Set dicProductType = CreateObject("Scripting.Dictionary")
    15. dicProductType.Add 1, "Workstation"
    16. dicProductType.Add 2, "Domain Controller"
    17. dicProductType.Add 3, "Standalone Server"
    20. Set objWMIDateTime = CreateObject("WbemScripting.SWbemDateTime")
    22. Set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    23. Set colOS = objWMI.InstancesOf("Win32_OperatingSystem")
    24. for Each objOS in colOS
    25. Wscript.Echo "Host Name: " & objOS.CSName
    26. next

Facebook
Telefonspende