Editor Control

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
    - DDE? Is ther any easy way? Is there an easy way to use DDE in Vbscript? I was hoping to be able to call DDE commands via VBscript in IE. Any suggetsions? I know you can: 1. Use Office Automation 2. Use a third party DDE client 3. Compile a VB6 COM object exposing DDE 4. Any other suggetsions? Thanks! -- Lucas Tam (REMOVEnntp@rogers.com) Please delete "REMOVE" from the e-mail address when replying. http://members.ebay.com/aboutme/coolspot18/ Tag: Editor Control Tag: 166691
  - 2
    - Get WSHShell to a running application? I already have an application running on the desktop (i.e. User started the app). Is there a way WSH can get a handle on the application so that I can sendkeys to the app? Thanks. -- Lucas Tam (REMOVEnntp@rogers.com) Please delete "REMOVE" from the e-mail address when replying. http://members.ebay.com/aboutme/coolspot18/ Tag: Editor Control Tag: 166680
  - 3
    - Does anyone know how if their is a COM object I can call on to open HTA's? I have a script, in it, it calls open it to invokes a HTA that is really just a form for someone to fill out with some information. I can get the script to invoke the client HTA, but I find that its reference to is lost, and therefore resultig in an error. Here is my script code: Set objExp = CreateObject("InternetExplorer.Application", "IE_") objExp.Navigate "file:///c:\temp.sample.hta" objExp.Toolbar = 0 objExp.Statusbar = 0 objExp.Top = 0 objExp.Visible = 1 Do While (objExp.Document.All.OKClicked.Value = "") wscript.Sleep 250 Loop fName = objExp.Document.All.fName.value etc. When the script gets to the "Do While" it errors out with error: "(null): The object invoked has disconnected from its clients." Is there anyway that I can invoke an HTA through possibly a different COM object that would let me later retreive HTML value from the HTA open, like you could with an HTML document....I think an alternative is to have the HTA write the values to a text file when OK clicked, and then have the script sleep until the text file exists, once exists open text file and readLine() its values, but I was just wondering if their was a better way. Thanks Tag: Editor Control Tag: 166679
  - 4
    - COM object for MSHTA files Does anyone know how if their is a COM object I can call on to open and control an HTA? I have a script, in it, it calls open it to invokes a HTA that is really just a form for someone to fill out with some information. I can get the script to invoke the client HTA, but I find that its reference to is lost, and therefore resultig in an error. Here is my script code: Set objExp = CreateObject("InternetExplorer.Application", "IE_") objExp.Navigate "file:///c:\temp.sample.hta" objExp.Toolbar = 0 objExp.Statusbar = 0 objExp.Top = 0 objExp.Visible = 1 Do While (objExp.Document.All.OKClicked.Value = "") wscript.Sleep 250 Loop fName = objExp.Document.All.fName.value etc. When the script gets to the "Do While" it errors out with error: "(null): The object invoked has disconnected from its clients." Is there anyway that I can invoke an HTA through possibly a different COM object that would let me later retreive HTML value from the HTA open, like you could with an HTML document....I think an alternative is to have the HTA write the values to a text file when OK clicked, and then have the script sleep until the text file exists, once exists open text file and readLine() its values, but I was just wondering if their was a better way. Thanks Tag: Editor Control Tag: 166678
  - 5
    - Copy all files of type .xml Mornin' all, I need to copy all the .xml files in a source folder on a server to a target folder on a client machine. The script will be run from the client machine. I can't figure out how to do this at all, I can only do it by specifying the exact filename. If anyone can offer any help on this, I'd be very grateful. Cheers, Foss Tag: Editor Control Tag: 166670
  - 6
    - Copy all files of type .xml Mornin' all, I need to copy all the .xml files in a source folder on a server to a target folder on a client machine. The script will be run from the client machine. I can't figure out how to do this at all, I can only do it by specifying the exact filename. If anyone can offer any help on this, I'd be very grateful. Cheers, Foss Tag: Editor Control Tag: 166669
  - 7
    - unicode to ascii conversion This is a multi-part message in MIME format. ------=_NextPart_000_007B_01C4DB86.49739A30 Content-Type: text/plain; charset="windows-1255" Content-Transfer-Encoding: quoted-printable Hi,=20 i have asp page that receives user input. the input can be from ascii character set or from unicode character set = and i have no control of which character set to revceive the input. how can i use vbscript or an external vb class to convert from unicode = to ascii or from ascii to unicode? TIA, z. ------=_NextPart_000_007B_01C4DB86.49739A30 Content-Type: text/html; charset="windows-1255" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Dwindows-1255"> <META content=3D"MSHTML 6.00.3790.218" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT face=3DArial size=3D2>Hi, </FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>i have asp page that receives user=20 input.</FONT></DIV> <DIV><FONT face=3DArial size=3D2>the input can be from ascii character = set or from=20 unicode character set and i have no control of which character set to = revceive=20 the input.</FONT></DIV> <DIV><FONT face=3DArial size=3D2>how can i use vbscript or an external = vb class to=20 convert from unicode to ascii or from ascii to unicode?</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>TIA, z.</FONT></DIV> <DIV> </DIV></BODY></HTML> ------=_NextPart_000_007B_01C4DB86.49739A30-- Tag: Editor Control Tag: 166668
  - 8
    - Setting user login hours I want to know how to setting user logon hours from vbscript, and how to add user workstation from vb script. Can someone help me please?? I would be very grateful. Thanks Tag: Editor Control Tag: 166666
  - 9
    - Max number of characters stored to a variable in VBScript Anyone know the Maximium number of characters that may be stored to a VBScript variable ? Tag: Editor Control Tag: 166657
  - 10
    - How to retrieve a SID with vbscript ? Does anybody know how to retrieve the SID of a user or group and put it in a string with vbscript ? From the tests I have done, the name translate object can translate a name from SID to distinguished name but not the opposite. And if I connect to an object with the LDAP provider, the "objectSID" property returns something which is not a string and that I cannot correctly interpret. Thanks for any idea. Tag: Editor Control Tag: 166656
  - 11
    - programmatically update printer port names Does anyone have script or another simple way to rename printer ports (TCP/IP ports)? We recently had to change a bunch with new IPs, and instead of deleting and recreating the ports (which default to the name IP_IP-address), they were just updated with the new IP, so the name still has the old IP (not a big deal, just easier to find if they have the right IP). I was hoping to find a script that could go through the registry and fix this quickly. Thanks Tag: Editor Control Tag: 166655
  - 12
    - How to add checkbox into DataGrid? Does anyone know how to add checkbox into the DataGrid? Tag: Editor Control Tag: 166653
  - 13
    - How to make self-define function in SQL to work in VB with MS Access I use MS Access to create a database, then I create a module and a function in there. Then I try to use that function in the query and it works fine. Eg: SELECT * FROM myTable WHERE myFunction(myFieldInTable) It works fine ... the result is displayed as expected. But when I convert it to MS Access 97 format ... then I use VB and add in a DataGrid and ADO control, then the ADO control's datasource ... I set it to the query like above, it fail. It give me an error like "undefined function 'myFunction' in expression". Is there any solution I can do with that? ====================================================== Actually this is my situation where I need such a self-define function in the query. I got a number, says "123" in the "NUMBER" field in the table "NUMBER_TABLE", then I want a query like: "SELECT * FROM NUMBER_TABLE WHERE combination(NUMBER, 312)" will return the record with "123" in the "NUMBER" field. The 'combination(xxx, yyy)' will actually make any possible combination of the "xxx" and match it with "yyy", if the one of the combination match "yyy", then it will return true. Eg: 123, 132, 213, 132, 312, 321 ... will be used to match with the number 312, then it will return true and make the query return the record "123". It works when I execute that query in MS Access 2000. But fail when I convert it to MS Access 97 format and use it with the ADO and Datagrid control. ====================================================== Tag: Editor Control Tag: 166652
  - 14
    - WshShell.Exec not finishing Why would a process that runs to completion when run directly or from a DOS batch file, fail to finish when run using WshShell.Exec? I'm trying to run a VPN client program from VBScript, using the WshShell.Exec command: Set exec = wsh.Exec("vpnclient connect MyServer") Do While (exec.Status = WshRunning) WScript.Sleep 100 Loop I need a way to test whether the connection was successful. When running the client from a batch file, this can be done by testing ERRORLEVEL. For example, a batch file containing this: vpnclient connect MyServer ECHO Command returned ERRORLEVEL: %ERRORLEVEL% exits after a couple of seconds, and echoes "200" if the connection is successful. Presumably, I should be able to access this exit code from VBScript using the ExitCode property of the exec object. The problem is, when I run the script, exec.Status never changes from WshRunning (0). According to the MS documentation, "If the process has not finished, the ExitCode property returns 0", so I can never check the exit code. Can anyone suggest why the Exec never finishes, and if there might be some workaround? Thanks, Allan Tag: Editor Control Tag: 166644
  - 15
    - assigning/modifying access to shared folders using VBscripts How do I assigning/modifying access to shared folders using VBscripts? I have created a shared folder using a VBscript. The default access is for EVERYBODY. Now I want to remove this EVERYBODY and add a specific user with read/write access. I haven't found anything on this anywhere. I guess AD is not designed/meant for this. In our environment (University lab) I think it is the only solution. Everybody is using laptops where they want to work in different networks. We have a central file server (running windows server 2003, AD) where data is stored for them in a user specific way. Now users should only be able to access their designated folder and one shared folder. Others should not have any access to the designated folder. Maybe someone can also comment on the solution. Since I am getting frustrated reading all the documentations not being able to find what I am looking for. Thanks a lot in advance. Bernd Tag: Editor Control Tag: 166643
  - 16
    - prndata Anybody have any examples of prndata.vbs queries that show the actual format for querying related registry keys? Is there a problem if a key has a "/" in its name? -- J Burford Fields Wyoming wisdom: Good judgment comes from experience, and a lotta that comes from bad judgment. Tag: Editor Control Tag: 166638
  - 17
    - Schema Property Does anyone know what the schema property for Password never Expires is on an Active DIrectory User? Bart Tag: Editor Control Tag: 166636
  - 18
    - vbscript or perl Dear all, I have to port a moderately complicated unix shell script written for Solaris to Windows. I've never done Windows scripting before. Should I (a) learn VBScript and implement it in that; (b) install Active Perl on the target Windows box and rewrite the script in perl (which I am familiar with). The script in question most does database stuff e.g. calls stored procs, parses text files then loads new records with bcp. Cheers, David Tag: Editor Control Tag: 166621
  - 19
    - padding a string with characters How do you pad a string variable with characters on one side or the other? Thanks! Tag: Editor Control Tag: 166619
  - 20
    - A good debug tool. Hoo WinTail v2.11 Hoo WinTail is a real-time file viewing Windows utility like the Unix tail -f utility. It can be used to view the end of a growing file. It is ideal for viewing application traces or server logs in real time, as they are generated. Quickly viewing the last part of a large file without the need to load the entire file. Hoo WinTail is a file viewer. It makes no changes to the file that is opened. It opens the file in read-only mode. As new lines are written to the file by another program (such as would happen with a log file, for example), Hoo WinTail reads the new lines and displays them. Hoo WinTail can read and display any text file. It cannot support .doc files, .xls files, or other proprietary formats. Hoo WinTail can capture and display OutputDebugString (Windows Debug API) and TRACE(MS Visual C++ Debug Function) output as well. PROGRAM FEATURES: ===================== * Setting highlight filters to highlight certain text. * With Refresh Rate can be customized. * With Searching for any text string, support search next and previous. * With the display font can be customized. * Buffer Size: Setting maximum display buffer size and retain line number when truncate content. * Both Unix and DOS/Windows text file formats support. * Indicates file size in window title bar. * Capture and display OutputDebugString (Windows Debug API) and TRACE (MS Visual C++ Debug Function). * With Unicode support. * Clear all showed content and reload the last part of file. * Editing showed content arbitrarily, but making no changes to the monitored file. * Drag and Drop support. * Filename may be specified on the command line or by browsing. * Maximum 10 recent files. * Uncluttered user interface. More detail: http://www.hootech.com/WinTail/ Download: http://www.hootech.com/WinTail/WinTail2Setup.zip Best Regards, James Tag: Editor Control Tag: 166618
  - 21
    - Automate Outlook Profile setup for new users via vbs?? the age old question... could someone enlighten me on how to setup for a new user (local/domain USER not admin) for Outlook 2000 and or 2003 through scripting, group policy, custom install wizard, yada yada yada. I am not going to buy anything. I'm using vbs for login scripts right now, but since 99% of users are domain users and not local admins of their pc's, i'm stuck (but i'm a novice too!) I started reading up on deploying or publishing outlook in AD, but i'm not to deep yet, so i'm not sure if that is what i need. any direction would be much appreciated.. except from sales people. Jason Tag: Editor Control Tag: 166614
  - 22
    - win32_tcpipprinterport Hi, A student has a bunch of HP network printers that got installed using default printer names. She wants to write a script that will correct them. Other references indicate that we should be able to use the win32_tcpipprinterport object to do this with a WMI script. However, some question arrises as to whether this will work with HP tcp/ip addresses due to the software used to configure the printers on the server. I'm convinced it should be a scriptable fix even though they'r running windows 2000 rather than server 2003. In testing, we run into two problems: 1. the win32_tcpipprinterport object isn't showing up on some servers even though they have tcp/ip ports employed. 2. on servers that do have the object showing up, it doesn't show TCP/IP port properties. Any suggestions or thought will be appreciated. J B. Fields -- J Burford Fields Wyoming wisdom: Good judgment comes from experience, and a lotta that comes from bad judgment. Tag: Editor Control Tag: 166603
  - 23
    - Check Boxs Hey im really sorry at posting such a n00b question, but quite simply i want to script a command button on a form in visual basic to run an external .exe program if a check box that is also on the form is checked. Any ideas for the scripting of this? Any help would be deeply appreciated! Yours, FingAZ Tag: Editor Control Tag: 166600
  - 24
    - reading registry hi all i am have problems reading and storing 26 dates in the registry. what i want to do is set a date value in the registry six months from the current date, but each morning i want to scan the registry for the values that do not match the value of formatDateTime(Date,2) so seentially, i need some help with reading 26 values in the registry, "Do i need a loop for this" or do need to check (via) hard code, the values ? thsanks Tag: Editor Control Tag: 166594
  - 25
    - Listing Computer Object's Attribute I am looking for a script that will display or extract a list of computer attributes such as Operating system, version, Name, Build no. in specific OU within my domain. Does anyone know how or show me where can I find it? Many thanks. Tag: Editor Control Tag: 166592
