Code Domain :: Also da will ich einmal eine lokale Datei im IE hochladen und schon gibt es Streß?

Kategorie VBScript Sharepoint

eigentlich auch nicht wirklich, den ein Script zum Upload ist schnell gefunden.

Dieses benutzt im wesentlichen das ADODB.Stream und MSXML2.XMLHTTP.3.0 Object.

Diese sind eigentlich standardmäßig bei dem IE immer dabei....

Also kein Problem?

...

Nicht so wirklich

Das ADODB.Stream Objekt hat die CLSID {00000566-0000-0010-8000-00AA006D2EA4}.

Falls diese im Schlüssel -> HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\ActiveX Compatibility auftaucht -> verloren.
Ich habe es so gelöst, dass ich eine 1 angehängt habe, dann gehen die subentries nicht verloren

Dann ging es leider immer noch nicht, da nicht auf Cross-Domains zugegriffen werden darf.
Also entsprechende URL in die Sicherheitszone Lokales Netz verschieben und darauf achten, dass

aktiviert ist.

Damit lief das script bei mir.

<script language=VBSCRIPT>
dim strURL
function sendit( sfileName, sType)
sData = getFileBytes(sfileName, sType)
sfileName= mid(sfileName, InstrRev(sFileName,"\")+1,len(sfileName))
dim xmlhttp
set xmlhttp=createobject("MSXML2.XMLHTTP.3.0")
strURL = "http://localhost/" & sFileName
xmlhttp.Open "PUT", strURL, false
xmlhttp.Send sData
set xmlhttp=Nothing
End function

function getFileBytes(flnm, sType)
Dim objStream
Set objStream = CreateObject("ADODB.Stream")
if sType="on" then
objStream.Type = 1 ' adTypeBinary
else
objStream.Type = 2 ' adTypeText
objStream.Charset ="ascii"
end if
objStream.Open
objStream.LoadFromFile flnm
if sType="on" then
getFileBytes=objStream.Read
else
getFileBytes= objStream.ReadText
end if
objStream.Close
Set objStream = Nothing
end function
</script>
Was aber erst mal nichts darüber aussagt, ob bei anderen Rechnern evtl. noch andere Einträge vorgenommen werden müssen.

Gruß JJR
The Original Script

Code Domain

Code 4 Peanuts

Also da will ich einmal eine lokale Datei im IE hochladen und schon gibt es Streß?

Mach einen Kommentar

Vorschau

Suche

paper

Amazon

Archiv

Impressum

Powered By