I would like to be able to exit out of my loop by pressing a particular key.

TheMSsForum.com: The Microsoft Software Forum

The MSS Forum ‹ VBscripts
- Archive
  - Biz
  - MCSE
  - CRM
  - Drivers
  - Framework
  - ADO
  - ASP
  - Compact
  - Forms
  - Dotnet
  - C#
  - VB
  - FontpageGen
  - Excel
  - WorkSheet
  - Exchange
  - Setup
  - Fox
  - Fontpage
  - ASP
  - IIS
  - Entourage
  - Money
  - Messanger
  - PocketPC
  - Powerpoint
  - Project
  - Publisher
  - Excel
  - VB
  - Security
  - Portal
  - Services
  - SQLServerDev
  - SVCS
  - SQLServer
  - VB
  - VC
  - MFC
  - ExcelGen

- Previous
  - 1
    - The ConnectionString property has not been initialized Hi, I am fairly new to ASP.NET and have been working on a web form that will allow a user to upload images to a database. I have found a sample web form that I have been trying to get working, and the web form loads up fine but upon submitting the image, it comes with the following error: The ConnectionString property has not been initialized. Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code. Exception Details: System.InvalidOperationException: The ConnectionString property has not been initialized. Source Error: Line 129: Try Line 130: Line 131: myConnection.Open() Line 132: Line 133: myCommand.ExecuteNonQuery() I found this script from the following website http://aspalliance.com/articleViewer.aspx?aId=138&pId= Can anyone please help I am completely lost as to how to correct this problem. I am using Visual Studio 2005 beta 1, IIS 6.0, .NET version 2.0.40607 and SQL Server 2000. Any help would be greatly appreciated. Thank, Devante Tag: I would like to be able to exit out of my loop by pressing a particular key. Tag: 167875
  - 2
    - Help needed in VBScript Actually i'm working on windows CE environment there i need to write some asp pages ... my problem is:- I had a automation component registered in my device, i need to call the methods of this from ASP page using VBScript. I'm able to create a object and able to call the methods. Here, some of the methods returning more than one value .... so, how can i get their contents from my ASP page. To return one value i used [out, retval] in my method, where it is throwing one return value that i'm catching in my ASP page, but for more than one value how i can get.... Here is my function signature: STDMETHODIMP CMath::FunctionName(BSTR var1, BSTR var2, SHORT *retrn1, SHORT *retrn2) so, now from VBScript how can i pass reference to this variables and get the contents from the method. -- Software Engineer -- Software Engineer Tag: I would like to be able to exit out of my loop by pressing a particular key. Tag: 167873
  - 3
    - VBscript to save a web page I am looking for a VBscript that will open a pre-defined URL and save the contents to a htm file. Anyone already got it and doesn't mind to share. Thanks Tag: I would like to be able to exit out of my loop by pressing a particular key. Tag: 167865
  - 4
    - Using COM object's enum Hello, I would like to know how to use a COM object's enum in VBScript? For example: Set objCN = CreateObject("ADODB.Connection") 'objCN.CursorLocation = adUseClient Note that "adUseClient" is an enum (ADODB.CursorLocationEnum.adUseClient). Thanks a lot. Sa Tag: I would like to be able to exit out of my loop by pressing a particular key. Tag: 167864
  - 5
    - rename files according to file list in excel Dear, I would like to rename all files in a directory, starting with the first file in that directory. The new name of the file should be the first name vb finds in an excel list starting from Cell A1 to end of list. I have starting with someting like this: Function RENAME() Dim oldName, newName Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder("C:\data") For Each file In f.Files Name oldName As newName Next End Function But as you can see I still need the loop through cell A1... Can somebody help me? Thanks Frederik. Tag: I would like to be able to exit out of my loop by pressing a particular key. Tag: 167863
  - 6
    - Me in vbscript ? Hi, I have created a table with this script : <table onmouseover=this.style.background='Gray' language=javascript> How I can change onmouseover event to vbscript ? I use vbscript for my website. Thanks in advance. Tag: I would like to be able to exit out of my loop by pressing a particular key. Tag: 167854
  - 7
    - Populating a pull down list in a .hta from AD I'm working on a user.hta file and I need to populate a pull down of all the users, then with that I can populate all the other information fields and eventually get the hta to use POST to update specific information. Anyone have an example of using some ADSI within an hta ? Mike Tag: I would like to be able to exit out of my loop by pressing a particular key. Tag: 167850
  - 8
    - From field in Outlook blank Hello, I have this script that emails me, but I can't seem to get it to fill in the From field in Outlook. I receive the message, but the From field is blank. When I open the message up, the From field is filled in properly, but when the message is listed in Outlook, the From field is blank. I'm using legitimate users in From field too. I know this sounds confusing, but if you have Outlook, then you'll know what I mean... Here is the script: Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory. Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network). Const cdoAnonymous = 0 'Do not authenticate Const cdoBasic = 1 'basic (clear-text) authentication Const cdoNTLM = 2 'NTLM Set objMessage = CreateObject("CDO.Message") objMessage.Subject = "Example CDO Message" objMessage.Sender = """user1"" <user1@company.com>" objMessage.To = "user2@company1.com" objMessage.TextBody = "This is some sample message text.." & vbCRLF & "It was sent using SMTP authentication." objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "10.0.0.21" objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoAnonymous objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 objMessage.Configuration.Fields.Update objMessage.Send Script runs fine, but I wondering if I'm missing something, or is this the inherent nature of SMTP relaying. Thanks all, Troy Tag: I would like to be able to exit out of my loop by pressing a particular key. Tag: 167848
  - 9
    - Cannot formulate proper script for validation Hi, I got a text box named txt_CurrentOutlay which updates a currency field in a database table. Now I need to do a validation for this field. I would like to force user to submit a currency(numeric) field. If they do not supply numeric field and try to jump to next txt field, it should give a alert message stating "Only numbers are allowed in this field and then forcing 0 to this field. I am curious to know which event this validation takes place. Any article, sample or link to a web site is higly appreciated. Thanks in advance. Tag: I would like to be able to exit out of my loop by pressing a particular key. Tag: 167847
  - 10
    - cmd tool output to variable Hey folks. Thanks for all the help prior. I am now trying to collect the output information from a cmdline tool. pslist I would like to run pslist and put its contents into a variable that I can later write to a file. Can someone help me with this Thanks Tag: I would like to be able to exit out of my loop by pressing a particular key. Tag: 167845
  - 11
    - terminal server How can I get the internet address of the RDP Client when they acess Terminal Server? Tag: I would like to be able to exit out of my loop by pressing a particular key. Tag: 167839
  - 12
    - Perform PGP decryption in VBScript I am trying to find out if it would be possible to perform PGP decryption within VBScript. Any sample codes would be greatly appreciated. Thank you. Tag: I would like to be able to exit out of my loop by pressing a particular key. Tag: 167837
  - 13
    - Scripting MBSA Is there a way to alter the resutls page that MBSA generates to make the links to the needed patches on a local system or a USB key instead of it pointing to WU? We are trying to patch systems off our network and if we could get MBSA to point to an offilne storage that would be great. Or being able to parse a txt file that MBSACLI generates and then have a script chain the needed patches together would be even better! Regards. Tag: I would like to be able to exit out of my loop by pressing a particular key. Tag: 167833
  - 14
    - Object does not support this property or method "Document.Report" Hi, I have the following vbscript in the <head> of asp page. <SCRIPT LANGUAGE="VBScript"> sub btn_LogOut_OnClick() dim asnwer answer=msgbox("Are you sure you want to exit?. If your session is not locked but sure to save your changes first before exiting.",vbYesNo,"Notice") if answer=vbyes then Document.Report.Submit end if end sub </SCRIPT> I am calling this method from a button click of the same page and the code for that is: <input type="button" value="Log Out (Will not Save)" name="btn_LogOut" > I have no idea why I am gettin the above error. Any help is appreciated. Thanks. Tag: I would like to be able to exit out of my loop by pressing a particular key. Tag: 167831
  - 15
    - Read Text File into Excel Using VBA or VBScript Hi All, I'm a new VBA programmer. I know how to pull an entire text file into an Excel Spreadsheet, but I only want specific information from the text file not the entire text file. What I have is about 25 text files stored in a folder, let's say C:\test. Each file is named by a property address as follows: 209 MAIN ST.txt 213 MAIN ST.txt 111 ELM ST.txt 2356 WOOD AVE.txt On the 11th row of each file is as follows: Property Address:209 MAIN ST On the 31st row of each file is as follows: Total Value:30500 What I would like to do is read each file located in the "C:\test folder and write a record (row) into a single Excel Spreadsheet for each property. I would like the Excel Spreadsheet to look as follows once completed. Note the 1st row below is a header row that needs to be generated by the code. Property Address Total Value 209 MAIN ST 30500 213 MAIN ST 60700 111 ELM ST 20400 2356 WOOD AVE 20900 Can I read a header list (in a spreadsheet, text file, or hard coded in the code) which I would prefer the spreadsheet or text file method, write the header row in A1 then B1. Next read the 25 text files and search based on the header info written above (Property Address & Total Value) and write the appropriate to the single spreadsheet. The 11th row of the First text file value written in cell A2, then read the 31st row of the First text file write the value in cell B2, then loop to the Second text file and values from The 11th row of the Second text file value written in cell A3, then read the 31st row of the Second text file write the value in cell B3, so on and so forth until the last text file is read and the last record is written. I know this is elementary to most, but I'm a beginner programmer and sure could use the help... Can any one help? Thanks in advance. Willie T Tag: I would like to be able to exit out of my loop by pressing a particular key. Tag: 167828
  - 16
    - Script to open word remotely I am trying to run a script across a network to run word on another machine. I can start a process on the remote machine, but I can't get the window to show up. Any ideas? Thank you! -- connerl Tag: I would like to be able to exit out of my loop by pressing a particular key. Tag: 167827
  - 17
    - Get information from an other program Hello, Does anybody know how i can get information with VBscript from a window of an other program. I have a little pice of javascript where it works. But my VB is better than Javascript The javascript is: var Running = 0; var TE = new ActiveXObject("DAT32COM.TERMINALEMULATION"); var V = new ActiveXObject("Viewpoint.ViewpointSrv"); var xmlDoc = new ActiveXObject("Microsoft.XMLDOM") xmlDoc.async="false" function Som(Command) { TE.MakeEntry("<FORMAT>"+Command+"</FORMAT>"); return(TE.ResponseXML); } function Loep() { var Response = Som("QCA"); xmlDoc.loadXML(Response); nodes=xmlDoc.documentElement.childNodes; PCC.innerText=nodes.item(0).text.substring(6,10); In the row above i get the info from digit 6 to 9. Thks, Michel Tag: I would like to be able to exit out of my loop by pressing a particular key. Tag: 167821
  - 18
    - FSO file.type How do you deal with FSO file.type method returning "JPEG Image" on one PC and "DELL Image Expert Picture" on another when the file's extension is jpg? Must I parse the file.name property to be sure of its type? thanks LJB Tag: I would like to be able to exit out of my loop by pressing a particular key. Tag: 167819
  - 19
    - getting type mismatch with array I'm building a treeview page that is generated and expanded as the user opens links from it, and am using an array stored in a session variable to maintain the tree. The problem I've hit is that of how to corectly dim the array variable. the variables are dimed after option explicit, but having dim arrtree there throws a type mismatch at line 116 when the array is empty but not when its populated having dim arrtree() throws same at line 87 when the array is populated, but is fine when its empty obviously trying to have two dim statements in the if-else throws a 'redefined' error. other than removing the option line, how to get round this? this is the part of the code that is doing the work: if intmenuid > 0 then if session("arrtreeflag") > "" then arrtree = session("arrtree")'########line 87 thisid = Request.QueryString("thisid") x = ubound(arrtree,2)+1 arrtree(9,thisid) = 1 sql = "select tagid,rtrim(m1.menuname) from navigate_tags t left join navigate_menus m1 on tagid = m1.menuid where parentid = "&intmenuid&" and menuname is not null order by node" else sql = "select tagid,rtrim(menuname) from navigate_tags, navigate_menus where parentid = 0 and node = 0 and tagid = menuid" x = 0 level = 0 parentnode = 0 strmessage = "reset" end if else sql = "select tagid,rtrim(menuname) from navigate_tags, navigate_menus where parentid = 0 and node = 0 and tagid = menuid" x = 0 level = 0 parentnode = 0 intmenuid = 0 end if if strmessage > "" then Response.Write "timeout - tree reset to top<br/>" 'sql = "cn_viewtree_count "&intmenuid&" " Response.Write "" set rs = conn.execute(sql) if not rs.eof then do while not rs.eof Response.Write "" redim preserve arrtree(10,x) ''''##########line 116 arrtree(0,x) = rs(0) ' node id arrtree(1,x) = 0 ' 0 = menu 1 = item if intmenuid > 0 then arrtree(2,x) = intmenuid ' parentid if intmenuid = 0 then arrtree(2,x) = 0 ' parentid arrtree(3,x) = rs(1) ' name Response.Write "" set rs_c = conn.execute("cn_viewtree_child "&rs(0)&" ") arrtree(4,x) = rs_c(0) ' has child 0 false 1 true arrtree(5,x) = 0 ' has been used in tree arrtree(6,x) = level ' tree level arrtree(7,x) = x ' array node arrtree(8,x) = intmenuid'parentnode 'parent array node arrtree(9,x) = 0 ' has been opened Response.Write "adding index["&x&"] id["&arrtree(0,x)&"]par ["&arrtree(2,x)&"]name["&arrtree(3,x)&"]child["&arrtree(4,x)&"]level ["&arrtree(6,x)&"]parentnode["&arrtree(8,x)&"] <br />" x=x+ 1 rs.movenext loop end if 'arrtree(4,x) = 0 ' has child 0 false 1 true set session("arrtree") = nothing session("arrtree") = arrtree set session("arrtreeflag") = nothing session("arrtreeflag") = "current" Tag: I would like to be able to exit out of my loop by pressing a particular key. Tag: 167818
  - 20
    - how to read the correct Excel data area I exported a Access table to Excel sheet, then added some more data records, on the sheet. When I re-read this sheet with VBS with DAO, like; Set DB = DBE.Workspaces(0).OpenDatabase(xlsFile,False,False,"Excel 8.0;") Set RS = DB.OpenRecordset(sheetName). With RS Do While Not .EOF ----- ----- All added data records can not be read and stopped always previous end point. Is any place still have the size of data sheet? If so, how to correct and let VBS read the correct , expanded, data area? Thanks in advance, M.M -- ---------------------- System YNT mmiura@sysynt.com ---------------------- Tag: I would like to be able to exit out of my loop by pressing a particular key. Tag: 167812
  - 21
    - ASP Pages accessing databse issue I am attempting to retrieve a value from a database and populate a textbox on my html form. This code appears to run fine without error but i do not get any value in my textbox. Im very new to ASP and im having to change an existing system. If i do not put my vbscript code at the bottom of the screen then my page will not render correctly. Can anyone please help me ??? Are there any major flaws with my code ??? should my script be before my textbox ???? by the way im only hardcoding input values for test purposes. <%@ Language=vbscript LCID=2057%> <HTML> <HEAD> <title>IDD Document</title> <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"> </HEAD> <body bottomMargin="0" leftMargin="0" topMargin="0" rightMargin="0" MS_POSITIONING="GridLayout" bgcolor="#ffdcff"> <form id="Form1" method="post" runat="server"> <TABLE id="Table1" style="Z-INDEX: 102; LEFT: 0px; POSITION: absolute; TOP: 0px" cellSpacing="0"cellPadding="0" width="100%" border="0" height="100%"> <TBODY> <TR> <TD style="HEIGHT: 42px" vAlign="top"> <BR> <INPUT id="btn_BackToMenu" type="button" value="Close Window" onclick="window.close()" runat="server"></TD> ******************************************************************* *******************TEXT BOX I WANT TO POPULATE********************* <input type="text" name="T1" size="20" value="<%= strtext%>" ******************************************************************* ******************************************************************* </TR> <TR> <TD><iframe name="myIframe" height="100%" width="100%" frameborder=no src="documents/IDD.pdf" </TR> </td></form> </TABLE> </form> </body></IFRAME></TR></TBODY></TABLE></FORM> ***************************************************************************** ******************VBSCRIPT CODE******************************** ***************************************************************************** <% Dim oRS, strSQL, txt_ClientCode, strtext txt_ClientCode = "AA3" If len(txt_ClientCode)>0 Then 'strSQL = "Select ClientCode, PDFName From tbl_PaymentProtectionPDF Where ClientCode='" & txt_ClientCode & "'" strSQL = "Select ClientCode, PDFName From tbl_PaymentProtectionPDF Where ClientCode = '" & txt_ClientCode & "'" Set oRS = Server.CreateObject("ADODB.RecordSet") oRS.Open strSQL,Application("ConnectionString"),adOpenKeyset,adLockOptimistic If Not (oRS.EOF And oRS.BOF) Then strtext = oRS("ClientCode") Response.Write(strtext) oRS.Delete oRS.Update End IF oRS.Close Set oRS = Nothing Response.End End If %> ***************************************************************************** ******************VBSCRIPT CODE******************************** ***************************************************************************** </BODY> </HTML> Tag: I would like to be able to exit out of my loop by pressing a particular key. Tag: 167810
  - 22
    - populating AD fields from pick list I want to scroll through my USERS container and for each user, I want to be able to manually select from a list and return a code that is inserted into a field in AD for that user... Idealy once selected that field could be removed from the list. This is a one time deal so does not have to be fancy. I have my list of names/codes in Excel. Carl Tag: I would like to be able to exit out of my loop by pressing a particular key. Tag: 167808
  - 23
    - how to create directories? I am unsure as to how to do this without creating a long winded script. I want check to see if a directory or 2 directories exist and if they don't then create them. ie: dir1 \ dir2 \ dir 3 \dir 4 \ dir 5 So dir1 exists but 4 & 5 don't and neither do 2 + 3. The only way to do this that i have found is to create a separate variable for each directory and then create each separately oDir1 = c:\dirA\dirB oDir2 = dirC oDir3 = dirD mDir = oDir1 + oDimM mDir = MDir + oDir3 (just a sample) Is there a better way of doing this? jp Tag: I would like to be able to exit out of my loop by pressing a particular key. Tag: 167806
  - 24
    - vbscript error accessing database client or server ?? I am trying to run the following vbscript code (see SCRIPT CODE below) using an onclick event on a button(see BUTTON CODE below). I am getting the "error: object expected" at the button code line. Is there a fundamental problem with my script , i.e. trying to run a server side script using a button or is there merely a coding error??? I was hoping to run this code automatically when the page loads pulling in the txt_ClientCode value from a cookie but when i used the line txt_ClientCode = request.cookie("ClientCode") and ran the code as client side script i got an error on the word request. Can anyone please give me a few explanations as to what is happening and any helpful hints. BUTTON CODE <input name="testname" type=button onclick="TestMsg()" style="width:105px;"> SCRIPT CODE <SCRIPT LANGUAGE=vbscript runat=server> Function TestMsg() Dim oRS, strSQL, txt_ClientCode txt_ClientCode = "G10" If len(txt_ClientCode)>0 Then strSQL = "Select ClientCode, PDFName From tbl_PaymentProtectionPDF Where ClientCode='" & txt_ClientCode & "'" Set oRS = Server.CreateObject("ADODB.RecordSet") oRS.Open strSQL,Application("ConnectionString"),adOpenKeyset,adLockOptimistic If Not (oRS.EOF And oRS.BOF) Then msgbox(oRS("ClientCode")) oRS.Delete oRS.Update End IF oRS.Close Set oRS = Nothing Response.End End If end function </SCRIPT> Thanks Tag: I would like to be able to exit out of my loop by pressing a particular key. Tag: 167805
  - 25
    - Re: Communicating Between VB6 and a HTML Document Happy New Year Winguy: You have written the code to set the value of a text, but, have you discovered how to set & retrieve the values of Check boxes, and Select Options? Thanks. From: WinGuy (no_spam@nomail.bot) Subject: Communicating Between VB6 and a HTML Document View this article only Newsgroups: microsoft.public.scripting.vbscript Date: 2004-12-28 12:26:03 PST I had a need to manipulate the activities of a webpage hosted by the WebBrowser control from within a Visual Basic project. The requirement was that VB must be able to communicate with VBScript, and vice versa. This is how I accomplished the task. I created a new Visual Basic project and placed the WebBrowser control on its default form. I initially set that control properties with a name of WebBrowser1, and as not visible. I placed a command button on top of the WebBrowser1 control, right-clicked it and sent it to the front and then right-clicked the WebBrowser1 control and sent it to the back. I set the form properties to not display a menu bar. I set the click event handler for the command button to end the program. In the form unload event is where I destroyed all objects before the VB program would end. This code would set the form to entirely fill a 1024x768 screen: Me.Move 0, 0 Me.Width = 15360: Me.Height = 11520 Me.Visible = True This code would then initialize that control for full screen and no taskbar or menus: WebBrowser1.Left = 10: WebBrowser1.Top = 10 WebBrowser1.Height = Me.Height - 20: WebBrowser1.Width = Me.Width - 20 WebBrowser1.AddressBar = False WebBrowser1.MenuBar = False WebBrowser1.StatusBar = False WebBrowser1.FullScreen = True WebBrowser1.TheaterMode = True WebBrowser1.GoHome WebBrowser1.Visible = True I defined a global variable named PageReady. Then this code in WebBrowser1.DocumentComplete: PageReady = True Then I created Sub MyTest() and placed this code into it: WebBrowser1.Navigate MyPath & "Page1.html" 'MyPath is previously defined PageReady = False While PageReady = False: DoEvents: DoEvents: DoEvents: Wend 'Page loaded 'Set the text value in the page control named txtWebBrowser! WebBrowser1.Document.All.Item("txtWebBrowser").Value = "Message from VB6 Code!" 'Get the text value in the page control named txtWebBrowser! 'MsgBox WebBrowser1.Document.All.Item("txtWebBrowser").Value ---------------- That completes the VB part. I then created a webpage called Page1.html,Read the rest of this message... (43 more lines) Post a follow-up to this message Tag: I would like to be able to exit out of my loop by pressing a particular key. Tag: 167801
- Next
  - 1
    - ActiveX Calendar Control On FrontPage 2003 Hi there, I inserted a Calendar Control 10.0 into my FrontPage 2003. I can display it however, I was unable to retrive my selected date value. I don't see a property called Value when I use the "." operator. If I use the sample code from article 299691, I got an Error: Object required: 'Calendar1' Did I use an incorrect version of Calendar Control on FrontPage 2003? Any idea? Thanks. Abel Chan Tag: I would like to be able to exit out of my loop by pressing a particular key. Tag: 167800
  - 2
    - Error in loading DLL. '800a0030' Hi folks, I have been trying to solve an ERROR during some days with no result. I would appreciate if any of you could help me with this issue. This is the error message produced by the ASP page: Microsoft VBScript runtime error '800a0030' Error in loading DLL: 'Datos.SetObjProceso' /Prueba.asp, line 4 And this is the ASP code: ASP Page (Prueba.asp) ------------------------------- Set Proceso= Server.CreateObject("Procesosdll.Proceso") Set Datos= Server.CreateObject("Procesosdll.Datos") Set Proceso.SetObjDatos = Datos Set Datos.SetObjProceso = Proceso <----- The error happens to be here ------------------------------- None of the posible reasons apply to this case: - Use of collections: There is not collections in the 2 objects. - Sending e-mails: There are no emails sent from this component. - Return recordsets: I don´t return them. - Return types defined by the user (UDT): As you could see in the code, this practice is not used. The most extrange thing is that the previous code line to the error (Set Proceso.SetObjDatos = Datos), which is very similar, does not produce the ERROR. The component Procesosdll have 2 objects: Datos and Proceso. These are the properties related to the error (the others are working fine): Object Datos ------------------------------- Private mvarObjProceso As Proceso Public Property Set SetObjProceso(ByVal obj As Proceso) Set mvarObjProceso = obj End Property ------------------------------- Object Proceso ------------------------------- Private mvarObjDatos As Datos Public Property Set SetObjDatos(ByVal obj As Datos) Set mvarObjDatos = obj End Property ------------------------------- It is also very weird that in the development environment everything is working fine and, on the other hand, in the production env. this misterious error is being happing. Development environment detail ------------------------------- Windows NT 4.0 + SP 6 IIS 2.0 VB 6.0 ------------------------------- Production environment detail ------------------------------- Windows 2003 Server IIS 6.0 ------------------------------- Unfortunately I cannot have the same configuration (OS+IIS) in both environments as they belong to different companies shared to different users. Any help would be really appreciated. Thanks in advanced and regards. Sergio Galindo. Tag: I would like to be able to exit out of my loop by pressing a particular key. Tag: 167799
  - 3
    - using variable in Where clause I am trying to create a script that will kill a process based on the process name which is passed to the script as a cli argument. The following code snippet works fine if the process name is hardcoded in the script, but I can't assign the process name to a variable and use that in the ExecQuery command. Set colProcessList = objWMIService.ExecQuery _ ("SELECT * FROM Win32_Process WHERE Name = 'AIM.EXE'") I would rather use WHERE Name= variable Tag: I would like to be able to exit out of my loop by pressing a particular key. Tag: 167789
  - 4
    - class property Let -v- Set Anyone have an example that could illustrate where/when a Class Property â??Setâ?? is used as opposed to a â??Letâ?? (or visa-versa)? All I have found so far is ... "Property Setâ??s used when you need to use a procedural property to pass an object for use by the class, rather than just a standard variable" â?¦ which I read as you need a 'Set' when you are going to pass an object reference (such as a FSO file) to a procedure in the class object. For example a MyClass.MyFile=oFSO.GetFile("test.txt") would use a Set, but a MyClass.MyFileName = "test.txt" would use a Let. Cheers -- Alun Boyd (UK) Tag: I would like to be able to exit out of my loop by pressing a particular key. Tag: 167783
  - 5
    - Problem with the WHERE clause in an SQL Script. The Field HUPDEMP can be a valid Employee Code or a Constant. The Constant will always be SSS. I am having trouble with the constant script on the following statement. Where is my syntax error? rsTEXAS.Open "SELECT * FROM HSCHOOL ORDER BY HCLBKDT, HSchool WHERE HUPDEMP = '" & EmpCode & "' or HUPDEMP = 'SSS'", cnnct, 3, 3 Thanx in Advance Len Tag: I would like to be able to exit out of my loop by pressing a particular key. Tag: 167782
  - 6
    - parse output data Hello all, Please excuse this newbie question, but I am trying to hack a previously made script to do my bidding, and unfortinatly I am not very good with VB / ASP The script works put I want to parse the data down to the first line or so and I can not for the life of me figure out how. Here is the script <% ' Create an instance of the object. Set whois = Server.CreateObject("GSWhois.Whois") ' Attempt to connect to a "whois" server... if (whois.Connect("whois.arin.net") = "OK") Then 'using IP TO TEST will replace with variable <%strIP%> once inserted into page output = whois.Query("115.23.98.2") Response.Write Output Else Response.Write("Unable to connect to whois server") end If whois.Close Set whois = Nothing %> and here is the output OrgName: Internet Assigned Numbers Authority OrgID: IANA Address: 4676 Admiralty Way, Suite 330 City: Marina del Rey StateProv: CA PostalCode: 90292-6695 Country: US NetRange: 96.0.0.0 - 126.255.255.255 CIDR: 96.0.0.0/4, 112.0.0.0/5, 120.0.0.0/6, 124.0.0.0/7, 126.0.0.0/8 NetName: RESERVED-8 NetHandle: NET-96-0-0-0-1 Parent: NetType: IANA Reserved Comment: RegDate: Updated: 2002-09-12 OrgAbuseHandle: IANA-IP-ARIN OrgAbuseName: Internet Corporation for Assigned Names and Number OrgAbusePhone: +1-310-301-5820 OrgAbuseEmail: abuse@iana.org OrgTechHandle: IANA-IP-ARIN OrgTechName: Internet Corporation for Assigned Names and Number OrgTechPhone: +1-310-301-5820 OrgTechEmail: abuse@iana.org # ARIN WHOIS database, last updated 2005-01-03 19:10 # Enter ? for additional hints on searching ARIN's WHOIS database. I really only want the first part of the data can someone help me with this please? TIA DP Tag: I would like to be able to exit out of my loop by pressing a particular key. Tag: 167781
  - 7
    - connecting to pcs and a different path on each connection I need to connect to about 80 different pcs. I have that working but on each pc that I connect to I need to specify a different path. ie c:\documents and settings\bob or \larry or \susan I am talking about %username% = bob,larry, and susan but Im not sure how I can do that. there is not connection between the computername and username. I am in a 2003 ad domain but Im not sure how I can link the two. Each computer has 2-3 different users on them but should only have 1-2 possibly 3 that have been used to logon to the domain. Can anyone help me with the path problem Thanks Ryan Tag: I would like to be able to exit out of my loop by pressing a particular key. Tag: 167780
  - 8
    - get total size of a folder (all objects in it) on a remote computer How can I get the total size of a folder (all objects in it) on a remote computer? I have been looking for an example but having no luck. -thanks! Tag: I would like to be able to exit out of my loop by pressing a particular key. Tag: 167778
  - 9
    - Uploading a File from a Form as Stream I am working on a Library Administration web page. The page provides the capability to add, edit, replace, suspend/activate, and delete documents from the site Library. The user selects a function and the form is dynamically produced using XML and the .innerHTML functionality. My problem is I need to be able to allow the upload of a file without actually submitting the form. All functionality of this admin interface is based on using the CreateObject("MSXML2.XMLHTTP") functionality, sending XML back and forth from client to server so the page does not have to reload. Any suggestions on how to upload a file to the server from this page using VBScript and a stream? Thanks in advance to anyone who can figure it out. Jim Tag: I would like to be able to exit out of my loop by pressing a particular key. Tag: 167774
  - 10
    - Exchange 2003 mailbox creation I've made a script to create a single user in Windows 2003 AD, with homedir and mailbox, I can create the user and the homedir but NOT the mailbox. Everything works but the mailbox creation. I run the script from the DC, it altso runs the exchange 2003! Why doesn't this work???????? ---------------- code snip ------------------------ Set user = ouHO.Create( "User" , "CN=" & sFirstName & " " & sLastName) user.Put "samAccountName" , sUserName user.SetInfo user.GetInfo user.Put "givenName" , sFirstName user.Put "sn" , sLastName user.Put "userPrincipalName" , sUserName & "@DOMAIN.COM" user.AccountDisabled = False user.Put "streetAddress" , sAdresse user.Put "PostalCode" , sPostnr user.put "l", sBy user.put "telephoneNumber", sTlf user.put "HomeDirectory", "\\mail\brugere\" & sUserName user.Put "homeDrive", "Q:" user.put "scriptPath", "logon.vbs" 'Create user home directory. If Not fso.FolderExists("\\mail\brugere\" & sUserName) Then Set fldUserHomedir = fso.CreateFolder("\\mail\brugere\" & sUserName) End If 'Set full rights for Administrators and change right for user and removes the Everyone group wshShell.Run "net share " & sUserName & "=f:\brugere\" & sUserName & " /y", 1, True wshShell.Run "cacls \\mail\brugere\" & sUserName & " /T /E /G Administrator:F", 1, True wshShell.Run "cacls \\mail\brugere\" & sUserName & " /T /E /R everyone", 1, True wshShell.Run "cacls \\mail\brugere\" & sUserName & " /T /E /G " & sUserName & ":C", 1, True user.SetInfo user.SetPassword "12345" MBXStoreDN = "CN=Mailbox Store (SERVER),CN=First Storage Group,CN=InformationStore,CN=SERVER,CN=Servers,CN=First Administrative Group,CN=Administrative Groups,CN=First Organization,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=DOMAIN,DC=COM" Set exchUser = user ExchUser.CreateMailbox MBXStoreDN ExchUser.SetInfo ----------------------- code snip -------------------------- Regards Ole Rasmussen Tag: I would like to be able to exit out of my loop by pressing a particular key. Tag: 167770
  - 11
    - Proxy Settings Hello There! Is there a possibility to read out the proxy settings from a remote computer and maybe change them via a script? I think about WMI objects or something. Maybe even over remote access to the registry? cu StefanP Tag: I would like to be able to exit out of my loop by pressing a particular key. Tag: 167769
  - 12
    - checking log file Hello everyone, I have a logfile that is updated every 5 minutes. What I'd like to do is have a vbscript monitor this file and if the last date modified is greater than 30 minutes from the current time, send an email to me. Anyone have any idea of doing this? I'm struggling with the way to subtact minutes from the timestamp of the log file. Thanks! Moogeboo Tag: I would like to be able to exit out of my loop by pressing a particular key. Tag: 167763
  - 13
    - how to query line number? is it possible to query the currently executing line number somehow? thanks, Jon Tag: I would like to be able to exit out of my loop by pressing a particular key. Tag: 167761
  - 14
    - Zip and Unzip files and folders Hi, I have a script that makes a backup of my info, in win2003 server, but I need zip and unzip my info with the same backup script, I dont want install software extra, I want use the way that windows have to make compressed ziped folders. Someone can help me??? Tag: I would like to be able to exit out of my loop by pressing a particular key. Tag: 167755
  - 15
    - REgini syntax What syntax do I use to change permissions on a key and all of it's child objects? I have \registry\machine\software\burli [1 17] the above is an example. what do I need to add to have those permissions propagate down? thanks Tag: I would like to be able to exit out of my loop by pressing a particular key. Tag: 167750
  - 16
    - standalone ADO recordset If I create and fill a standalone ADO recordset is there any way I can write SQL to compare these records with an existing Access table? I have an Access database with photo file names and descriptions in a table. My vbscript builds a standalone recordset based on jpg files found in some folder. I would like to report any records missing in either the database table or files in the folder. thanks ljb Tag: I would like to be able to exit out of my loop by pressing a particular key. Tag: 167748
  - 17
    - VB Script newbie question Hi I have the following script, which works fine for getting some of the data requested but not all. I realise the reason this occurs is thatin the line: "Select * from Win32_ComputerSystem",,48) it just specifies win32_computersystem. Is there a way to specify multiple WMI objects in the same script? ----------------- On Error Resume Next strComputer = InputBox ("Enter Remote Computer Name or Press Enter for local machine","Enter Remote Computer Name",".") Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery( For Each objItem in colItems Wscript.Echo "Wallpaper: " & objItem.Wallpaper Wscript.Echo "Domain: " & objItem.Domain Wscript.Echo "Manufacturer: " & objItem.Manufacturer Wscript.Echo "Model: " & objItem.Model Wscript.Echo "Name: " & objItem.Name Wscript.Echo "NumberOfProcessors: " & objItem.NumberOfProcessors Wscript.Echo "PrimaryOwnerName: " & objItem.PrimaryOwnerName Wscript.Echo "SystemType: " & objItem.SystemType Wscript.Echo "TotalPhysicalMemory: " & objItem.TotalPhysicalMemory Wscript.Echo "UserName: " & objItem.UserName Wscript.Echo "Computer name: " & objComputer.MachineName Wscript.Echo "Start Time: " & objItem.StartTime Next Tag: I would like to be able to exit out of my loop by pressing a particular key. Tag: 167744
  - 18
    - FileExists Wildcard + newest file I am writing a script to read a log file that is dumped at random times. All of the logs are in the same location but the name contains a timestamp of sorts. example: c:\log\log2004-11-16-13-12.log How do I search the directory for "c:\log\log*" and open the newest one for reading? Tag: I would like to be able to exit out of my loop by pressing a particular key. Tag: 167740
  - 19
    - read email header info I need to retrieve emails from a pop3 server and read their header info (sender, subject, time sent) into variables. Once the header info is read, the email can be removed from the pop3 server and discarded. Any help would be greatly appreciated. Thanks... -- Posted 'as is'. If there are any spelling and/or grammar mistakes, they were a direct result of my fingers and brain not being synchronized or my lack of caffeine. Mike Brearley Tag: I would like to be able to exit out of my loop by pressing a particular key. Tag: 167735
  - 20
    - FileOpen Hi@all, sorry but i'am new at VBS. Ich have make a HTML-Page with VBScript and now i try to read and write a text file but how, [script] Dim TextLine FileOpen(1, Projektverzeichnis+"Inhalt\Help.htm", OpenMode.Input) ' Open file for reading. While Not EOF(1) TextLine = LineInput(1) ' Read next line. Debug.WriteLine(Seek(1)) ' Position of next line. End While FileClose(1) [/script] will not work. Thx for any help, cya Thommy Sorry about my English Tag: I would like to be able to exit out of my loop by pressing a particular key. Tag: 167732
  - 21
    - list all objects under mailbox rights for I was wandering if you could help me with this script.... I need vb script that will list all objects under mailbox rights for user account and then output them into txt file. Further on I would like to grant user with send on behalf right for specific account, if he is missing these rights. Thanx for any help... /* Goran */ Tag: I would like to be able to exit out of my loop by pressing a particular key. Tag: 167729
  - 22
    - Need help for writing a vbscript from the Gurus Hello All, How can achieve the following: A = 2 B = 3 C = 25 D = 3 X = 10 I would like to obtain X = 0 by decreasing each A B C D (keeping this priority). In this example only A B & C will be affected Thanks for your help Tag: I would like to be able to exit out of my loop by pressing a particular key. Tag: 167725
  - 23
    - ASP scripting compilation error: '80070002' I am a totally newbie in ASP / VB programming, I would like some help from you guys if possible. Below are the steps given which i followed, Step 1: Create a MFC based .Exe with single file document option. Step 2: Insert -> Add ATL object -> Select Simple object. Step 3: Build the .Idl file with 2 dummy fuctions as Add, Dummy. Step 4: Build the proxy DLL in a saperate project including the files generated by .idl Step 5: Register the exe. Step 6: create object from ASP page. Step 7: Call the function. I have just pasted the sample code of my script being used, and the result obtained when i run the code. Please let me know why Compilation Error : '80070002' is obtained. <HTML> <TITLE>Multiplication</TITLE> <BODY> <% Dim MulResult Dim MulNum, result Response.write (" before") Set MulNum = CreateObject("mfcatl.math.1") Response.write ("after") result = MulNum.Add(2,8) Response.write(result) %> </BODY> </HTML> RESULT obtained : before after Parse error in script ASP scripting compilation error: '80070002' Description: In file: /multi.asp Tag: I would like to be able to exit out of my loop by pressing a particular key. Tag: 167724
  - 24
    - mailbox rights Anybody who could help...? I need vb script that will list all objects under mailbox rights for user account and then output them into txt file. Thanx for any help... /* Goran */ Tag: I would like to be able to exit out of my loop by pressing a particular key. Tag: 167723
  - 25
    - Word open doc I don't know how open document in word Please help me. strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\cimv2") Set colMonitoredEvents = objWMIService.ExecNotificationQuery _ ("SELECT * FROM __InstanceCreationEvent WITHIN 3 WHERE " _ & "Targetinstance ISA 'CIM_DirectoryContainsFile' and " _ & "TargetInstance.GroupComponent= " _ & "'Win32_Directory.Name=""c:\\\\test""'") Do Set objLatestEvent = colMonitoredEvents.NextEvent Wscript.Echo objLatestEvent.TargetInstance.PartComponent 'sCommand = "C:\Program Files\Microsoft Office\Office10\winword.exe" Loop Tag: I would like to be able to exit out of my loop by pressing a particular key. Tag: 167722

Hi,
Background to the problem.
----------------------
I have nearly new PC that breaks down every now and then and I want to prove
to the Tech Support man that there is something wrong with it.
If I boot it and leave it in BIOS setup, it runs OK annd will probably run
forever.

I want to boot the machine in DOS mode run a vbscript to stress it a bit and
get its cooler fans running because I think that thats where the problem is.
The problem
--------------
So I want to run a stupid looping thing with lots on random calc that just
goes on and on.
And get those chips sizzlin' and them fans spinnin'

But I would like to be able to exit out of my loop by pressing a particular
key.
Can that be done ?

TIA

Scottie

Top

Re: I would like to be able to exit out of my loop by pressing a by ews

ews
Thu Jan 06 18:54:36 CST 2005

Scottie Hannigan wrote:
> Hi,
> Background to the problem.
> ----------------------
> I have nearly new PC that breaks down every now and then and I want to prove
> to the Tech Support man that there is something wrong with it.
> If I boot it and leave it in BIOS setup, it runs OK annd will probably run
> forever.
>
> I want to boot the machine in DOS mode run a vbscript to stress it a bit and
> get its cooler fans running because I think that thats where the problem is.
> The problem
> --------------
> So I want to run a stupid looping thing with lots on random calc that just
> goes on and on.
> And get those chips sizzlin' and them fans spinnin'
>
> But I would like to be able to exit out of my loop by pressing a particular
> key.
> Can that be done ?
>
> TIA
>
> Scottie
>
>
>
>

maybe ctrl+c ?

Top