- Next
  - 1
    - route add -- a little bit urgent ;) -- Hi, I need to make statics routes on the computers and I'm looking for some way to elevate the priviligedges of my users when I'm running the netlogon BATCH process without using "RUNAS" command. I have tried with the OU in "computer configuration\ windows configuration \ command files (start/off)" and I don't know if I'm making something wrong; I put there a BATCH file (prueba.bat) and when I write on this file nothing happend. the command that I need to execute is very simple: route add xxx.xxx.xxx.xx mask xxx.xxx.xxx.x xxx.xxx.xxx.xxx Is a very simple "route add". I need urgent help please. Thanks in advance. Tag: Editor Control Tag: 166583
  - 2
    - Replace() problems Hi, I have a file which is a list of French first-names in four CSV-type columns Agnès-Céline;Agnès Céline;AGNES-CELINE;AGNES CELINE Pat;Pat;PAT;PAT etc The first column is correctly spelt. But 2nd 3rd and 4th columns are mis-spellings. 2=No hyphen. 3=Block capitals. 4=Block capitals and no hyphen. The idea is to use this first-names file to correct another file of names and adresses where first-names may be mis-spelt.. The idea is to scan through the adresses file line by line checking for the prescence of strings identical to data in columns 2, 3 or 4. Any such data should then be replaced by the data from column 1. This works BUT !! ... Incidences of PATTON (as in PATTON STREET) were getting replaced by PatTON. etc. BANNER became BAnneR, (i.e. the ANNE rplaced by Anne.) So I decided to check for whole words, thinking that as my data in the adress file is tab-separated I could look for chr(9)&ANNE&chr(9) and replace that with chr(9)&Anne&chr(9) But that doesn't work and I can't figure out why. Is it Unicode/Ascii ? Is there no way to use Replace() on only whole words ? It's driving me nuts. Almost there but not quite! Here's the script. TIA Scottie. --------------------- 'Create a File System Object on error resume next Const ForReading = 1, ForWriting = 2, ForAppending = 8 Dim fso Set fso = CreateObject("Scripting.FileSystemObject") 'Get the file contents Dim MyPrenoms Set MyPrenoms = fso.OpenTextFile( "C:\VBS STUFF\prénoms.csv",ForReading, False) 'Loop through counting the lines LineCount=0 Dim MyArray (4000, 4) Do While Not MyPrenoms.AtEndOfStream MyLine = MyPrenoms.readLine 'msgbox Myline LineCcontents = Split(MyLine, ",", -1, 1) 'MSGBOX LineCcontents(0) & LineCcontents(1) & LineCcontents(2)& LineCcontents(3) MyArray(LineCount,0) = LineCcontents(0) MyArray(LineCount,1) = LineCcontents(1) MyArray(LineCount,2) = LineCcontents(2) MyArray(LineCount,3) = LineCcontents(3) ' msgBox MyArray(LineCount,0) & MyArray(LineCount,1) & MyArray(LineCount,2) & MyArray(LineCount,3) LineCount = LineCount + 1 Loop msgbox "LineCount Prénoms : " & LineCount Dim MyFileAdressesIn Set MyFileAdressesIn = fso.OpenTextFile("C:\VBS STUFF\lapat1.txt", 1, False) Set MyFile = fso.GetFile("C:\VBS STUFF\lapatOut.txt") MyFile.Delete Dim MyFileAdressesOut Set MyFileAdressesOut = fso.OpenTextFile ("C:\VBS STUFF\lapatOut.txt", ForAppending, True) do while RL < 20 '---------for testing MyAdresse = MyFileAdressesIn.readLine RL = RL + 1 MyOldAdresse = MyAdresse For i = 0 to Linecount For j = 1 TO 3 ' If Instr(1,Myadresse, chr(9) &trim( MyArray(i,j) )& chr(9), 0 ) then ' MsgBox "Found" & vbcrlf & MyAdresse & vbcrlf & MyArray(i,j) ' End if MyAdresse = Replace( MyAdresse, _ chr(9) & MyArray(i,j) & chr(9), _ chr(9) & MyArray(i,0) & chr(9), 0 ) MsgBox MyOldAdresse & vbcrlf & _ MyAdresse & vbcrlf & _ chr(9)& MyArray(i,j)& chr(9)& vbcrlf & _ chr(9)& MyArray(i,0)& chr(9) Next 'i Next 'j MyFileAdressesOut.writeline(MyAdresse) Loop 'Cleanup MyMyPrenoms.Close MyFileAdressesIn.Close MyFileAdressesOut.Close Set MyFileContents = Nothing Set fso = Nothing msgbox "Finished" & "LineCount " & LineCount & vbcrlf & _ " i " & i & vbcrlf & _ " j " & j Tag: Editor Control Tag: 166582
  - 3
    - Finding and moving folders I've been reading a bunch of info and looking at sample scripts but I can't seem to put it all together. I am trying to Compare folder names in folder V:\Submit with the folders in G:\projects. If the V:\Submit\folder1 doesn't match a folder G:\Projects\folder1 then Move V:\Submit\folder1 to V:\Submit\Archive. The goal is to make sure that the V:\Submit folder never has folder names that don't exist in the G:\Projects Folder Thanks in advance for your suggestions Steve Tag: Editor Control Tag: 166581
  - 4
    - Detect Client Side VBScript Enabled Hi, Is there any way of detecting in a script whether a user's IE settings will allow them to run client side VBScript ? I want to be able to either run the VBScript, or display a sensible screen informing the user that the setting should be altered to allow this functionality. Is there any Javascript to get at these settings ? Many Thanks, Larry. Tag: Editor Control Tag: 166580
  - 5
    - Rename a 2000 computer I'm looking for a command line utility or a script that will rename a Windows 2000 workstation. The Win32_ComputerSystem ObjComputer.Rename only works on Windows XP and the Windows 2000 Netdom.exe does not have the functionality to rename a computer. Any help is greatly appreciated. TIA Charles Tag: Editor Control Tag: 166577
  - 6
    - ASP - problem with suiting data Hello all! I have a problem with suiting data in ASP. When I generate a query with a parameter (WEEK between 200402 and 200407) in MS Access 97 I will get such results: GROUP WEEK VALUE GR_1 200402 1 GR_1 200403 2 GR_1 200404 3 GR_1 200405 4 GR_1 200406 5 GR_1 200407 6 GR_2 200402 11 GR_2 200403 12 GR_2 200404 13 GR_2 200405 14 GR_2 200406 15 GR_2 200407 16 When I use the following code: ---------------------------------------------------------------------------- ----------------------- Set objRS = CreateObject("ADODB.Recordset") strQuery="SELECT IIf([GRUPA] Is Not Null,[GRUPA],'MISC') AS [GROUP], IIf(DatePart('ww',[Bill_date],0,2) Between 0 And 9,Year([Bill_date]) & '0' & DatePart('ww',[Bill_date],0,2),Year([Bill_date]) & DatePart('ww',[Bill_date],0,2)) AS BD, Sum(IIf([BillT] Is Not Null,CLng(IIf([BillT]='IVS',[Net value]*(-1),IIf([BillT]='RE',0,IIf([BillT]='S2',0,[Net value])))),0)) AS Total FROM SalesInvoices AS SalesInvoices_1 LEFT JOIN Gpl_Gpc2 ON SalesInvoices_1.Prod_hier = Gpl_Gpc2.GPC GROUP BY IIf([GRUPA] Is Not Null,[GRUPA],'MISC'), IIf(DatePart('ww',[Bill_date],0,2) Between 0 And 9,Year([Bill_date]) & '0' & DatePart('ww',[Bill_date],0,2),Year([Bill_date]) & DatePart('ww',[Bill_date],0,2)) HAVING (((IIf([GRUPA] Is Not Null,[GRUPA],'MISC'))<>'Cable') AND ((IIf(DatePart('ww',[Bill_date],0,2) Between 0 And 9,Year([Bill_date]) & '0' & DatePart('ww',[Bill_date],0,2),Year([Bill_date]) & DatePart('ww',[Bill_date],0,2)))>="& request.form("data_od") & " And (IIf(DatePart('ww',[Bill_date],0,2) Between 0 And 9,Year([Bill_date]) & '0' & DatePart('ww',[Bill_date],0,2),Year([Bill_date]) & DatePart('ww',[Bill_date],0,2)))<= " & request.form("data_do") & ")) ORDER BY IIf([GRUPA] Is Not Null,[GRUPA],'MISC'), IIf(DatePart('ww',[Bill_date],0,2) Between 0 And 9,Year([Bill_date]) & '0' & DatePart('ww',[Bill_date],0,2),Year([Bill_date]) & DatePart('ww',[Bill_date],0,2));" objRS.open strQuery, "Data Source=Panel; PWD=XXXX!; UID=User1; Data Source=TransOut; PWD=XXXX!; UID=User1;" response.ContentType = "Text/HTML" Response.write "<table align=center>" While Not objRS.EOF Response.Write ("<tr><td>" & objRS("GROUP") & "</td><td>" & objRS ("BD") & "</td><td>" & objRS ("Total") & "</td></tr>") objRS.MoveNext Wend Response.write "</table>" objRS.Close objConn.Close Set objRS = Nothing Set objConn = Nothing ---------------------------------------------------------------------------- ------------ I will get such data from the same query but generated by ASP language call: GROUP WEEK VALUE GR_1 200401 1 GR_1 200402 2 GR_1 200403 3 GR_1 200404 4 GR_1 200405 5 GR_1 200406 6 GR_2 200401 11 GR_2 200402 12 GR_2 200403 13 GR_2 200404 14 GR_2 200405 15 GR_2 200406 16 As you can see the value of VALUE field for 200401 generated in MS Access is different than during the ASP call. Can you tell me why? I do not change a query while putting a SQL code from MS Access SQL view to ASP code. I only add request("data_od") and request("data_do") which is a parameter taking from a form. I do not know where I make a mistake, because everything is good, but I don`t know why there is a value of VALUE field for 200402 (MS Access) put in VALUE field for 200401 (ASP). Maybe I make a mistake with calling. Can you help me? I would be very grateful for any posts Kind regards Marcin from Poland Tag: Editor Control Tag: 166575
  - 7
    - FileSystemObject misreporting File Size I've written a script that makes a descriptor file (in plain text) based on audio file. In the descriptor file it needs the file size in bytes of the audio file. I've been using the FileSystemObject to get the size of the file. I've been having problems with the entry in the descriptor being off by one byte. This may sound trivial but the file size needs to be exact (its for cell phone downloads). Has anyone else had issues with the FileSystemObject misreporting size. Or is there any system-wide settings I need to be concerned with that may effect this (file system type, compression, etc). Thanks so much in advance. Tag: Editor Control Tag: 166573
  - 8
    - HTML type "File" Hallo Ich like to navigate to a page with Inet-Control and fill every field I can. Now I find out, that i can fill all text-field, but not the file-fields! Here my Code: DIM ie AS Object SET ie = CREATEOBJECT ("InternetExplorer.Application") ie.visible = - 1 ie.navigate("C:\input.html") 'Das sind alles Textfelder ie.Document.All.user.Value = Benutzername$ ie.Document.All.pwd.Value = Passwort$ ie.Document.All.languageid.Value = Sprachcode$ 'Das ist ein File-Feld ie.Document.All.xmlfile.value = FileName$ The text-fields are filled okay, but the file-field are empty. I've read something that the browser do not support auto-filling of file-fields! Is there a way to do this anyway? Thanks for every help!! Nijazi Halimaji Tag: Editor Control Tag: 166570
  - 9
    - Exctracting FileName and FileType out of a Full-Path Hi I have a String with a full Path of a file: "C:\temp\temp2\temp3\MyFile.txt" Now I don't want to work around and like to get follwing: 1. Filename (MyFile) 2. FileType (txt) I know that I can beginn reading from the right of the string and exctract what I need, but is there a simple function which do this for me? Thanks alot! Nijazi Halimaji Tag: Editor Control Tag: 166564
  - 10
    - GPO's Does anyone have a VBS script that searches GPO's for a specific security group and then deletes that group? Tag: Editor Control Tag: 166563
  - 11
    - Linking Scripts Hi Since many of my .htm pages use the same scripts I store them in a textfile (.inc) in a separate "_Script" directory. The main reason for this (besides making the code easier to maintain) is that I don't want the users to by able to see what the scripts are doing. I use the following syntax to link the scripts: <Script Language="VBS" SRC="../../_Script/Utils.inc"></Script> The Script tag is also present in the Utils.inc file. On my localhost this works fine, on the webserver this produces a Type mismatch error. Any ideas? PO Tag: Editor Control Tag: 166560
  - 12
    - remembering the link that was clicked On my site the homepage is accessible by all. The other pages need a password. When a visitor clicks a link, they get redirected to the login page instead of the page that they want to see. That part is under control. If they provide the right password, they need to be sent to the page that they clicked. How do I do that? I'm using ASP and Access. Tag: Editor Control Tag: 166556
  - 13
    - Easy (?) One - Fill Frame and Print Hi. I've got a button that uses Window.MyFrame.Location = "page2.html" to display a page within a frame. Works no problem. However, as apart of the same button click, I want to print the new frame content using Window.MyFrame.Print. Unfortunately, if before my button is clicked, MyFrame is displaying "page1.html", that is the page that gets printed, THEN "page2.html" is displayed. Is there a way to refresh the frame to get it to display "page2.html" before the print command fires? If not, is there a convenient work-around? Thanks, Terry ********************************************************************** Sent via Fuzzy Software @ http://www.fuzzysoftware.com/ Comprehensive, categorised, searchable collection of links to ASP & ASP.NET resources... Tag: Editor Control Tag: 166549
  - 14
    - SQL-DMO reference Hi, I am interested in a good SQL-DMO reference. I have solved my issues so far by searching help in Visual Studio 2003 and finding code snippets; however, rather than finding the magic line of code to do what I want, I would like to see a hierarchical reference of the different SQLDMO objects, their methods and properties, etc., etc. I can not seem to find it. Can anyone help? Thanks in advance, Chris Hough Tag: Editor Control Tag: 166545
  - 15
    - Sorry Could someone please tell me why this is not working, sorry for the question. @echo ON CD C:\Program Files\SiteSafe\MAPX COPY F:\DATA\MAPS\MapX.exe This is my first batch file, I just need to copy the MapX into the previous directory. Thanks. Tag: Editor Control Tag: 166543
  - 16
    - Toolbar visibility problem with Excel in WSH running vbscript I am writing a vbscript running under WSH which starts Excel and writes some stuff into some cells. This all works just fine. I am using Excel as an output window for the script because it is easy to do and its easy to format the data. However, there is no need to display the toolbars, formula bar, and status bar in my Excel output window. I am able to turn these off with vbscript code. Here is my problem. When Excel terminates, by the user clicking the red X to close the window, Excel remembers that the toolbars, formula bar, and status bar were not visible. The next time the user launches Excel to do his own thing, all he sees is the menu bar. He must manually make the other bars visible again. I have not been able to come up with a solution to this problem. If vbscript could sit in a loop waiting for the user to close the Excel window that the script created, I could then open another hidden Excel window and reset the visibility of the hidden bars. However, I cannot figure out how to detect when the Excel window is closed. Creating a VBA Excel macro to reset the visibility of the bars is not practical since my script will be distributed to a large number of users and I don't want to mess with that sort of thing. The solution must be contained within the vbscript program. Any suggestions as to how I can restore the visibility of the hidden bars would be appreciated. By the way, is there a way to turn off the menu bar as well? I really don't need that either. Tag: Editor Control Tag: 166530
  - 17
    - ASP - pivot table Hello all! I have the following problem. Is it possible to display a text using ASP which is a pivot table. I mean, GROUP 200401 200402 200403 200404 GR_1 1 2 3 5 GR_2 4 1 5 3 GR_3 9 7 8 7 How to achieve such display while source data looks like this???: GROUP WEEK VALUE GR 1 200401 1 GR 1 200402 1 GR 1 200402 1 GR 1 200403 3 GR 1 200404 5 GR 2 200401 4 GR 2 200401 1 .... VALUE in the pivot table is a sum of VALUE. Kind regards Thank you in advance for your help Marcin Tag: Editor Control Tag: 166528
  - 18
    - How to get the company name in Windows? Hi, all, in vbs the owner name of windows can be read or written. But how can one do the same with company name? I mean with owner and company the description one can receive in Windows explorer through "info": ...licenced for {owner} {company} Many thanks -- Weichao Wang Tag: Editor Control Tag: 166522
  - 19
    - Alternative to http-referer Hi I run a website that has authentication "provided" by another site - basically we supply a username, password and destination page to the other site and, once the user is authenticated, they get put on the page on our site they originally requested (this is a client requirement so there's no changing it). This had been working fine until XP SP2. We've been using Request.ServerVariables("HTTP_REFERER") to check the referer, but now IE (only on XP SP2) returns an empty string. Other browsers (NS, FF) return the referer. I created just to show the referer string to confirm this and indeed the page was blank. Funny thing is if I refresh that page, the original referer shows up! Ayway, I now need some alternative way to find out the referring domain that will accommodate IE XP SP2. Any ideas? Thanks Tag: Editor Control Tag: 166519
  - 20
    - Returning my own completion code from a VbScript Hi, I would like to have two scripts, one of which calls the other, and have the one that is called return a status value (set by the called script) to the caller. I assume I must use either Run or Exec from my 'master' script. True ? Is there some way of using ExitCode for my purpose? Thanks in advance, Chris Hough Tag: Editor Control Tag: 166518
  - 21
    - Altering an Add User script to Add Contact script for Active Directory import Hi, I found the below script which allows me to import Users into AD from an Excel file: http://www.rlmueller.net/CreateUsers.htm (about the VBScript) http://www.rlmueller.net/Programs/CreateUsers.txt (the code) I've managed to get this working so it creates a User in my domain, but I need to alter this so it creates a Contact instead. Can anyone tell me how to do this? My knowledge of scripting is VERY basic so the more detail you can give me the better. Thank you, Curtis. ==================================== When replying by email please remove the X ==================================== Tag: Editor Control Tag: 166517
  - 22
    - VB-script multiple return or reference type? Hello all, I want to bring VB scripting support to my MFC aplication. Therfore I need to provide COM interface to my C++ functions. Now the problem seams that VB script does not provide reference types or pointers. But how can I have a function in VB-script that modifies more than one variable and retuns it to the calling function? Like C++ function: void MyFunction(int iValue, int &iWillModifyA, long & lWillModifyB); How can I express this in VB-script? Best Regards Thomas Tag: Editor Control Tag: 166515
  - 23
    - Exchange General Hello, Anyone knows how to make a script to automatically create a outlook configuration in a machine ? For example, a new user was created, and I have to create his profile on the user's machine. But I always have to configure his account on Outloolk XP for our Exchange 2000. This script have to put the username logged in, exchange host name server and save it. Tnks for any help. Tag: Editor Control Tag: 166511
  - 24
    - Re: Help Finding a Good eCommerce and Project Book <HTML> <HEAD> <META NAME="GENERATOR" Content="Microsoft DHTML Editing Control"> <TITLE></TITLE> </HEAD> <BODY> <P class=MsoNormal style="MARGIN: 0in 0in 0pt">Hi Tom!<SPAN style="mso-spacerun: yes">  </SPAN></P> <P class=MsoNormal style="MARGIN: 0in 0in 0pt"> <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p></P> <P class=MsoNormal style="MARGIN: 0in 0in 0pt">I hope this makes it to you.<SPAN style="mso-spacerun: yes">  </SPAN>I will send a few times to be sure you get it!</P> <P class=MsoNormal style="MARGIN: 0in 0in 0pt"> <o:p></o:p></P> <P class=MsoNormal style="MARGIN: 0in 0in 0pt">The URL for the book you are looking for is below.<SPAN style="mso-spacerun: yes">  </SPAN>Yes, it?s a good resource, and it?s cheap!<SPAN style="mso-spacerun: yes">  </SPAN>We use it for our Entrepreneur clientele projects, and it has saved us a lot of time, and I?m sure money too!</P> <P class=MsoNormal style="MARGIN: 0in 0in 0pt"> <o:p></o:p></P> <P class=MsoNormal style="MARGIN: 0in 0in 0pt">Best regards,</P> <P class=MsoNormal style="MARGIN: 0in 0in 0pt">Randy</P> <P class=MsoNormal style="MARGIN: 0in 0in 0pt"> <o:p></o:p></P> <P class=MsoNormal style="MARGIN: 0in 0in 0pt"><A href="http://www.wiremarkltd.com/gybol/book.html">http://www.wiremarkltd.com/gybol/book.html</A></P> <P class=MsoNormal style="MARGIN: 0in 0in 0pt"> <o:p></o:p></P> <P class=MsoNormal style="MARGIN: 0in 0in 0pt"> <o:p></o:p></P> <DIV style="BORDER-RIGHT: medium none; PADDING-RIGHT: 0in; BORDER-TOP: medium none; PADDING-LEFT: 4pt; PADDING-BOTTOM: 0in; BORDER-LEFT: black 1.5pt solid; PADDING-TOP: 0in; BORDER-BOTTOM: medium none"> <P class=MsoNormal style="BORDER-RIGHT: medium none; PADDING-RIGHT: 0in; BORDER-TOP: medium none; PADDING-LEFT: 0in; PADDING-BOTTOM: 0in; MARGIN: 0in 0in 0pt; BORDER-LEFT: medium none; PADDING-TOP: 0in; BORDER-BOTTOM: medium none; mso-margin-top-alt: auto; mso-margin-bottom-alt: auto; mso-border-left-alt: solid black 1.5pt; mso-padding-alt: 0in 0in 0in 4.0pt"><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"> <o:p></o:p></SPAN></P></DIV> <DIV style="BORDER-RIGHT: medium none; PADDING-RIGHT: 0in; BORDER-TOP: medium none; PADDING-LEFT: 4pt; PADDING-BOTTOM: 0in; BORDER-LEFT: black 1.5pt solid; PADDING-TOP: 0in; BORDER-BOTTOM: medium none"> <P class=MsoNormal style="BORDER-RIGHT: medium none; PADDING-RIGHT: 0in; BORDER-TOP: medium none; PADDING-LEFT: 0in; PADDING-BOTTOM: 0in; MARGIN: 0in 0in 0pt 3.75pt; BORDER-LEFT: medium none; PADDING-TOP: 0in; BORDER-BOTTOM: medium none; mso-margin-top-alt: auto; mso-margin-bottom-alt: auto; mso-border-left-alt: solid black 1.5pt; mso-padding-alt: 0in 0in 0in 4.0pt"><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">----- Original Message ----- <o:p></o:p></SPAN></P> <P class=MsoNormal style="BORDER-RIGHT: medium none; PADDING-RIGHT: 0in; BORDER-TOP: medium none; PADDING-LEFT: 0in; BACKGROUND: #e4e4e4; PADDING-BOTTOM: 0in; MARGIN: 0in 0in 0pt 3.75pt; BORDER-LEFT: medium none; PADDING-TOP: 0in; BORDER-BOTTOM: medium none; mso-margin-top-alt: auto; mso-margin-bottom-alt: auto; mso-border-left-alt: solid black 1.5pt; mso-padding-alt: 0in 0in 0in 4.0pt"><B><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">From:</SPAN></B><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"> Tom Jeffers <o:p></o:p></SPAN></P> <P class=MsoNormal style="BORDER-RIGHT: medium none; PADDING-RIGHT: 0in; BORDER-TOP: medium none; PADDING-LEFT: 0in; PADDING-BOTTOM: 0in; MARGIN: 0in 0in 0pt 3.75pt; BORDER-LEFT: medium none; PADDING-TOP: 0in; BORDER-BOTTOM: medium none; mso-margin-top-alt: auto; mso-margin-bottom-alt: auto; mso-border-left-alt: solid black 1.5pt; mso-padding-alt: 0in 0in 0in 4.0pt"><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">November 29, 2004 3:37 PM<o:p></o:p></SPAN></P> <P class=MsoNormal style="BORDER-RIGHT: medium none; PADDING-RIGHT: 0in; BORDER-TOP: medium none; PADDING-LEFT: 0in; PADDING-BOTTOM: 0in; MARGIN: 0in 0in 0pt 3.75pt; BORDER-LEFT: medium none; PADDING-TOP: 0in; BORDER-BOTTOM: medium none; mso-margin-top-alt: auto; mso-margin-bottom-alt: auto; mso-border-left-alt: solid black 1.5pt; mso-padding-alt: 0in 0in 0in 4.0pt"><B><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">Subject:</SPAN></B><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"> Help Finding a Good eCommerce and Project Book<o:p></o:p></SPAN></P></DIV> <P class=MsoNormal style="MARGIN: 0in 0in 0pt"> <o:p></o:p></P> <P class=MsoNormal style="MARGIN: 0in 0in 0pt">Hello,</P> <P class=MsoNormal style="MARGIN: 0in 0in 0pt"> <o:p></o:p></P> <P class=MsoNormal style="MARGIN: 0in 0in 0pt">Can anyone tell me where I can find the eBook Getting Your Business Online?<SPAN style="mso-spacerun: yes">  </SPAN>If I remember correctly it was compiled by individuals working for a consulting company, but I do not recall which one.<SPAN style="mso-spacerun: yes">  </SPAN>We used the book for a lot of our web development and software projects at my other job, and I think a few of the construction or building companies we worked with used the project management section for their projects.<SPAN style="mso-spacerun: yes">  </SPAN>The book was an invaluable project tool, was very easy to read and understand, and covered just about everything you could imagine!<SPAN style="mso-spacerun: yes">  </SPAN>I?m sure someone out there has seen or heard of it.<SPAN style="mso-spacerun: yes">  </SPAN>I would like to review this book before I plan to go online with a business I am starting.<SPAN style="mso-spacerun: yes">  </SPAN></P> <P class=MsoNormal style="MARGIN: 0in 0in 0pt"> <o:p></o:p></P> <P class=MsoNormal style="MARGIN: 0in 0in 0pt">Any help would be greatly appreciated!</P> <P class=MsoNormal style="MARGIN: 0in 0in 0pt"> <o:p></o:p></P> <P class=MsoNormal style="MARGIN: 0in 0in 0pt">Thanks!</P> <P class=MsoNormal style="MARGIN: 0in 0in 0pt">Tom</P> <P> </P> </BODY> </HTML> Tag: Editor Control Tag: 166506
  - 25
    - Invalid CurrentPageIndex value problem ! Urgently Hi all, I have to using 2 radiobuttons to control 2 datagrid summay and detail representively. when I click detail radionbutton, there are 10 pages records. when I click summary radiobutton, I select 3rd pages it display the following error. In the summary report just only 1 page record. "System.Web.HttpException: Invalid CurrentPageIndex value. It must be >= 0 and < the PageCount. " Would you like to please give me instruction how to handle this error ? Please comment. Tag: Editor Control Tag: 166504

Does anyone know of an OCX for VB6 that can be used to enter VBScript ?
It needs to color the text and format it. Not execute.
Just a basic VBScript Editor.....

Thanks

Top

Re: Editor Control by mr

mr
Mon Dec 06 22:07:18 CST 2004

hi PJ,

The best one I know of was the "CodeMax" control (cmax20.ocx) by "WinMain
Software".(Barry Allyn).

The author abandoned his project, which was picked up by Nathan Lewis,
enhanced, and renamed "CodeSense" (because of the added "intellisense"
feature), and implemented as the cmcs21.ocx.

Unfortunately, Nathan abandoned his project also. But, these ocx's are
still referenced on various websites and you might find a download somewhere
using google. (You might also find them listed on the "monster" vb code
sites, like planet source code and free vb code)...

Failing that, there are plenty of other code editor utilities out there.
Google for "syntax-highlighting", and quite a number will show up.

cheers, jw

"PJU" <PJU@discussions.microsoft.com> wrote in message
news:8E544603-C0BF-432C-BBB9-BDEB7CAD3FAC@microsoft.com...
> Does anyone know of an OCX for VB6 that can be used to enter VBScript ?
> It needs to color the text and format it. Not execute.
> Just a basic VBScript Editor.....
>
> Thanks
>

Top

Re: Editor Control by Jussi

Jussi
Mon Dec 06 22:30:06 CST 2004

=?Utf-8?B?UEpV?= wrote:

> Does anyone know of an OCX for VB6 that can be used to enter
> VBScript ?

The Scintilla editor control is very popular:

http://scintilla.sourceforge.net/index.html

but I am not sure if there is an OCX version?

Jussi Jumppanen
Author of: Zeus for Windows (New version 3.93 out now)
"The C/C++, Cobol, Java, HTML, Python, PHP, Perl programmer's editor"
Home Page: http://www.zeusedit.com

Top