Value wird nicht in Datei übertragen

  • VBScript

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Mono.

    Value wird nicht in Datei übertragen

    Hallo!

    Habe die Suche zwar gequält, aber leider nicht das passende gefunden.

    Ich bin gerade dabei eine Custom Wizard Pane für ein Deployment zu basteln.
    Diese soll drei Eingabefelder beinhalten, wo ein Benutzername und eine Passwort eingetragen werden kann.

    Soweit sogut.

    Wenn in ein Feld etwas eingtragen wird, soll der Wert des Feldes in eine INI Datei geschrieben werden.
    Nur irgendwie tut das Script nicht ganz das, was ich will.

    Hier mal die Quelltexte...

    Code der xml Datei

    Quellcode

    1. <Wizard>
    2. <Global>
    3. <CustomScript>Test3.vbs</CustomScript>
    4. <CustomScript>DeployWiz_AdminPassword.vbs</CustomScript>
    5. </Global>
    7. <Pane id="Benutzerdaten" title="Benutzerdaten">
    8. <Body>
    9. <![CDATA[
    10. <H1>Specify the Administrator account password.</H1>
    12. <p>This password will be used for logging onto the computer after a restart.</p>
    14. <table>
    15. <tr valign=top>
    17. <td width=100>
    18. <img src="DeployWiz_Administrator.png">
    19. </td>
    20. <td width="100%">
    22. Benutzername: <br>
    23. <input type=text id="NewUser" size=20 language=vbscript onchange=Test>
    24. <label class=ErrMsg For=NewUser>* Pflichtfeld</label><br>
    26. Administrator Password: <br>
    27. <input type=password id="Password1" name="AdminPassword" size=20 language=vbscript onchange=ValidatePassword onpropertychange=ValidatePassword>
    28. <label class=ErrMsg For=Password1>* Required (MISSING)</label><br><br>
    30. Confirm Administrator Password: <br>
    31. <input type=password id="Password2" size=20 language=vbscript onchange=ValidatePassword onpropertychange=ValidatePassword>
    32. <label id=NonMatchPassword class=ErrMsg For=Password2>* Passwords do not match!</label><br><br>
    34. </td>
    36. </tr>
    37. </table>
    39. ]]>
    40. </Body>
    41. <Initialization><![CDATA[ Password2.Value = Password1.Value ]]></Initialization>
    42. <Validation><![CDATA[ValidatePassword]]></Validation>
    43. <Validation><![CDATA[Test]]></Validation>
    44. </Pane>
    46. </Wizard>



    Code der Test3.vbs

    Quellcode

    1. Option Explicit
    3. Function Test
    4. Const strFileName = "UserSettings.ini"
    5. Const ForReading = 1
    6. Const ForWriting = 2
    7. Const ForAppending = 8
    8. Const CreateNotExist = True
    10. Dim strInput, objFSO, objFile
    12. Set strInput = GetElementByID("NewUser").Value
    13. Set objFSO = CreateObject("Scripting.FileSystemObject")
    14. Set objFile = objFSO.OpenTextFile(strFileName, ForWriting, CreateNotExist)
    16. objFile.WriteLine "NewUserName=" & strInput
    18. objFile.Close
    19. Set objFile = Nothing
    20. Set objFSO = Nothing
    22. End Function


    Wenn ich strInput mit einerInputBox befüllen lasse, funktioniert es problemlos.
    Sobald ich das ganze über GetElementByID machen will, passiert nichts. Kein Error, garnichts.
    Habs auch schon mit "Document.GetElementByID" versucht, auch kein Erfolg.
    Es wird auch die INI Datei nicht erstellt.

    Hat jemand eine Idee?

    Danke

    lg
    con

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „conartis“ ()

    Gib da mal vorsichtshalber einen Pfad mit an.Wer weiß, wo der hin schreibt.

    Dann schreibt er es in den selben Pfad wie das Script.

    Wo ist die GetElementByID Methode? Die existiert so nicht in VBS. Das geht über zB XMLDOM:

    Visual Basic-Quellcode

    1. Set objXMLDoc = CreateObject("Microsoft.XMLDOM")
    2. objXMLDoc.async = False
    3. objXMLDoc.load("test.xml")

    //Edit.
    Hab mir das "XML" mal angeschaut. Dort ist ja ein CDATA Tag. Das wird dann so nix mit XMLDOM, da ja alles innerhalb von CDATA nicht als Markup gesehen wird. Das wirst wohl am einfachsten via RegEx lösen

    /edit 2.

    VB.NET-Quellcode

    1. ​
    2. Option Explicit
    3. Call Test
    4. Sub Test
    5. Const strFileName = "UserSettings.ini"
    6. Const ForReading = 1
    7. Const ForWriting = 2
    8. Const ForAppending = 8
    9. Const CreateNotExist = True
    11. Dim strInput, objFSO, objFile, xmlDoc
    12. dim root, node, c
    14. Set xmlDoc = CreateObject("Microsoft.XMLDOM")
    15. xmlDoc.Async = "False"
    16. dim r
    17. r = xmlDoc.Load("test.xml")
    18. if not r then
    19. msgbox "Cannot load xml"
    20. exit sub
    21. end if
    22. set root = xmlDoc.documentElement
    23. Set strInput = root.getElementsByTagName("Body")
    24. For each node in strInput
    25. For each c in node.childnodes
    26. wsh.echo c.nodename
    27. wsh.echo c.nodetype
    28. wsh.echo c.nodevalue
    29. 'oder : wsh.echo c.data
    31. Next
    32. Next
    34. Set objFSO = CreateObject("Scripting.FileSystemObject")
    35. Set objFile = objFSO.OpenTextFile(strFileName, ForWriting, CreateNotExist)
    36. objFile.WriteLine "NewUserName=" ' & strInput
    37. objFile.Close
    38. Set objFile = Nothing
    39. Set objFSO = Nothing
    41. End Sub


    So kommst du an den CDATA Text. Eventuell kannst das HTML dann wieder parsen.
    Das ist meine Signatur und sie wird wunderbar sein!

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Mono“ ()

Facebook