Install of VBScript components causing problem?

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
    - How to use DateLastModified for individual TABLE I am writing a small program using MS Access. I want to let the users know that when the datasource is last updated. Is it possible to use DateLastModified for the individual TABLE instead of the entire databse. If yes, please show me how. Thank you in advance! Tag: Install of VBScript components causing problem? Tag: 139941
  - 2
    - Adding a Windows Service I found the script located at Microsoft's Script Center titled "Install a Service". When I run the script on Windows XP it adds the service fine. But when I run the service on Windows 2000 it fails and generates an error 22 in a dialog box. What do I need to do to get it to work on Windows 2000? The script I am using is below. Thanks, Michael Const OWN_PROCESS = 16 Const NOT_INTERACTIVE = False Const NORMAL_ERROR_CONTROL = 2 strComputer = "corpimage01" Set objWMIService = GetObject("winmgmts:" & _ "{impersonationLevel=Impersonate}!\\" & strComputer & "\root\cimv2") Set objService = objWMIService.Get("Win32_BaseService") errReturn = objService.Create("Eclipse", _ "Eclipse Database", _ "C:\Program Files\4D\4D Server 6.8\4DServer.exe", _ OWN_PROCESS, _ NORMAL_ERROR_CONTROL, _ "Manual", _ NOT_INTERACTIVE, _ "NT AUTHORITY\LocalService", "") Wscript.Echo errReturn Tag: Install of VBScript components causing problem? Tag: 139930
  - 3
    - unicode I need to select data from an nchar field in a sqlserver database, persist it to XML, then transform it using XSL, (all in COM component called from ASP - returning HTML ), outputting HTML (Response.Write the string returned from COM+). The data may contain european characters such as ? é and also chinese characters such as ???? (it looks like SQLserver stores these as 两个月前) There seem to be a lot of stages along the way where the encoding can be set and/or will default to a certain encoding (COM defaults to UTF-16?) What do I need to set to be able to see (and input) both Eurpoean and Chinese (Simplified) characters? So far I'm using; XML FROM RECORDSET------------------------------------------------------------- In the recordset the Chinese char is 个 but when persisted to XML the ampersand at the front is shown as & <data>&#20010;</data> So I'm replacing "&#" with "&# " to output 个 in the XML XML HEADER---------------------------------------------------------------------- --------- I grab the documentElement.xml of the XML from several recordsets and build up a 'master' XML string. The header that I use on this string is; <?xml version='1.0' encoding='ISO-8859-1'?> (should I change this to <?xml version='1.0' encoding='utf-8'?>) XSL TRANSFORMATION-------------------------------------------------------------- I then transform the XML using XSL. - no encoding specified that I can think of.. ASP------------------------------------------------------------------------- --------------------- The resulting HTML string is returned to the ASp from the COM component. At the moment I have no codepage set in the ASP..what effect would setting this have? HTML------------------------------------------------------------------------ ---------------------- The Meta tag in the HTML is set to ; <META http-equiv="Content-Type" content="text/html; charset=ISO-8859-1"/> Tag: Install of VBScript components causing problem? Tag: 139929
  - 4
    - Reading ini file on remote computer We have a program that is run on the client user's computers. At times we need to change the host ip address. I created a web page to do this via the File Scripting Object. It works great. Problem is that it will modify and save the ini file on the web server, but I need to read in and write out to the client computer. We are using IIS 5 and client machines are Win98, Win2K and WinXP. Any help is appreciated. Tag: Install of VBScript components causing problem? Tag: 139916
  - 5
    - Reading files on a remote computer Here is the situation. We have an abc.ini file in the C:\windows directory on users machines that have the parent program running locally. I want to create a web page that will display a section and its values in a web page that the user can modify the values and then save the file. In this case its for switching host ip addresses for the parent program. I have successfully created the page and using the file system object, I can change and save the file on the web server\windows folder. I need to get the values from the remote users ini file and save to the remote users Windows folder. Any help would be appreciated. Thanks, Kim Poellot Tag: Install of VBScript components causing problem? Tag: 139907
  - 6
    - newbie question i would like to create a message box that would prompt a user to input a machine name and as well create a folder on a network share that will place the machine name that the user input in the message box. i don't know where to begin. please help thanks Tag: Install of VBScript components causing problem? Tag: 139906
  - 7
    - what is the command for adding an attachment????? Hi, My ISP only supports the SMTPsvg.Mailer and I have the following code which works great except for adding attachments. An exhaustive googe search for an example has produced nothing useful and trying to guess what the command might be took a lot of time and yielded nothing. The file - GPC Assessment - Ronnie Bates.xls is a file on the server in the root path. This code runs error free, it just doesn't do what I need it to do. I tried some of the following format as well - Mailer.addAttachment upload.file("GPC Assessment - Ronnie Bates.xls").path and all variations of parenthesis and quotes to no avail. Set Mailer = Server.CreateObject ("SMTPsvg.Mailer") Mailer.FromName = "Web Mail Test" Mailer.FromAddress = "apc_assess@engconcepts.net" Mailer.Subject = "Upward Assessment " & MailByWeb.fields.item("supervisor").value Mailer.BodyText = "The Supervisor is - " & MailByWeb.fields.item("supervisor").value & " the rater is - " & MailByWeb.fields.item("rater").value Mailer.RemoteHost = "mail-fwd" Mailer.AddRecipient "test", "george@engconcepts.net" Mailer.addAttachment "GPC Assessment - Ronnie Bates.xls" if Mailer.SendMail then Thanks in advance George Tag: Install of VBScript components causing problem? Tag: 139900
  - 8
    - remap drives reading from text file I use this to write to a text file. I would like to read the resulting text file and remap the drives (usually 8 or so) listed in it. But alas, I don't know how. Thanks, Jerry Set Wrt = ws.CreateTextFile("H:\Drive Map\" & DOMAIN & WshNetwork.UserName & ".txt") 'Get User Informaion and write to text file Wrt.WriteLine Wrt.WriteLine "Computer Name = " & WshNetwork.ComputerName Wrt.WriteLine "User Name = " & WshNetwork.UserName Wrt.WriteLine "Domain = " & WshNetwork.UserDomain Wrt.WriteLine Wrt.WriteLine 'Get Mapped drive information and write to text file. Wrt.WriteLine "Mapped Network Drives:" For i = 0 To oDrives.Count - 1 Step 2 Wrt.WriteLine vbTab & "Drive " & oDrives.Item(i) & " = " & oDrives.Item(i + 1) Next 'Get printer information and write to text file. Wrt.WriteLine Wrt.WriteLine Wrt.WriteLine "Printers:" For i = 0 To oPrinters.Count - 1 Step 2 Wrt.WriteLine vbTab & "IP Address, Printer Name & Path " & oPrinters.Item(i) & " = " & oPrinters.Item(i + 1) Next Wrt.WriteLine Wrt.WriteLine Tag: Install of VBScript components causing problem? Tag: 139881
  - 9
    - New IE window Hello, Is there a way to, on a dblClick event, open a new I.E. window and display contents. I also want to control the size of the window. Thank you, Tag: Install of VBScript components causing problem? Tag: 139871
  - 10
    - Permssions error Hi All, I am running the following vbs on my machine and it works perfectly when I run it locally. ie, specify strComputer = "." however, when I specify another machine in the network, I get permission denied 'GetObject'. I am an admin on the remote machine I am calling. What could mbe the problem? Thanks in advance strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colQuickFixes = objWMIService.ExecQuery _ ("Select * from Win32_QuickFixEngineering") For Each objQuickFix in colQuickFixes Wscript.Echo "Computer: " & objQuickFix.CSName Wscript.Echo "Description: " & objQuickFix.Description Wscript.Echo "Hot Fix ID: " & objQuickFix.HotFixID Wscript.Echo "Installation Date: " & objQuickFix.InstallDate Wscript.Echo "Installed By: " & objQuickFix.InstalledBy Next Tag: Install of VBScript components causing problem? Tag: 139858
  - 11
    - Returning arrays from a .vbs file My question is: how is it possible for a .vbs file to return a variant array of strings when called from another .vbs file? I have a .vbs file which consists of about 20 calls to independent Functions, each of which returns an array of 4 strings. After this a short section disseminates the returned information. Each Function is about 30 lines long. For maintainability, instead of one huge Main.vbs file, I'd like to have a small Main.vbs and have each function call go out to its own small standalone .vbs file. These calls could be synchronous or asynchronous, but after all the results are in, I need to summarize the returned arrays. Can you suggest a way that's better than my overkill IE idea which follows? By the way, each .vbs file, including Main.vbs, utilizes an OCX that I have written and this OCX would be happy to cooperate. Can you do better than?: Main.vbs creates and prepares an instance of IE. Each Function (located in its own .vbs file) finds this same instance and when the Function is done, it writes its array somewhere into this IE instance which the caller (Main.vbs) can then access. In a better version, each FunctionN.vbs file would do something like Set myOcxInstance = GetObject(,"myOcx.Tool") and then I could accumulate the variant array of strings into the OCX, but upon searching, I have read that this GetObject does not like to work with OCXs (the OCX contains forms, but they are not shown when accessed in this manner) so I thought I'd ask before chasing after the wrong tree to bark up. Thanks, Csaba Gabor from New York Tag: Install of VBScript components causing problem? Tag: 139855
  - 12
    - Problems Using UPDATE to modify multiple and non sequential records - a giant conundrum from a total novice.... The records in my database are displayed in a form as follows: %> <form action="report-ammend1.42.asp" method="post"name="form"> <table border=1> <% x = 1 while RS.EOF=false %> <tr><td><input type="hidden" name="SprogNo<%= x %>" value="<%Response.Write RS.Fields("SprogNo")%>"><% response.write (RS.Fields("SprogNo"))%></td> <td><input type="text" name="Report<%= x %>" value="<%Response.Write RS.Fields("Report")%>"></td> <td><input type="text" name="rep2<%= x %>" value="<%Response.Write RS.Fields("rep2")%>"></td></tr> <% x = x + 1 RS.movenext Wend By specifying integer values for x in the form action file, the correct data is always udated to the correct record: Dim DB Set DB = Server.CreateObject ("ADODB.Connection") DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=C:\Inetpub\wwwroot\test\test.mdb") 'Dim rs Set rs = Server.CreateObject ("ADODB.Recordset") rs.Open "SELECT * FROM SprogTbl", DB, 2, 2 rs.movefirst for x = 1 to 3 rs.Fields("SprogNo") = Request.Form("SprogNo" & x) rs.Fields("Report") = Request.Form("Report" & x) rs.Fields("rep2") = Request.Form("rep2" & x) rs.update RS.movenext Next rs.movefirst However, I need this to work for any (undefined) no. of records and the records may have been queried to display non-sequential records for the database. I can't make any of the three solutions I can think of work: 1. If I could make the field SprogNo (which contains the unique ID no.) rs.response write into x as an integer, then each record would be automatically numbered. I would then need some kind of "for each x" loop before the rs.update statements. Just putting: Response.Write RS.Fields("SprogNo")=x in place of x = x+1 doesn't do it........ 2. I've also tried tying the update to a WHERE statement. But, the following will work for a databse of one record only: Dim strSQL strSQL = "UPDATE SprogTbl SET Report = '" & Report & _ "', rep2 = '" & rep2 & _ "' WHERE ((SprogTbl.SprogNo)='" & SprogNo & "');" DB.execute(strSQL) .... however, I've had no success trying to iterate it's functions starting with rs.movefirst and then a while rs.EOF=false 'rs.movenext loop. 3. Finally, I thought it might be worth trying to get the WHERE statement (above) into the rs.Fields("SprogNo") = Request.Form("SprogNo" & x) statement. So far all attempts have fallen foul of syntax errors. e.g. rs.update WHERE ((SprogTbl.SprogNo)='" & SprogNo & "'); The last two solutions would still require making the update repeat for each of the fields in some kind of a loop. Any help gratefully recieved...... Tag: Install of VBScript components causing problem? Tag: 139854
  - 13
    - Why does Createobject work on one computer but not another? I have the following code in a Visual Basic 6 standard exe project. On my computer, the development computer, it works fine. Dim ObjH as variant Set objH = CreateObject ("Shell.Application") However, when the same line of code is executed on another computer, it gets a run time error "object variable or with block variable not set". This line of code is basically instantiating an object variable to point to an object application in the class named shell. Is there a Visual Basic reference or dll required to use this line? Does anyone know why this is occurring and what I can do to fix it. Thanks in advance. Tag: Install of VBScript components causing problem? Tag: 139846
  - 14
    - For Next iterations Hi all, Is there any 'trick' anyone knows to control a For Next to pass to the next iteration in VBScript? ..Similar to the 'continue' keyword of C and C++? Thanks in advance.. -BB Tag: Install of VBScript components causing problem? Tag: 139845
  - 15
    - win32_print* on clusters Hi there, It seems that the win32_printer and win32_printjob classes are not directly available on clusters. So what approach should be used in enumerating those instances on clustered printservers? Thanks, -- SLE Tag: Install of VBScript components causing problem? Tag: 139844
  - 16
    - detect occurrence of two words in a text with regexp Hi, I'm searching for a pattern allowing to detect if a text has occurrence of two words (say word1 and word2), consecutive or not. I don't want a logical OR where (word1)|(word2) would be the solution. I want the two words being simultaneously in the text. So the text could be "some words word1 some other words word2 or word1word2 or word1 word2" I accept to not detect word2 being before word1 like word1...word2...word2...word1 I almost found a pattern with : re.global=true (word1)\s*(word2)|(word1)(\s+\w+)+\s+(word2) and why not be more complex with testing word1 and word2 being at the beginning of words like word1abc and word2xyz so the pattern will be (word1\w*)\s*(word2\w*)|(word1\w*)(\s+\w+)+\s+(word2\w*) If I dump the matchcol, I find each word1 and word2 listed but the matchcol.count doesn't give the right number of (word1, word2) pair occurrence. That's because the expression word1 words word2 words word1 words word2 is counted for one single occurrence as if it was : word1 (all words including word1 and word2 ignored) word2 Only the first word1 and the last word2 are taken into account. But the returned submatch content is word1 words word2 words word1 words word2 so any word1 and word2 is catched. I get also the same result with : (word1)(\s\w+)*\s*(word2) So I'm happy to know the two words are in the text but I can't use the result for replacing the words because I don't know where they are. Since I want to change the color of word1 and word2 in red, I must know the exact location. Is there any other way? or I must use the following process : - detect the presence of the two words (wherever they are) - do a re.replace(text, "word1", "<font fontcolor=red>word1<font> - do the same with word2 Thanks for any help Tag: Install of VBScript components causing problem? Tag: 139834
  - 17
    - Using queried date to serach for data I'm having a problem with my asp pages. I have the first page set up to search for data by date and shift. The dates are retrieved by a query of all dates that are in the database, meaning that if a date has no data, then that date will not show up in the select box. The shift is a simple select box with three options in it. When I hit submit, if there's a date that has the same shift as another date, the date and the data from that date that posted first will show up, even if I selected another date. Here's the code below and do you all have any ideas how this might be happening and ways to correct it. Thanks for any help I can get. First Page <% 'Sets up the connection between the page and the database Set Connection = Server.CreateObject("ADODB.Connection") Connection.Mode = 3 dbDir = Server.MapPath("fpdb/sacshifttest.mdb") Connection.Open "DBQ=" & dbDir &"; Driver={Microsoft Access Driver (*.mdb)}; DriverID=25;FIL=MS Access;" 'Queries for the data from that day SQLStmt = "SELECT DISTINCT dateRecord FROM SacShiftTest " Set RS = Connection.Execute(SQLStmt) %> .. <td><select name="dateRecord"> <% do while not RS.EOF daDate = RS.Fields("dateRecord").Value%> <option value="dateRecord"><% = daDate %> <% RS.MoveNext Loop %> <% Connection.close %> Next Page: <% dateRecord = Replace(Request("dateRecord"), "'", "''") sacShift = Replace(Request("sacShift"), "'", "''") 'Sets up the connection to the database Set Connection = Server.CreateObject("ADODB.Connection") Connection.Mode = 3 dbDir = Server.MapPath("fpdb/sacshifttest.mdb") Connection.Open "DBQ=" & dbDir &"; Driver={Microsoft Access Driver (*.mdb)}; DriverID=25;FIL=MS Access;" SQLStmt1 = "SELECT * FROM SacShiftTest WHERE dateRecord = " & dateRecord & " AND sacShift='" & sacShift & "' AND testnum='1' " Set RS1 = Connection.Execute(SQLStmt1) %> -- Posted via http://dbforums.com Tag: Install of VBScript components causing problem? Tag: 139827
  - 18
    - nt 4 user list I need to generate a list of every user in their domain, and the home directory listed for each user. This is a (large) Windows NT 4.0 domain. Thanks, Jay Tag: Install of VBScript components causing problem? Tag: 139824
  - 19
    - Formatting or inserting breaks into Textarea using innerHTML AAAAARRRGGGHHHHHHH!!!!!!!!!!!!!!!! Sorry, but thats how much I was frustrated when I could not get a simple thing to work on a static html page using javascript. I just wanted to insert a line break into the textarea dynamically. Here is the piece of code that will not work... but will give you a "unknown runtime error". If you remove the "<br>"s, it will work. <html> <head> <script language="JavaScript"> function writeText() { document.all.myTextArea.innerHTML = "Hello<br>" + "sometext" + "<br>Hello"; //THIS WONT WORK EITHER: //document.all.myTextArea.innerHTML = // "Hello\n" + "sometext" + "\nHello"; } </script> </head> <body> <table> <tr><td id="mytd"><textarea id="myTextArea"></textarea></td></tr> <tr><td><input type="submit" name="submit" value="submit" onClick="writeText();"/></td></tr> </table> </body> </html> But Internet Explorer did not like it. I visited a lot of newsgroups and tried different things. I've tried replacing line breaks ("\n") with <br>s and what not... but we wont go into it. What I am trying to say here is that I could not find a way to format the text inside a text area. After hours of research, I just ended up doing something like this... which by the way occured to me when I was finishing up my Dominos pineapple pizza. The workaround was to include the whole textarea inside the javascript and write them into the TD using the innerHTML of the TD at runtime. I sincerely hope that this will help someone solve a similar issue and save them a lot of trouble. ========= SOLUTION: ========= Here is the code that I came up with to work around this situation... //THIS IS THE WORKAROUND: (result is the id of TD, so you are basically inserting html that CONTAINS the textarea into the TD instead of writing text to the textarea. i.e., you are writing the whole textarea into the TD at runtime) <html> <head> <script language="JavaScript"> function writeText() { var rslt; rslt = "<textarea id=\"myTextArea\">"; rslt += "Hello\n" + "sometext" + "\nHello"; document.all.mytd.innerHTML = rslt + "</textarea>"; } </script> </head> <body> <table> <tr><td id="mytd"> <textarea id="myTextArea"></textarea> </td></tr> <tr><td><input type="submit" name="submit" value="submit" onClick="writeText();"/></td></tr> </table> </body> </html> GOOD LUCK!!! You are welcome. Jawad Shaik Mohammed Stryker Instruments Kalamazoo, MI Ph: (269) 323-7700 x3500 Tag: Install of VBScript components causing problem? Tag: 139812
  - 20
    - georgian date I need to generate a georgian(julian ) date. How do I do this? Tag: Install of VBScript components causing problem? Tag: 139802
  - 21
    - Learnig VB Script Hello, I´am a good VB 6 programer and now I will learn differences between VB and VBS. Has somebody a good tip for a book or internet based learning? THX Thomas mailto:twohlgemuth@hilcom-online.de Tag: Install of VBScript components causing problem? Tag: 139800
  - 22
    - rename active directory user account Hi, how can I rename an active directory user account with vbscript? Thanks Rolf Tag: Install of VBScript components causing problem? Tag: 139799
  - 23
    - Looking for resources/archives of vb scripts? Hello, Could someone direct me to some comprehensive vb archives on the web? Just trolling for some scripts that may be of use:-) TIA Tag: Install of VBScript components causing problem? Tag: 139798
  - 24
    - Newbie question: GetObject & CreateObject hi, i want to execute this wmi code on an html page: Set objComputerSystem = GetObject("winmgmts:{impersonationLevel=impersonate}!root/cimv2").ExecQuery( "select * from Win32_ComputerSystem") For Each instanceComputerSystem In objComputerSystem Manufacturer = Trim(instanceComputerSystem.Manufacturer) Model = Trim(instanceComputerSystem.Model) ComputerName = Trim(instanceComputerSystem.Caption) RAM = CLng(((instanceComputerSystem.TotalPhysicalMemory) / 1024) / 1024) User = instanceComputerSystem.UserName User = Mid(User, InStr(1, User, "\") + 1, Len(User)) Next Set objComputerSystem = Nothing but of course i got an error (activeX component can not get an object) i tried with createobject, i changed security parameters but with no results. any idea please ? Javier Tag: Install of VBScript components causing problem? Tag: 139794
  - 25
    - How to manage the "system" user Hi guys, I need to move the system user to a custom xp local group. I tried the normal method that applies to any ordinary local users but it does not seems to work. I had a look at MS technet site but found nothing regarding this issue. Does anybody know how to deal with this user ? Any help is appreciated ! Thanx Bar Tag: Install of VBScript components causing problem? Tag: 139788
- Next
  - 1
    - Split domain from email add Hi, I need to extract the domain from any email address entered into my form. e.g. for someone@somewhere.com i want to be able to take the string and extract only the somewhere.com part to pass into a function. Can anyone please advise me of the best way to do this. Thanks in advance, Nev. Tag: Install of VBScript components causing problem? Tag: 139779
  - 2
    - newbie question I have a task that is due soon. My question is: i have to copy certain files from nt 4 wks to a network share, then copy them back from the network share to the new workstation that will be xp. is there anything i need to worry about or be considered about? thanks for you help Thomas Tag: Install of VBScript components causing problem? Tag: 139776
  - 3
    - trouble with process wscript.exe Hi, I have a big problem when i run my vbs script on several server (not all server). My script is automaticaly run every 1 hour. When i m looking in task manager, the process wscript.exe appear around 300 times ! So sometime the server crashs if i don't kill any process 'wscript.exe'. I enable the option "kill the script" about 600 second elapsed. Why this problem appear ? Please have you an idea ? Thanks in advance Arnaud Tag: Install of VBScript components causing problem? Tag: 139775
  - 4
    - starting executable in login script I want to run an executable from a .vbs login script that starts up our virusscanner installation/update. What is the correct syntax to run an executable from this script? Thx. Tag: Install of VBScript components causing problem? Tag: 139774
  - 5
    - Dazed and Confused.... Hi. I'm using an Access 2002 DB and ASP. For the purposes of this post, the simplied SQL statement in question is: UPDATE dbtable SET status=" & xstat (xstat is yes/no) The exact same code works just fine on at least a dozen different servers in the US. It's part of a common function I use all the time. I have a client in Brazil . When they run this code their server throws an error... Microsoft JET Database Engine erro '80040e10' Nenhum valor foi fornecido para um ou mais parâmetros necessários. (No value given for one or more necessary parameters) BUT, I'm 100% certain that the field names and types are correct, and as I said above, this code works fine on many servers in the US If I hardcode: UPDATE dbtable SET status=True... it works fine. If I hardcode: xstat=True SQLx="UPDATE dbtable SET status=" & xstat response.write SQLx The code fails with the error I mentioned... and the SQLx string looks like: UPDATE dbtable SET status =Verdadeiro (which means True in Brazilian) Go figure. Any ideas what I must do to have the Engine/database recognize the foreign language equivalent of True? Tim -- Posted via http://dbforums.com Tag: Install of VBScript components causing problem? Tag: 139763
  - 6
    - Delete A File Using VBScript? I have a script (that I got from this group, thank you for this) that creats an Excel file from my an SQL statement. The problem is if the file already exists, it errors off. I would like to do just a 'blind' delete of the file so the Create doesn't error off. Is there a way delete a file in VBScript? Thanks Chris Tag: Install of VBScript components causing problem? Tag: 139757
  - 7
    - Multithreading with script control? Hi all, I am developing a multi-threaded server-application in VB. (How this? I am using a C++ service that is instantiating VB-Objects on different threads...) I need to add scripting to my application. I am currently using the Script Control. Are there any issues running this control (which is not placed on a form but only created as an object instead) on several threads? Is it possible to implement the IActiveScriptSite interface in VB? I could not find a type library where this is defined. Thanks very much for your help! Matthias Moetje Tag: Install of VBScript components causing problem? Tag: 139756
  - 8
    - Insert a line into a Txt file I want to be able to read a text file and find the line that reads: "Domain"="" Once found, I want to insert a line below it that reads: MTU=800 How do you write this in VB? Tag: Install of VBScript components causing problem? Tag: 139746
  - 9
    - Scripts for explorer and desktop settings? Hello, Does anyone know where i can find a script to set Windows Explorer>Tools>Folder Options> General Tab & View Tab to select the following boxes: General>Active Desktop>Use Windows classic desktop General>Web View>Use Windows classic folders General>Browse Folders>Open each folder in same window General>Click Items as Follows>Single-click to open an item/underline icon titles consistent with my browser View>Files and Folders> * Display compressed files and folders with alternate color * Display the full path in the address bar * Display the full path in title bar * Show Hidden files and folders * Launch folder windows in a seperate process * Show file attributes in detail view In addition I'm looking for a script to set * the auto arrange desktop icons option on/off * "Show small icons in start menu" ? * set the screen resolution to 800x600 with "True Color" 32bit * display large font sizes from the display properties>advanced tab TIA -- \\||// (@@) Pardon the intrusion... __ooO_()_Ooo_____________________________ _|_____|_____|_____|_____|_____|_____|___ ___|_____|_____|_____|_____|_____|_____|_ _|_____|_____|_____|_____|_____|_____|___ .oooO Oooo. ( ) ( ) \ ( ) / \_) (_/ Tag: Install of VBScript components causing problem? Tag: 139745
  - 10
    - Corporate Disclaimer I started out trying to follow through a Microsoft Knowledge Base article 317680 "How To: Add a disclaiamer to Outgoing SMTP Message in Visual Bacic Script I got it to work sending a test disclaimer. But I don't know how to write a "Sample disclaimer added in VBScript." This is from: <SCRIPT LANGUAGE="VBScript"> Sub ISMTPOnArrival_OnArrival(ByVal Msg, EventStatus) TextDisclaimer = vbCrLf & "DISCLAIMER:" & vbCrLf & "Sample Disclaimer added in a VBScript." HTMLDisclaimer = "<p></p><p>DISCLAIMER:<br>Sample Disclaimer added in a VBScript." If Msg.HTMLBody <> "" Then 'Search for the "</body>" tag and insert our discliamer before that tag. pos = InStr(1, Msg.HTMLBody, "</body>", vbTextCompare) szPartI = Left(Msg.HTMLBody, pos - 1) szPartII = Right(Msg.HTMLBody, Len(Msg.HTMLBody) - (pos - 1)) Msg.HTMLBody = szPartI + HTMLDisclaimer + szPartII Msg.TextBody = Msg.TextBody & vbCrLf & TextDisclaimer & vbCrLf Else Msg.TextBody = Msg.TextBody & vbCrLf & TextDisclaimer & vbCrLf End If 'Commit the content changes to the transport ADO Stream object. Msg.DataSource.Save ' Commit the changes into the transport Stream pEventStatus = cdoRunNextSink End Sub </SCRIPT> I've started reading up on WSH and cscript but not making any specific progress. Just a lot of error messages. Any help or maybe the name of a good beginner book would be great. Tag: Install of VBScript components causing problem? Tag: 139736
  - 11
    - validate what option is selected How do u retrieve (for clientside validation)what option is selected in a drop down list. I have spent all week trying to find out. Why are all the code examples in my script editor in jscript? Can i get a version that gives its examples in vbscript? Could you also tell me the best place to get axamples for vbscript because there arent any at ms site.(If there is they didnt want anyone to find them.) Tag: Install of VBScript components causing problem? Tag: 139730
  - 12
    - What was selected ? <h5>The reason I've spent all weekend trying to find out how to store what someone selects in this form is:</h5> <select size="1" name="Reason" id="HelpMe" onchange = "HelpMePlease"> <option>The code examples in the help files are not in vbscript</option> <option>Someone up there hates me</option> <option>I really need to get a life</option> </select> <script language = "vbscript">  </script> Tag: Install of VBScript components causing problem? Tag: 139729
  - 13
    - Reading serial of CDROM remotely Hi, I am moving a cataloging application currently in VB6 to a web based ASP.NET application. The first problem that I have though is how do I read the serial number of the currently loaded CD remotely? Any help would be appreciated. Thanks, John Tag: Install of VBScript components causing problem? Tag: 139726
  - 14
    - Loop Hi, When iterating through database, which loop statement is the best?Because if i use "while...wend" it will give me error when it reaches EOF and terminates with giving error even if i use "While rs.eof=false" at the top of the loop...any other better way... "if...then..else" also doesnt help much... TIA Tag: Install of VBScript components causing problem? Tag: 139723
  - 15
    - A script for formating hard drive Is anyone knows the script for formating hard disk??? if it is, is that can be run on Win2k Pro. and Win2k Ser. ???? Tag: Install of VBScript components causing problem? Tag: 139715
  - 16
    - Newbie ASP db question Hi All, I am learning database connectivity within ASP. I have the following code but keep getting the error shown below. --------------<snip>------------------- Set dcnDB = Server.CreateObject("ADODB.Connection") dcnDB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDatabaseLocation dcnDB.Open strSQL = "SELECT * FROM Current ORDER BY NewsItem" Set rsQuery = dcnDB.Execute(strSQL) Do While Not rsQuery.EOF response.write rsQuery("NewsItem") & "<br>" & rsQuery("Source") & "<br><br>" Loop --------------<end snip>---------------- Error Type: (0x80004005) Unspecified error The error is with 'Set rsQuery = dcnDB.Execute(strSQL)'. The database is a very simple Access 2000 file. It has 4 tables; Current, Hold, National and International. Each table has 2 fields. NewsItem and Source. All the manuals I have say that it is right. Is there something special I have to do with the Access database file in Access to make it compatible or something? Any help would be muchly appreciated. Cheers, Bill. Tag: Install of VBScript components causing problem? Tag: 139710
  - 17
    - Deleting table rows at runtime Hi, I have a table that looks much like an inbox on most sites with the first column having a checkbox and other columns containing data. I want to delete those rows where the checkbox is checked at the client-side itself. I've tried looping through the table body elements to check the state of each checkbox but haven't been able to make it work. Anybody has any suggestions how this would work? Thanks, Saranjit Tag: Install of VBScript components causing problem? Tag: 139699
  - 18
    - change select style Hi I need to change a <select style to multiple. I know how to change it's style (document.FormName.SElectName.style=) but I dont know how to change it to multiple . Thanks Tag: Install of VBScript components causing problem? Tag: 139693
  - 19
    - error on Windows NT 4.0 server I receive this error when trying to run a script on an NT 4.0 server: ActiveX component can't create object: 'CDO.Message' Is there an update I need to download and install on the server? Here's my code: sArgument = WScript.Arguments(0) Set objEmail = CreateObject("CDO.Message") objEmail.From = server@domain.com objEmail.To = uuser@domain.com objEmail.Subject = "my subject " & now() objEmail.Textbody = "my text " & sArgument & " on " & now() & "." objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _ "nafepncsebe6.nr.ad.newellco.com" objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objEmail.Configuration.Fields.Update objEmail.Send Any help would be appreciated. -- 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 Tag: Install of VBScript components causing problem? Tag: 139657
  - 20
    - adrpt.vbs,adexport.vbs,adlogconvert.vbs I need to get these sample scripts, supposed to be in site server package however I cannot open any part of site server to find these scripts. Any help would be appreciated! Tag: Install of VBScript components causing problem? Tag: 139655
  - 21
    - Creating Exchange 5.5 Mailboxes via VBScript I have this script that I will use to create mailboxes and so far it works really well. The only problem I have is adding attributes like City, State, Zip etc. Where can I find what Exchange directory calls them? For example the LDAP attribute for Address field is actually postalAddress. I have full access to the Exchange 5.5 server. Another question is now when we create mailboxes through the Admin program it creates an NS record for us. But the script does not do that. Any ideas on how to do that through this script? Here is the script: 'createmailbox.vbs Const ADS_RIGHT_EXCH_MODIFY_USER_ATT = 2 Const ADS_RIGHT_EXCH_MAIL_SEND_AS = 8 Const ADS_RIGHT_EXCH_MAIL_RECEIVE_AS = 16 Const ADS_SID_WINNT_PATH = 5 Const ADS_SID_HEXSTRING = 1 Dim objMailbox, objContainer, strServer Dim strAlias, strMTA, strMDB, strSMTPAddr, strDisplayName Dim objSid, strSidHex, strComputer, strSite, strOrg Dim objComputer, strUserID, strDomain Dim objSec, objSD, objDACL, objAce strServer = "SERVER" strSite = "Site" strDomain = "Domain" strDisplayName = "Username" strSMTPAddr = "user@rfsamericas.com" strAlias = "Alias" strUserID = "UserID" 'NT UserName strAddress = "Address" strCity = "City" Set objComputer = GetObject("LDAP://" & strServer) 'get the organization strOrg = objComputer.o 'get the recipients container for the site Set objContainer = GetObject("LDAP://" & strServer & "/CN=Recipients,OU=" & strSite & ",o=" & strOrg) 'get the SID for the account to be associated with the new mailbox Set objSid = CreateObject("ADsSID") objSid.SetAs ADS_SID_WINNT_PATH, "WinNT://" & strDomain & "/" & strUserID strSidHex = objSid.GetAs(ADS_SID_HEXSTRING) 'create a new MailBox Set objMailbox = objContainer.create("organizationalPerson", "cn=" & strAlias) 'set display name and alias objMailbox.Put "postalAddress", strAddress objMailbox.Put "mailPreferenceOption", 0 objMailbox.Put "cn", strDisplayName objMailbox.Put "uid", strAlias objMailbox.Put "Home-MTA", _ "cn=Microsoft MTA,cn=" & strServer & ",cn=Servers,cn=Configuration,ou=" _ & strSite & ",o=" & strOrg objMailbox.Put "Home-MDB", _ "cn=Microsoft Private MDB,cn=" & strServer & _ ",cn=Servers,cn=Configuration,ou=" _ & strSite & ",o=" & strOrg objMailbox.Put "MAPI-Recipient", True 'objMailbox.Put "rfc822Mailbox", strSMTPAddr objMailbox.rfc822Mailbox = strSMTPAddr objMailbox.Put "textEncodedORaddress", _ "c=US;a= ;p=" & strSite & ";o=" & strOrg & ";s=" & strAlias objMailbox.textEncodedORaddress = _ "c=US;a= ;p=" & strSite & ";o=" & strOrg & ";s=" & strAlias objMailbox.Put "Assoc-NT-Account", strSidHex objMailbox.SetInfo 'create security objects Set objSec = CreateObject("ADsSecurity") Set objAce = CreateObject("AccessControlEntry") Set objSD = objSec.GetSecurityDescriptor("LDAP://" & strServer & _ "/CN=Recipients,OU=" & strSite & ",o=" & strOrg) Set objDACL = objSD.DiscretionaryAcl objAce.Trustee = strDomain & "\" & strUserID objAce.AccessMask = ADS_RIGHT_EXCH_MODIFY_USER_ATT Or _ ADS_RIGHT_EXCH_MAIL_SEND_AS Or _ ADS_RIGHT_EXCH_MAIL_RECEIVE_AS objAce.AceType = ADS_ACETYPE_ACCESS_ALLOWED objDACL.AddAce objAce objSD.DiscretionaryAcl = objDACL objSec.SetSecurityDescriptor objSD Tag: Install of VBScript components causing problem? Tag: 139654
  - 22
    - Better / Difference JavaScript, VBScript - OT Discussion and observation Is there just some things that JavaScript can do that VBScript cannot do ? Vice versa? Or are there some things that one is just flat out better for than the other ? And within one web page, or asp page, can both be used and mixed or must a page/asp page be one or the other. I really dont want to take the time to learn both, since I am coding for myself only, and I can usually tell by looking at code from either whats going on. Just wondering if one is better than the other, and if one will be "unsupported" in any future time. Thanks! Jim Tag: Install of VBScript components causing problem? Tag: 139647
  - 23
    - how to pass a variable from closing WIndow When one window is closing to opening another, such as; herf.location = "next.htm" how to pass a variable to the next page from closing one. Thanks in advance. ----------------------------------------- Osamu Terao Email: hag83950@ams.odn.ne.jp ----------------------------------------- Tag: Install of VBScript components causing problem? Tag: 139635
  - 24
    - Querying SSL expiry dates Hi All, Does anyone know a way of querying the certicate store to return a list of expiry dates for the SSL certifcates held within it? I am attempting to come up with a way of e- mailing a warning a couple of weeks before a cert expires but as yet have found little or no info on getting this information. I have found the blob entries in the registry for the certs and when looking at the right column of the key you can see the expiry dates listed, however how would you convert a binary key from the registry to process the info...... It's all a blurr.... Any help would be appreciated. Many thanks, Aaron Tag: Install of VBScript components causing problem? Tag: 139624
  - 25
    - How do I do "For Each ... " minus one ? How would you go about doing a For Each loop but only for all the items in the array minus one ? ie. (arrBasket is "Apple, Banana, Pear, Peach") For Each varFruit In arrBasket Msgbox varFruit Next So I want all the fruit apart from the Peach at the end... cheers, Steve PS. I'm not doing a grocery script :¬) Tag: Install of VBScript components causing problem? Tag: 139621

I recently installed and began using VBScript. Now when I boot I get a
cryptic message
XAUpdate.exe
Cannot find entry SHGetSpecialFolderPathA ... not in SHELL32.dll ...
It appears not to affect the system (after clicking OK), but I wonder if the
install of Scripting caused this?
I noted a post from Michael Harris that IE4 Desktop Update must be done.
Checking on that in KB, it appears that it can't be done without
uninstalling IE5.5 and reinstalling. I truly don't want to bother. My
shell32.dll is version 4.00 and this appears to be too old.
Any lazy way out?
--
Gary

Top

Re: Install of VBScript components causing problem? by Michael

Michael
Sun Aug 03 12:26:04 CDT 2003

ghl wrote:
> I recently installed and began using VBScript. Now when I boot I get a
> cryptic message
> XAUpdate.exe
> Cannot find entry SHGetSpecialFolderPathA ... not in SHELL32.dll ...
> It appears not to affect the system (after clicking OK), but I wonder
> if the install of Scripting caused this?
> I noted a post from Michael Harris that IE4 Desktop Update must be
> done. Checking on that in KB, it appears that it can't be done without
> uninstalling IE5.5 and reinstalling. I truly don't want to bother. My
> shell32.dll is version 4.00 and this appears to be too old.
> Any lazy way out?

Google Search: ie4shell group:microsoft.public.scripting.*
http://groups.google.com/groups?q=ie4shell%20group:microsoft.public.scripting.*&num=100&scoring=d

--
Michael Harris
Microsoft.MVP.Scripting
Seattle WA US

Technet Script Center
http://www.microsoft.com/technet/scriptcenter/default.asp

Microsoft® Windows®2000 Scripting Guide
http://www.microsoft.com/technet/scriptcenter/scrguide/sagsas_overview.asp

Top