WSH ActiveX

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

Hallo,

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


nicht mit Dim deklariert wurde. Aus dem Script geht leider nicht hervor, ob du Option Explicit gesetzt hast oder nicht!


Gruss

Reiner

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)

Hallo,

versuchs mal mit dem CreateObject() des WSH:


Wenn das auch nicht funktioniert ist irgendetwas mit der Datei scrrun.dll auf deinem Rechner faul!

Gruss

Reiner