By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
455,097 Members | 1,351 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 455,097 IT Pros & Developers. It's quick & easy.

I have a script that works in WinXP SP2 but not in WinXP SP1

P: 2
I have a scrip that works in XP SP2 but not in XP SP1
--------------------------------------------------------------------------------

I have the following scrip that works in XP SP2 but not in XP SP1

// Script
sub UpLoad (UploadFileName)
dim b1
b1=&H4000000 ' is required
set objStream =CreateObject("ADODB.Stream")
set objRecord =CreateObject("ADODB.Record")
set cnn =CreateObject("ADODB.Connection")
cnn.Open "provider=MSDAIPP.DSO;data
source="&document.all.NameMachine.value
objRecord.Open UploadFileName,cnn, 3,b1
objStream.Type = 1 'adTypeBinary
objStream.Open objRecord,3,4 ///// error line /////
objStream.LoadFromFile "c:\"+UploadFileName

objStream.Flush
objStream.Close
objRecord.Close

Set objStream = Nothing
Set objRecord = Nothing
cnn.close
set cnn = nothing
end sub

Error description : No such interface is supported

Any idea will be appreciated highly

--------------------------------------------------------------------------------
Mar 24 '07 #1
Share this Question
Share on Google+
1 Reply


yoda
100+
P: 291
I have a scrip that works in XP SP2 but not in XP SP1
--------------------------------------------------------------------------------

I have the following scrip that works in XP SP2 but not in XP SP1

// Script
sub UpLoad (UploadFileName)
dim b1
b1=&H4000000 ' is required
set objStream =CreateObject("ADODB.Stream")
set objRecord =CreateObject("ADODB.Record")
set cnn =CreateObject("ADODB.Connection")
cnn.Open "provider=MSDAIPP.DSO;data
source="&document.all.NameMachine.value
objRecord.Open UploadFileName,cnn, 3,b1
objStream.Type = 1 'adTypeBinary
objStream.Open objRecord,3,4 ///// error line /////
objStream.LoadFromFile "c:\"+UploadFileName

objStream.Flush
objStream.Close
objRecord.Close

Set objStream = Nothing
Set objRecord = Nothing
cnn.close
set cnn = nothing
end sub

Error description : No such interface is supported

Any idea will be appreciated highly

--------------------------------------------------------------------------------
maybe in it only works in sp2 because there are some added files in system32 that you need to the run the app.
Mar 24 '07 #2

Post your reply

Sign in to post your reply or Sign up for a free account.