WSH ActiveX

Dieses Thema WSH ActiveX im Forum "Webentwicklung, Hosting & Programmierung" wurde erstellt von mick.miller, 27. Sep. 2005.

Thema: WSH ActiveX hallo zusammen beim aufruf des codes erscheint mir eine meldung von activex. ich vermute, dass dies mit dem XP SP2...

  1. hallo zusammen

    beim aufruf des codes erscheint mir eine meldung von activex.
    ich vermute, dass dies mit dem XP SP2 zu tun hat. vor dem update habe ich das script firmenweit gebraucht.

    'Global variables
    Set fs = CreateObject(Scripting.FileSystemObject)

    Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000
    Const HKEY_LOCAL_MACHINE = &H80000002

    Dim filename
    Dim logfile
    Dim errorfilename
    Dim errorlogfile
    Dim strDomainOrWorkgroup
    Dim strUser
    Dim KeyPath
    Dim objReg
    Dim oReg

    filename=U:\NW\ActiveDirectory\Script\Verteilung\Winik-ODBC\read_reg_winik.txt
    errorfilename=U:\NW\ActiveDirectory\Script\Verteilung\Winik-ODBC\read_reg_winik-error.txt
    resultfilename = U:\NW\ActiveDirectory\Script\Verteilung\Winik-ODBC\result_read_reg_winik.txt

    Set file = fs.CreateTextFile(resultfilename, True)
    .....

    fehlermeldung:
    activex-komponenten kann kein objekt erstellen->scripting.filesystemobject'

    danke im voraus
    für die unterstützung

    gruss miller
     
  2. Hallo,

    was mir so spontan auffällt ist, das die Objekt-Variable fs bei

    Code:
    Set fs = CreateObject(Scripting.FileSystemObject)
    
    nicht mit Dim deklariert wurde. Aus dem Script geht leider nicht hervor, ob du Option Explicit gesetzt hast oder nicht!


    Gruss

    Reiner
     
  3. hallo

    ich habe fs deklariert, leider ohne erfolg.
    option explicit habe ich nicht angegeben:

    hier der komplette code:

    'Global variables

    Dim filename
    Dim logfile
    Dim errorfilename
    Dim errorlogfile
    Dim strDomainOrWorkgroup
    Dim strUser
    Dim KeyPath
    Dim objReg
    Dim oReg
    Dim fs

    Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000
    Const HKEY_LOCAL_MACHINE = &H80000002

    Set fs = CreateObject(Scripting.FileSystemObject)

    filename=U:\NW\ActiveDirectory\Script\Verteilung\Winik-ODBC\read_reg_winik.txt
    errorfilename=U:\NW\ActiveDirectory\Script\Verteilung\Winik-ODBC\read_reg_winik-error.txt
    resultfilename = U:\NW\ActiveDirectory\Script\Verteilung\Winik-ODBC\result_read_reg_winik.txt

    Set file = fs.CreateTextFile(resultfilename, True)

    On Error Resume Next

    Set FileSystem=CreateObject(Scripting.FileSystemObject)
    If FileSystem.FileExists(errorfilename) Then
       FileSystem.DeleteFile(errorfilename)
    End If
    Set errorlogfile=FileSystem.CreateTextFile(errorfilename, True)
    If FileSystem.FileExists(filename) Then
       Set logfile=FileSystem.OpenTextFile(filename, 1, True, 0)
       Do Until logfile.AtEndOfStream
          strComputer=logfile.ReadLine
    '      wscript.echo install: & strcomputer


    Set objReg = GetObject(winmgmts:\\ & strCOMPUTER & \root\default:StdRegProv)

    KeyPath = SOFTWARE\ODBC\ODBC.INI\WINIK
    ValueName = Server

    objReg.GetStringValue HKEY_LOCAL_MACHINE, KeyPath, ValueName, Value
    WScript.Echo Winik-ODBC: & Value
    file.Write strComputername
    file.WriteLine Value
     
          If Err Then
             errorlogfile.WriteLine (strComputer)
         wscript.echo Error: & strcomputer
    ' wscript.echo Err
          End If
       Loop
           
    End If

    logfile.Close
    errorlogfile.moveFile errorfilename, filename
    errorlogfile.Close

    WScript.Echo Finished
    WScript.Quit(0)
     
  4. Hallo,

    versuchs mal mit dem CreateObject() des WSH:

    Code:
    On Error Resume Next
    Set fs = WScript.CreateObject(Scripting.FileSystemObject)
    if err.number <> 0 then
     WScript.echo(WScript.ScriptName & : Error creating ActiveX -->  & _
                           err.Description)
     WScript.Quit(12)
    end if
    ...  
    
    Wenn das auch nicht funktioniert ist irgendetwas mit der Datei scrrun.dll auf deinem Rechner faul!

    Gruss

    Reiner
     
Die Seite wird geladen...

WSH ActiveX - Ähnliche Themen

Forum Datum
ActiveX Filterung Windows 7 Forum 18. Jan. 2015
ActiveX-Komponente kann kein Objekt erstellen:'GetObject' Windows 7 Forum 9. Jan. 2015
ActiveX - Erlaubnis neu entscheiden Web-Browser 10. Dez. 2013
ActiveX-Fehlermeldung vom IE in Outlook Express E-Mail-Programme 18. Sep. 2010
ActiveX in WORD (bzw. PDF- und HTML-Dateien) Windows XP Forum 18. Feb. 2009