- #1
M
mick.miller
Neues Mitglied
Themenersteller
- Dabei seit
- 27.09.2005
- Beiträge
- 2
- Reaktionspunkte
- 0
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
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