473,574 Members | 2,982 Online
Bytes | Software Development & Data Engineering Community
+ Post

Home Posts Topics Members FAQ

vbscript runtime error

drhowarddrfine
7,435 Recognized Expert Expert
I've been running this VBScript, gracefully written by InsertAlias, for two days now and it's been perfect. Tonight, for no reason at all, it fails with this error:

Windows Script Host
Line:7
Char:1
Error:Permissio n denied
Code:800a0046
Source:Microsof t VBScript runtime error
Expand|Select|Wrap|Line Numbers
  1. 'define vars 
  2. url = "http://google.com"
  3. path = "C:\temp.txt"
  4. 'instantiate
  5. Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
  6. Set fso = CreateObject("Scripting.FileSystemObject")
  7. Set txtfile = fso.OpenTextFile(path, 2, True)
  8. Set oWS = WScript.CreateObject("WScript.Shell")
  9. 'make request
  10. xmlhttp.open "GET", url, false
  11. xmlhttp.send ""
  12. 'wait for response
  13. xmlhttp.waitForResponse()
  14. 'if status is 200, then it's OK
  15. if xmlhttp.status = 200 then
  16.     txtfile.WriteLine(xmlhttp.responseText)
  17.     txtfile.Close
  18.     'enable this to print
  19.     oWS.Run "NotePad.exe /p " + path
  20.     'enable this to just display
  21.     oWS.Run "notepad.exe " + path    
  22. else
  23.     'popup bad response, or just omit to end
  24.     WScript.Echo("bad response")
  25. end if
  26. 'destroy objects.  I'm not sure this is necessary
  27. Set txtfile = nothing
  28. Set xmlhttp = nothing
  29. Set oWS = nothing
  30. Set fso = nothing
Nov 25 '08 #1
3 5881
drhowarddrfine
7,435 Recognized Expert Expert
Now hold on here. It's too late to do anything now but there might be an error on my end after all. Let me look into this in the morning.
Nov 25 '08 #2
Curtis Rutland
3,256 Recognized Expert Specialist
For the record, it would seem that it is a permissions error of some kind...
Code Error 800A0046 - Runtime error: Permission Denied VBScript
Nov 26 '08 #3
drhowarddrfine
7,435 Recognized Expert Expert
The problem was caused by my server side code stuck in a test loop and feeding data continuously.
Nov 27 '08 #4

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

Similar topics

10
10801
by: | last post by:
I am accessing the same error-containing ASP page on an ISP server using w2k IE6 but with different effect. On the first computer I get several line of HTML outputed by ASP, shown correctly by the browser, followed by a descriptive error message: Microsoft VBScript runtime error '800a000b' Division by zero followed by the number of the...
3
7336
by: Mike Kanski | last post by:
I get this error Microsoft VBScript runtime error '800a01fb' When i call LoadPicture method, or when i pretty much do any operation with PictureBox like setting width and height. It happened after i apllied Service Pack 4 to my 2000 machine. Before it worked properly. Any suggestions?
1
4250
by: g_sharad | last post by:
I guess this is a very old problem, but this keeps bugging many ppl in many ways. I am facing the problem with the SQL query >>>> Insert Into DailySalesReport (hoautoid, dsdate, dsreport, dsclientid, dsprincipleid, dsremarks, dsadminlock ) Values (5,'2/16/2005','sacc',1,1,'cdssd','not') This query runs fine on query analyser, but when I...
1
1013
by: PaulieS | last post by:
Hi all. Am migrating a customer from IIS5 on W2K server to IIS6 on W2K3. Zipped all the websites and unzipped them to the identical locations on new server. Used IISMT to migrate metabase. Got this error when I tried to run a very basic page... code: <%@ LANGUAGE=vbscript %> <%
2
15787
by: anidmarty | last post by:
Hey I'm a Sysadmin and my users are getting this error on my production box. It works fine on the dev box. There is a script that is run that generates this error. Production is clustered environment using Microsoft Application Center. This was working before and starting throwing this error about 15 days ago. any help would be much...
0
2059
by: =?Utf-8?B?TWF0dCBDYWxob29u?= | last post by:
HI there, I am getting an error on my page which calls up a web service. Microsoft VBScript runtime error '800a13ba' Unknown runtime error: 'SearchQueryXML' /SearchResults.asp, line 142
0
6597
by: .nLL | last post by:
Erorr is --------------------- Microsoft VBScript runtime error '800a0046' Permission denied /a.asp, line 3 -----------------------
1
3800
by: morrisqueto | last post by:
Hello, One of my websites just started sending a new rare error. The site has been working for almost 2 years without trouble, but today morning started giving away this error in all my views. Microsoft VBScript runtime error '800a01fb' An exception occurred: 'MoveNext' /test.asp, line 544 Here is the code:
3
9424
by: nitewriter | last post by:
Hi, Can someone help me with this scripts, it works on a different server but gives me error now, This is the error I now get Microsoft VBScript runtime error '800a01f4' Variable is undefined: 'OpenConn' /customer/authenticate.asp, line 17
0
7805
marktang
by: marktang | last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However, people are often confused as to whether an ONU can Work As a Router. In this blog post, we’ll explore What is ONU, What Is Router, ONU & Router’s main...
0
7726
by: Hystou | last post by:
Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can effortlessly switch the default language on Windows 10 without reinstalling. I'll walk you through it. First, let's disable language...
0
8053
Oralloy
by: Oralloy | last post by:
Hello folks, I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>". The problem is that using the GNU compilers, it seems that the internal comparison operator "<=>" tries to promote arguments from unsigned to signed. This is as boiled down as I can make it. ...
1
7817
by: Hystou | last post by:
Overview: Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows Update option using the Control Panel or Settings app; it automatically checks for updates and installs any it finds, whether you like it or not. For...
1
5622
isladogs
by: isladogs | last post by:
The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM). In this session, we are pleased to welcome a new presenter, Adolph Dupré who will be discussing some powerful techniques for using class modules. He will explain when you may want to use classes...
0
5301
by: conductexam | last post by:
I have .net C# application in which I am extracting data from word file and save it in database particularly. To store word all data as it is I am converting the whole word file firstly in HTML and then checking html paragraph one by one. At the time of converting from word file to html my equations which are in the word document file was convert...
0
3741
by: TSSRALBI | last post by:
Hello I'm a network technician in training and I need your help. I am currently learning how to create and manage the different types of VPNs and I have a question about LAN-to-LAN VPNs. The last exercise I practiced was to create a LAN-to-LAN VPN between two Pfsense firewalls, by using IPSEC protocols. I succeeded, with both firewalls in...
1
1341
muto222
by: muto222 | last post by:
How can i add a mobile payment intergratation into php mysql website.
0
1060
bsmnconsultancy
by: bsmnconsultancy | last post by:
In today's digital era, a well-designed website is crucial for businesses looking to succeed. Whether you're a small business owner or a large corporation in Toronto, having a strong online presence can significantly impact your brand's success. BSMN Consultancy, a leader in Website Development in Toronto offers valuable insights into creating...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.