Der Fehler wird zwar damit behoben, aber das Script funktioniert weiterhin nicht ordnungsgemäß
Habe ich vielleicht noch mehr Fehler drin?
Visual Basic-Quellcode
- 'Methode Subkey wird ausgelesen
- Const HKEY_LOCAL_MACHINE = &H80000002
- strComputer = "."
- Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
- strComputer & "\root\default:StdRegProv")
- strKeyPath = "SOFTWARE\Wow6432Node\InstallShield"
- objReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
- VersionString = "IswiAuto" & Mid(Version,1,10) & ".ISWiProject"
- 'For Each Subkey in arrSubKeys
- 'Wscript.Echo Subkey
- 'Next
- Dim version
- Dim Subkey As String
- version = Mid(SubKey,1,2)
- Set Project = CreateObject("IswiAuto" & "VersionString" & ".ISWiProject")
- if Wscript.Arguments.count > 0 Then
- strFile = WScript.Arguments.Item(0)
- else
- WScript.Echo "Die Datei wurde nicht gefunden, bitte wählen Sie eine Datei aus!"
- end if
Habe ich vielleicht noch mehr Fehler drin?