Hi
Ich habe aus dem Buch "Scripting Host" von einem Herrn Weltner folgenden Code. Jedoch kommt beim ausführen des Scriptes folgender Fehler:
Code
- Const SRV_NAME = "xxx"
- Const SRV_USR = "xxx"
- Const SRV_PWD = "xxx"
- Const SRV_FILE = "xxx"
- Const LCL_PATH = "xxx"
- Const LCL_FILE = "xxx"
- Set wshshell = CreateObject("WScript.Shell")
- Set fs = CreateObject("Scripting.FileSystemObject")
- Set inet = CreateObject("Internet.Tobtools")
- ' globale Variablen
- handle1 = 0
- handle2 = 0
- time1 = ConnectInternet(SRV_NAME, "", "")
- If Not inet.GefFile(handle2, SRV_FILE, LCL_PATH & LCL_FILE) Then HandleError Shutdown
- inet.DisconnectInternet
- time2 = Now()
- dIff = DateDIff("s", time1, time2)
- MsgBox "Sie waren genau " & dIff & " Sekunden online!"
- wshshell.run LCL_PATH & LCL_FILE
- Sub HandleError
- ShutDown
- inet.DisconnectInternet
- wshshell.Popup "Es ist ein Fehler aufgetreten: " & vbCR & inet.GetLastError, 3
- WScript.Quit
- End Sub
- Sub Shutdown
- 'Verbindung abbauen:
- inet.CloseHandle handle2
- inet.CloseHandle handle1
- End Sub
- Function ConnectInternet(ftp, user, pwd)
- ' wurde ein FTP-Unterordner angegeben?
- If Right(ftp, 1) = "/" Then ftp=Left(ftp, len(ftp) - 1)
- pos = Instr(ftp, "/")
- If pos > 0 Then
- 'ja, auseinanderdividieren
- url = Left(ftp, pos - 1)
- path = Mid(ftp, pos + 1)
- End If
- ' mit dem Internet Verbinden:
- inet.ConnectInternet
- ConnectInternet = Now()
- ' Internetfunktionen aktivieren:
- handle1 = inet.OpenInternet
- If handle1 = 0 Then HandleError
- ' mit FTP-Server verbinden:
- If user = "" Then
- handle2 = inet.Connect(handle1, url)
- Else
- handle2 = inet.Connect(handle1, url, user, pwd)
- End If
- If handle2 = 0 Then HandleError
- ' wurde FTP-Pfad angegeben?
- If not paht = "" Then
- ' dann Verzeichnis wechseln:
- inet.ChDir handle2, path
- End If
- End Function
Kann mir da jemand auf die schnelle helfen?
Gruss Biba
