VB Script Pfad als Parameter übergeben & Funktion aufrufen

  • VBScript

Es gibt 30 Antworten in diesem Thema. Der letzte Beitrag () ist von sabrina123451.

    Der Fehler wird zwar damit behoben, aber das Script funktioniert weiterhin nicht ordnungsgemäß

    Visual Basic-Quellcode

    1. 'Methode Subkey wird ausgelesen
    2. Const HKEY_LOCAL_MACHINE = &H80000002
    3. strComputer = "."
    5. Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
    6. strComputer & "\root\default:StdRegProv")
    8. strKeyPath = "SOFTWARE\Wow6432Node\InstallShield"
    9. objReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
    10. VersionString = "IswiAuto" & Mid(Version,1,10) & ".ISWiProject"
    12. 'For Each Subkey in arrSubKeys
    13. 'Wscript.Echo Subkey
    14. 'Next
    16. Dim version
    17. Dim Subkey As String
    18. version = Mid(SubKey,1,2)
    20. Set Project = CreateObject("IswiAuto" & "VersionString" & ".ISWiProject")
    21. if Wscript.Arguments.count > 0 Then
    22. strFile = WScript.Arguments.Item(0)
    23. else
    24. WScript.Echo "Die Datei wurde nicht gefunden, bitte wählen Sie eine Datei aus!"
    25. end if


    Habe ich vielleicht noch mehr Fehler drin?

    Du verwendest in zeile 10 eine Variable welche erst in Zeile 18 einen Wert erhält.
    Dieser wiederrum wird leer sein, weil du einen Teil der Variable Subkey verwendest, welche wiederum auch keinen Wert enhält.

    Grundsätzlich brauchst du auch kein Mid sondern einfach nur eine Stringverkettung.
    Zudem verwendest du in Zeile 20 eine Variable mit "" Zeichen, wodurch nicht die Variable ausgegeben wird sondern nur "Versionstring" als Wort.

    Als erstes solltest du dir also die Version aus dem RegKey in eine Variable packen.
    Hast du dies geschafft, dann kannst du diese (Nennen wir sie Version) verwenden:

    Visual Basic-Quellcode

    1. ​
    2. Set Project = CreateObject("IswiAuto" & Version & ".ISWiProject")
    Das ist meine Signatur und sie wird wunderbar sein!

    Meintest du das so?

    Visual Basic-Quellcode

    1. 'Methode Subkey wird ausgelesen
    2. Const HKEY_LOCAL_MACHINE = &H80000002
    3. strComputer = "."
    5. Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
    6. strComputer & "\root\default:StdRegProv")
    8. strKeyPath = "SOFTWARE\Wow6432Node\InstallShield"
    9. objReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
    11. 'For Each Subkey in arrSubKeys
    12. 'Wscript.Echo Subkey
    13. 'Next
    15. Dim version
    16. Dim arrSubKeys
    17. version = arrSubKeys
    19. Set Project = CreateObject("IswiAuto" & version & ".ISWiProject")
    20. if Wscript.Arguments.count > 0 Then
    21. strFile = WScript.Arguments.Item(0)
    22. else
    23. WScript.Echo "Die Datei wurde nicht gefunden, bitte wählen Sie eine Datei aus!"
    24. end if

    Hi habe es soweit hinbekommen dank Hilfe

    Visual Basic-Quellcode

    1. 'Funktion wird aufgerufen
    2. const HKEY_LOCAL_MACHINE = &H80000002
    3. dim out
    4. out = GetSubKeys(HKEY_LOCAL_MACHINE, "SOFTWARE\InstallShield\",32)
    5. For each sKey in out
    6. if Isnumeric(sKey) then
    7. Version = sKey
    8. exit for
    9. end if
    10. next
    12. Set Project = CreateObject("IswiAuto" & Version & ".ISWiProject")
    13. if Wscript.Arguments.count > 0 Then
    14. strFile = WScript.Arguments.Item(0)
    15. else
    16. WScript.Echo "Die Datei wurde nicht gefunden, bitte wählen Sie eine Datei aus!"
    17. end if
    19. Function GetSubKeys (RootKey, Key, RegType)
    20. Dim oCtx, oLocator, oReg, oInParams, oOutParams
    22. Set oCtx = CreateObject("WbemScripting.SWbemNamedValueSet")
    23. oCtx.Add "__ProviderArchitecture", RegType
    25. Set oLocator = CreateObject("Wbemscripting.SWbemLocator")
    26. Set oReg = oLocator.ConnectServer("", "root\default", "", "", , , , oCtx).Get("StdRegProv")
    28. Set oInParams = oReg.Methods_("EnumKey").InParameters
    29. oInParams.hDefKey = RootKey
    30. oInParams.sSubKeyName = Key
    32. Set oOutParams = oReg.ExecMethod_("EnumKey", oInParams, , oCtx)
    34. GetSubKeys = oOutParams.sNames
    35. End Function

    Und zwar zeigt er ja jetzt 20.0 beispielsweise an, er soll das ganze aber ohne .0 anzeigen daher auch
    die Fehlermeldung. Sprich ich muss den ausgelesenen Wert mit einem String hinten ab .0 abschneiden kann aber ja auch .1 oder .0001 oder ähnliches
    sein... wie mache ich dies am besten?

    Desweiteren soll er mir eine Fehlermeldung ausgeben wenn das IS nicht installiert ist und er deswegen keine Anwendung durchführen kann

    LG Sabrina

    Ab dem . soll alles grundsätzlich weg sein sodass es später so aussieht wenn ich es wieder zusammen setze IswiAuto20.ISWiProject

    Momentan ist es so: IswiAuto20.0.ISWiProject oder so zum beispiel IswiAuto19.0.ISWiProject
    aber es soll so aussehen IswiAuto20.ISWiProject oder so zum beispiel IswiAuto19.ISWiProject

Facebook