Help on copying

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
    - Passing Dictionary object byref Ive created an ASP class that uses a dictionary object which is filled from a recordset. It passes the object to the propterty of another ASP class byref: Public Property Let dicReplaceVars(byref vdicReplaceVars) set p_ReplaceVars = vdicReplaceVars End Property Private p_ReplaceVars where it is used in this other class a few times to replace values in an array: Function ReplaceVars(vArrayItem) '' turn it into an array split at spaces vArrayItem = split(vArrayItem," ") '' loop through the array for count = lbound(vArrayItem) to ubound(vArrayItem) ''See if it is a replacement variable and exists in the dictionary if left(vArrayItem(count),6) = "tkRep_" and p_ReplaceVars.exists(vArrayItem(count)) then '' then replace it Error occurs here >> vArrayItem(count) = p_ReplaceVars.Item(cstr(vArrayItem(count))) end if next dim vArrayItemNew vArrayItemNew = "" '' Loop through the array and put it back together for count = lbound(vArrayItem) to ubound(vArrayItem) if vArrayItem(count) = ubound(vArrayItem) then vArrayItemNew = vArrayItemNew & vArrayItem(count) else vArrayItemNew = vArrayItemNew & vArrayItem(count) & " " end if next '' return the vArrayItemNew to the function ReplaceVars = vArrayItemNew End Function The error message I get is: ADODB.Field (0x800A0D5C) Object is no longer valid. D:\WWW\LCDEV\DOC_FUNCTIONS\../classes/classlcDocTKit_item.asp, line 52 However I have no idea why, it is a dictionary object and not a recordset, the object should still be open. Any help is greatly appreciated. Thanks ----------------------------- This message is posted by http://Asp.ForumsZone.com Tag: Help on copying Tag: 143045
  - 2
    - HTTP_USER_AGENT and Safari/85 Problem I am trying to include the following server variable in an IF test: Request.ServerVariables("HTTP_USER_AGENT") in my global.asa. Works fine in all browsers except Safari/85. I get the following error: --------------- Microsoft OLE DB Provider for ODBC Drivers error '80040e57' [Microsoft][ODBC SQL Server Driver][SQL Server]String or binary data would be truncated. ------------------- Any suggestions?? Thanks, Dale Tag: Help on copying Tag: 143043
  - 3
    - Excel functions called from a web page? Can you call Excel functions using VBScript on an ASP page? What/how do you need to reference? I assume the server would need to have the MS extensions loaded or something? Thanks. -- Bradley Software Developer www.hrsystems.com.au A Christian Response www.pastornet.net.au/reponse Tag: Help on copying Tag: 143041
  - 4
    - ASP submitting a form to 2 places on the same page Ok, have a normal html form that sends a username and password to an asp page, the asp page then retrieves the username and password and puts it into cookies, The page then uses a javascript submittal to a progress database but this js is considered malicious code by some browsers and will not work for certain users. So I have to find a different way of gleaning the username and password before it is sent off to the other page (which I have no control over). I could always use a response.redirect but then the username and password would be in clear text and is unacceptable. IS there anyway to do a blind submittal on an asp page without user intervention??????? Tag: Help on copying Tag: 143039
  - 5
    - Help on script Hi, I''d like to create a vbs script that runs when a user logs in. Basically, the scripts should query the users group membership and then run a batch file stored on a server share. If the user is not a member of the group then the batch file should not be run Any help will be appreciated. TIA LM Tag: Help on copying Tag: 143037
  - 6
    - RegExp: Password Validation I am trying to create a regular expression pattern to validate a user's password without any success. The password must have the following characteristics: - be at least 8 charachters - must have both letters (both upper and lower) and numbers It seems easy enough, but I am having a heck of a time trying to create one. Any help would be greatly appreciated. Thanks. Greif Tag: Help on copying Tag: 143031
  - 7
    - for each table Dans un tableau html je voudrais faire une fo each des cellules d'une colonnes . Comment faire? Tag: Help on copying Tag: 143027
  - 8
    - Patchinst.vbs script I am using this script to remotely install the patch. I don't know how to use scripts and was looking for help. I changed the variable to not force a reboot after patch is installed, but now I want to send a pop message to that user using that same script stating that I installed a patch and they need to reboot. http://support.microsoft.com/default.aspx?scid=kb;[LN];827227 Thanks Sal Tag: Help on copying Tag: 143019
  - 9
    - Excel, Value, and Arrays The value property of a range object in excel has the ability to return an array of values. While it works fine in VB or VBA, I cannot get the following code to work in a vbs file. Dim aryData() Set oRange = oExcel.Range("A5").CurrentRegion aryData = oRange.Value I get the error Microsoft VBScript runtime error: Type mismatch Any thoughts? Tag: Help on copying Tag: 143012
  - 10
    - Permission Denied when using OpenTextFile repeatedly, is it stepping on itself? I've got a script that does a lot of writing to a log file so I can track its progress. Here is the subroutine that I use: Sub LogMain(S) Dim F set F = fso.opentextfile(CurrentPath & "\log.txt", 8, true) F.writeline Now() & vbTab & S F.close set F = nothing End Sub So from within my script, I can just call: LogMain "test entry" The problem I'm seeing -- which never used to happen, but has been happening quite a bit over the past month or so -- is that the script will work fine for a while, but at some point it suddenly hits a "permission denied" error on the line that calls OpenTextFile. It will not happen at the same point in the script every time, so I'm having a hard time reproducing the error. I'm closing F and then setting it to Nothing before ending the sub, so I would not expect there to be a conflict the next time I open the file. If I change the routine to look like this, it will work flawlessly: Sub LogMain(S) Dim F set F = fso.opentextfile(CurrentPath & "\log.txt", 8, true) F.writeline Now() & vbTab & S F.close set F = nothing wscript.sleep 5 '<-- new line End Sub Is this just a case of the file not really being closed by the OS before I try to open it again? I'm only seeing this happen on one machine, so far. Tag: Help on copying Tag: 143009
  - 11
    - exchange scripting I tried posting this message in the exchange2000.development group but got no answer, perhaps someone here can help me. I'm putting together a script to delete certain messages in our public folders, right now i have it working fine based on keywords in the message's subject using objMessage.subject property, what i want to know is what property can i use to see the received date on it and delete based on that? ex code: for each folder in objSubFolders if folder.name = "test folder" then Set tempfolder = objSession.GetFolder(folder.id, objInfoStore2.id) Set Allmessages = tempfolder.messages for each Messageval in allmessages if inStr(messageval.Subject,"keyword") then messageval.delete() end if next end if Next what i would like to have it do is something to the effect of (if one of you can help me with the proper syntax): if (inStr(messagval.Subject,"keyword")) OR (messageval.ReceivedDate < oneMonthAgo) messageval.delete() end if i'm not sure of the actual property or if there is another function of means to find the received date to test. any help would be appreciated thanks chris coho ccoho@jrwald.com Tag: Help on copying Tag: 143008
  - 12
    - How to select folders (only folders, not files) in ASP pages? Hi all, Could anybody give me a hand on select folders in ASP pages? The situation is that I want to specify a folder to save download files in my ASP page. I know how to browse a file. However, what I want is just browse to folder level, just like we select a dirctory for setup application. Thanks a lot. Tag: Help on copying Tag: 143005
  - 13
    - Script to create COM+ application I'm trying to create an automation script for creating a COM+ application. I not seen any examples on this anywhere just looking for a sample. Thanks Tag: Help on copying Tag: 143004
  - 14
    - IP Resolution Is there a function to have an IP address resolved to the workstation name? Thanks in advance Tag: Help on copying Tag: 143003
  - 15
    - vbscript that moves files that are older than 3 days I need a vbscript that moves files that are older than 3 days I am having problems writing this script I f someone could help I would appreciate it Thanks Earl L Tag: Help on copying Tag: 143002
  - 16
    - Running Script with Elevated Rights I have a VB script which detects the OS version, installs the latest RPC patch, and opens an IE window telling the user they have been updated and need to re-boot the system to "activate" the patch. I am pushing this task with SMS and all is fine. The problem is I have a significant number of users who are not SMS clients and do not have Admin Rights on the local machine. I am trying to get the script to run with elevated rights when manually invoked by the user and having no success (I want to email a link to the script which says "Click here to update your system"). Anyone have any words of wisdom on this task? I appreciate any and all comments (unless they are nasty). Thanks, Russ J Tag: Help on copying Tag: 142999
  - 17
    - Printer Help I use a VBScript for each user in their login script that maps a specific network printer in the room where they are logging in. This script uses the computer name to determine the specific printer. This script work with Windows 2000 pro, and XP Pro. Here is the problem; I have 4 users accounts that it will not work and I just cant figure out why. It appears to be a permissions issue when the login script runs and the script throws this error. Cscript Error: Loading your settings failed. (Access is denied.) I have deleted the 4 users and recreated them, still they fail. I know this script works, other users it works fine under both OS's My questions are what specific permissions are required to run a vbscript? Is the script failing because the u ser doesnt have the right permissions to run it? Or, is it failing to make the changes that the script is trying to change? ( ie; add the network printer) Here is a snippet of the script Option Explicit DIM RegEntry, ComputerName RegEntry="HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName" ComputerName = ReadRegValue(RegEntry) if InStr(1,ucase(ComputerName),"xpfinal",vbTextCompare) > 0 then call SetPrinter("\\XXXX\test-1") if InStr(1,ucase(ComputerName),"ms-a3-",vbTextCompare) > 0 then call SetPrinter("\\XXXX\Test-2") if InStr(1,ucase(ComputerName),"ms-a4-",vbTextCompare) > 0 then call SetPrinter("\\XXXX\Test -3") 'so on and so forth. wscript.quit ' *** This subroutine installs and sets the default printer Sub SetPrinter(ByVal PrinterPath) DIM WshNetwork Set WshNetwork = CreateObject("WScript.Network") WshNetwork.AddWindowsPrinterConnection(PrinterPath) WshNetwork.SetDefaultPrinter Printerpath end sub ' **** This function returns the data in the registry value Function ReadRegValue(ByVal RegValue) DIM WSHShell Set WSHShell = WScript.CreateObject("WScript.Shell") ReadRegValue="" On Error Resume Next ReadRegValue= WSHShell.RegRead(RegValue) End Function I call this script from the logon.bat for each user; @echo off Cscript %LOGONSERVER%\netlogon\roaming.vbs net use g: \\XXXXX\XXXX The printer configurations are properly setup on the server and the shares are correctly named. I didn't assign any specific permissions to the printer shares. They work for hundred of other accounts. When the users that the script fails on, try to add the network printer via the wizard this fails too. HELP Robert Tag: Help on copying Tag: 142996
  - 18
    - Change computername automatically Hi there, I am looking for a working script or small utility to change the Windows XP computername immediately after start-up, if required, before any user logs on. This script/utility should check if the current computername equals VSxxxxxxxxxxxx (where x = macaddress) and if not, change it accordingly without breaking domain membership or other security issues. The latter is the problem. I have found and tried several scripts, however there is always a domain/security problem. Is there a 100% transparent and functional way to achieve the above? Thanks, -- SLE Tag: Help on copying Tag: 142995
  - 19
    - Search for a specific file on local drives I'm looking for a script that will search for a specific file by name on all local drives and return the path. I've seen several examples that search for files by extension, date, and file size but none that just searches for a specific file. Can someone please help? Thanks, Todd Ouimet touimet@advantageprofessionals.com Tag: Help on copying Tag: 142994
  - 20
    - how to get the infromation if it's a string or a decimal please help! in my script i'm getting data from an csv file and split the values to an aray. now i'd like to claculate with some values, but it's still possible that there are strings als value. now i'd like somthing like that: for i = 1 to ubound(array) if array(i) = nuberic then calculate something. next i how can i do that numberic function? thx christian Tag: Help on copying Tag: 142990
  - 21
    - * Newsgroup doc. and 7199 Tips, Tricks, and Registry Hacks - 15-Sep-2003 05:30.22 * 15-Sep-2003 05:30.22. Please see the Microsoft Newsgroups page at http://communities.microsoft.com/newsgroups/default.asp Visit Windows & .NET Magazine's 7199 tips at http://www.jsiinc.com - press the "Tips & Tricks" button. Jerold Schulman Windows: General MVP JSI, Inc. http://www.jsiinc.com Tag: Help on copying Tag: 142985
  - 22
    - RegExp not working Below is a code to match Meta Tags. The pattern is found twice but I am not able to print the first match. The second match displays correctly. If I add a space before the first 'meta' keyword then it works. Can anyone spot a problem here? Any help would be appreciated. Thanks. Vilva ----------------------------------------------------------- <% Function ShowMetaTags(HTMLstring) Set re = New RegExp With re .Pattern = "<\s*META[^>]*>" .IgnoreCase = True .Global = True End With Set aMetaMatch = re.Execute(HTMLstring) Response.Write "Count: " & aMetaMatch.count Response.Write "<BR>" Response.Write "First Tag: " & aMetaMatch(0).Value & "----" & aMetaMatch(0).FirstIndex & "---" & aMetaMatch(0).length Response.Write "<BR>" Response.Write "Second Tag: " & aMetaMatch(1).Value & "----" & aMetaMatch(1).FirstIndex & "---" & aMetaMatch(1).length Set re = nothing End Function %> <% ShowMetatags "<meta FOO=""bar"" NAME =""DateCreated "" cONtenT=1999.11.24 >< META NAME = ""AuthorName"" CONTENT="" George Young"">" %> --------------------------------- Tag: Help on copying Tag: 142983
  - 23
    - run .vbs as a .exe? Hi, I am in this environment: WIN2K, SP3, with a Domain Controller. Currently, the executing of .vbs is controlled by setting Local Group Policy-User Configuration-System-Run only allowed Windows Application (with Apply Group Policy set) - wscript.exe I would like to know: a) Instead of placing the source-code in the server, can I create a .exe and place it in the server instead. If so, how can I do that? I would like to do this so as to control the access to the script. b) Instead of signing the .vbs script, is there other way to restrict access to executing of all .vbs script? I would like to allow executing of only certain .vbs script instead of open for all. Robin -- Posted via http://dbforums.com Tag: Help on copying Tag: 142982
  - 24
    - display text field at run time I want to display credit card fields when the user selects the option paid membership. If user selects the option free membership, then the credit card text field will disappear. Here's the code I did with JavaScript but didn't work. > <SCRIPT LANGUAGE="JavaScript"> > function generateCreditTextField() > { if (document.myform.membership.value == "1") > { alert('free'); > document.write(""); > } > else > { alert('paid'); > document.write("<P>Credit Card: <input type="text" name="credit")</P>"); > } > } > </SCRIPT> > > <form name="myform"> > <select name="membership" onchange="generateCreditTextField()"> > <option></option> > <option value="1">Free Membership</option> > <option value="2">Paid Membership</option> > </select> > </form> > > please advise! Thanks! > John > > Tag: Help on copying Tag: 142980
  - 25
    - security updates I installed security updates and now i cant run aspx pages on server. I get Server Application Unavailable The web application you are attempting to access on this web server is currently unavailable. Please hit the "Refresh" button in your web browser to retry your request. Administrator Note: An error message detailing the cause of this specific request failure can be found in the system event log of the web server. Please review this log entry to discover what caused this error to occur. can someone help??? thanks in advance Tag: Help on copying Tag: 142969
- Next
  - 1
    - reading from excel in vbscript I would like to read 5 different columns in an excel spreadsheet with vbscript. Can anyone please help me with a head start snippet. Thank you, Juan Tag: Help on copying Tag: 142968
  - 2
    - display text field dynamially I want to display credit card fields when the user selects the option paid membership. If user selects the option free membership, then the credit card text field will disappear. Here's the code I did with JavaScript but didn't work. <SCRIPT LANGUAGE="JavaScript"> function generateCreditTextField() { if (document.myform.membership.value == "1") { alert('free'); document.write(""); } else { alert('paid'); document.write("<P>Credit Card: <input type="text" name="credit")</P>"); } } </SCRIPT> <form name="myform"> <select name="membership" onchange="generateCreditTextField()"> <option></option> <option value="1">Free Membership</option> <option value="2">Paid Membership</option> </select> </form> please advise! Thanks! John Tag: Help on copying Tag: 142965
  - 3
    - Windows PE Wscript.shell run issues Hi, I have a RIS build which boots to windows PE, calls a HTA (to get build details) then based on those options, starts a 2003 or XP build. The problem i am having is with diskpart. When calling a vbs using WSHShell.run "Diskpart /s Z:\build\diskwork1.txt", 1, True The disk is partitioned and all is fine. When however calling this command from within the HTA, i get nothing. I would like to keep it within the one file if possible - anyone have any ideas? Tag: Help on copying Tag: 142962
  - 4
    - Script Question I have a situation where I need to deploy SP4 and MS03-026 & 039 to several workstations. In this particular environment, the company has not implemented AD. The only OU's present are those created by default during dcpromo. I've tried to convince them to implement AD but I may as well be talking to a wall. Also, I'm unable to use SMS, SUS (no good for SP4 and they won't consider it for hotfixes), or AD to deploy the service pack and hotfixes. Earlier today, I ran across KB 827227 http://support.microsoft.com/default.aspx?kbid=827227 . I believe it would be possible to modify this script to deploy SP4 prior to the hotfixes however, I'm not 100% certain how it would be accomplished and I've never used VBScript. Does anyone know how to modify this script to deploy SP4 first then the hotfixes or know of any other method I could use to deploy SP4 and the hotfixes rapidly? Tag: Help on copying Tag: 142946
  - 5
    - Convert WMI Date Excuse my ignorance but is there an easy way to convert the date returned by the CIM_Datafile class into a readable format, i.e.? objFile.LastAccessed returns 20030914074104.750000-420 Tag: Help on copying Tag: 142945
  - 6
    - Script question ? Hi, I'm thinking the problem here is that Documents and Settings contains spaces, does anyone have a fix for this. I'm sure it's simple I'm just new to scripting. XP Thanks strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colFolders = objWMIService.ExecQuery _ ("Select * from Win32_Directory where Name = 'C:\\Documents and Settings \Atl-2K\Favorites\'") For Each objFolder in colFolders errResults = objFolder.Delete Tag: Help on copying Tag: 142944
  - 7
    - DOS Hello I work with Focus at work under W98. Focus is a very old DOS database program. I have to do much typing there so I thought a small script with ' Sendkeys' could help me. But the Focus screen does not accept what I send. Is there a way around ? Many Thanks. A.Geeraert Tag: Help on copying Tag: 142941
  - 8
    - browser reload from external script Hello! does there exist a solution for my problem? Following situation: I start the internet explorer with a VBS script on a Win XP Machine with following code. The script is calles "start_ie.vbs" ######## Set wshell = CreateObject("Wscript.shell") wshell.run "iexplore.exe" ######## I execute the script and the browser window opens. Now is it possible to reload the browser by executing a second script for example called "reload.vbs" ?? I do not know how to obtain the object Id from the running browser instance. Pleas help me... Thanks a lot Georg Tag: Help on copying Tag: 142939
  - 9
    - Getting the output of a stored procedure in a VBScript I am running a stored procedure that needs parameters through a VBScript and I need to know to get the output from that procedure to a variable in the script. Here is how am I calling the stored procedure: Dim cnn Set cnn = CreateObject("ADODB.Connection") cnn.Open "Provider=SQLOLEDB;Data Source=myServer;Initial Catalog=myDB;Integrated Security=SSPI;Persist Security Info=False;" cnn.Execute "exec execute_job_with_return 'base' ,'00020' ,5 ,'ubi' ,'UC', 'loyalty' , 0, '000' , lty_rmmeltest ,'smart' ,'%DATA%\txn TEST.txt',' ' , 'Y' ,NULL" The stored procedure then returns an integer value (named "runid") which i need to use for further operations. Thanks in advance. Tag: Help on copying Tag: 142938
  - 10
    - script question I created a form to calculate the sum of 2 text fields with JavaScript, but it doesn't display the result after execute. here's the code, please advise! <HTML> <HEAD> <SCRIPT LANGUAGE="JavaScript"> function sum(x, y) { document.calc.result.value = x + y; } </SCRIPT> </HEAD> <BODY> <Form name="calc"> <input type="text" name="text1">+ <input type="text" name="text2"> <input type="submit" name="submit" value=" = " onClick="sum(text1.value,text2.value)"> <input type="text" name="result"> </form> </BODY> </HTML> Tag: Help on copying Tag: 142935
  - 11
    - Set the root element of xml by xmldom Hello, How can I set the root element of xml dom ? xmldoc = CreateObject("Microsoft.XMLDOM") ... and not how can I set the first (root) element ? Thanks :) Tag: Help on copying Tag: 142927
  - 12
    - Question about variables - newbie please be gentle I have not experience with VBScript, I am learning on the fly sorta. I am working on a project that I think is suited for VBscript. At work we have a series of files that are uploaded to various geographically located servers. The uploads are done on a daily basis however the file name changes everyday to reflect the current days date, e.g. this mornings was "sep13 report.xls". This needs to be done with around 40 files to three different network servers. I want to write a script to automate this process, where the user can input the appropriate dates and the script will find the local file (based on the inputted date) and transfer it to the remote drive. So far I have figured out how to define the variables (dim) and how to prompt for the user input (InputBox) - but when I go to use copyfile to try and tell the script to look for sep13 report.xls - I am not sure how to get it to use the variable (sep13) in the filename it is looking for? I hope this makes sense to you - it is as clear as I can explain it in newbie talk. Any suggestions regarding this problem specifically or the project in general would be greatly appreciated. Have a nice day! Tag: Help on copying Tag: 142925
  - 13
    - Make a status bar to a HTML application (HTA) Hello, How can I make a status bar to a HTML application window? I couldn't find such a property of the HTA:Application object. I would like to use a window.status = ... statement in a VB-script. JT -- Posted via http://dbforums.com Tag: Help on copying Tag: 142920
  - 14
    - How to write to hosts file Hello, From a jsp page running in IE 6 only browser how can I write an entry to the client machine hosts file. Client machine could be Win 2K and Win XP. an example entry in hosts file: SERVERIPADDRESS SERVERHOSTNAME Thank you in advance for your help. LCN -- Posted via http://dbforums.com Tag: Help on copying Tag: 142919
  - 15
    - mailing an Asp form with exchange Hope someone can help (I`m on page 1 of teach yourself VBScript). I am trying to create a form that I can email from a web server and exchange mail, I have only got so far in that evrything works in the To, From, CC, Subjct etc lines. What I have come completely stuck on is putting the form data into the textbody of the email. I can select one field from the form in iMsg.textbody but I do not have a clue how to include multiple fields. Any pointers appreciated, Cdonts doesnt seem to work as I am getting a permission error, the mail script below works fine with exchange. TIA John <%@ Language=VBScript %> <% submit = Request.Form.Item("B1") if submit = "Send" then Dim iMsg Set iMsg = CreateObject("CDO.Message") Dim iConf Set iConf = CreateObject("CDO.Configuration") Dim Flds Set Flds = iConf.Fields ' 3 means that you are asking mail to be sent using Exchange Server. Flds( "http://schemas.microsoft.com/cdo/configuration/sendusing") = 3 Flds("http://schemas.microsoft.com/cdo/configuration/user") = " " Flds("http://schemas.microsoft.com/cdo/configuration/password") = " " Flds.Update Set iMsg.Configuration = iConf iMsg.To = someone@host.co.uk iMsg.From = post@host.co.uk iMsg.CC = me@host.co.uk iMsg.Subject = "Open Day 21st October 2003 sent": & now() iMsg.TextBody = Request.Form.Item ("select") iMsg.Send end if %> <html> <head> <meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"> </head> <body bgcolor=green > <% if submit = "Send" then %><font color=white><b><u> Mail Sent</u></b></font> <% else%> <form action="SendMail.asp" method="post" name="Form" id="Form"> <P> <base target="_top"> <TABLE cellPadding=4 cellSpacing=0 class=Nav2> <tr> <TR> <TD vAlign=top><p> <LABEL><font color="red">Select</font> </LABEL> </p> <p> <LABEL><font color="#FF0000">Select2</font></LABEL> </p></TD> <TD> <p> <select name="select"> <option selected>Please Select <option>Test CDONTS <option>Test CDO Ex </select> </p> <P> <select name="select2"> <option selected>Please Select <option>One <option>Two <option>Three </select> <BR> </P></TD> </TR> </TABLE> <P> <INPUT name=B1 type=submit value="Send"></P> </form><%end if %> </body> </html> Tag: Help on copying Tag: 142918
  - 16
    - Monitoring Exchange 2000 performace Hi ! I need to monitor Microsoft Exchange 2000 1. Mail Queue length 2. Disk I/O Performance 3. CPU utilization and Memory utilization through vbscript How can i write query to WMI ? regards, Ram Tag: Help on copying Tag: 142915
  - 17
    - Documentation on the "DropDown" object Hi, I'm using the "DropDown" object based on it's usage in "Excel 2002 VBA Programmers Reference" page 208. The text states that this is a hidden member of the Excel object model. So can anyone point me to some *secret* documentation on it? I need to know how to remove items from the DropDown box. The text shows how to add, and just a couple of other properties/methods. I'd like to know more... Thank you, Robert Stober Tag: Help on copying Tag: 142910
  - 18
    - EnableDNS I am having trouble getting the EnableDNS method from Win32_NetworkAdapterConfiguration to work. This is what I am trying just to understand it. I get an invalid method at line 14 (EnableDns). This is a small part of a much bigger script. I need this to run on NT4 and Win2000. Thanks Dan set objWMIServices = GetObject("winmgmts:\\.\root\cimv2") set adapter = GetObject ("winmgmts:win32_NetworkAdapterConfiguration=11") dim DnsSvrs(2) dim DnsSfx(1) DnsHost="MyLaptop" DnsDom="MyPC.tst" DnsSvrs(0)="127.0.0.1" DnsSvrs(1)="127.0.0.2" DnsSvrs(2)="127.0.0.3" DnsSfx(0)="Mydomain.com" DnsSfx(1)="Mydomain2.com" x=adapter.enableDNS(DnsHost,DnsDom,DnsSvrs,DnsSfx) wscript.echo x Tag: Help on copying Tag: 142901
  - 19
    - Enumerating a multi-dimensional array Hi, I've built a multi-dimensional array from a table and would like to enumerate the whole thing, but I'm confused. Can anyone help me out? Thank you, Robert Stober Tag: Help on copying Tag: 142900
  - 20
    - change the value of a textarea from a script 30 years experience in the mainframe environment but do not know to much about HTML and VBScript. Using the following as an example, is it possible to change the value of the textarea field named "ans" by a script. Thanks, Dan <form name theform> <table cellpadding="10" border="0" width="50%"> <tr> <td align="center">Month: <select id="month" name="month" size="1"> <option value="1">January<option value="2">Febuary<option value="3">March <option value="4">April<option value="5">May<option value="6">June <option value="7">July<option value="8">August<option value="9">September <option value="10">October<option value="11">November<option value="12">December </select> <td align="center">Day: <select id="day" name="day"> <option selected>1<option>2<option>3<option>4<option>5<option>6<option>7<option>8 <option>9<option>10<option>11<option>12<option>13<option>14<option>15<option>16 <option>17<option>18<option>19<option>20<option>21<option>22<option>23<option>24 <option>25<option>26<option>27<option>28<option>29<option>30<option>31 </select> <td>Year: <select id="year" name="year"> <option selected>2003<option>2004<option>2005<option>2006<option>2007<option>2008 </select> </table> <p> <input type="button" value=" Do It " onClick=builddate> &nbsp ...and the date is: &nbsp <INPUT type="text" name="ans" size=10 readonly> </form> Tag: Help on copying Tag: 142898
  - 21
    - vbs to return SQL stored procedure info. I wanted to "bump" this so sorry for the repost. I still don't know what I'm doing... which means I have no idea what I'm doing wrong here. I have a stored proceudre that tells me that status of my databases. I can run it via query analizer and it runs great, however I have no idea how to identify this data when returning it so I can't reference it... If this makes any sense, please let me know. Thanks a mill, -Jess StrComputer = "R3328" Set fso = CreateObject("Scripting.FileSystemObject") Set WshShell = WScript.CreateObject("WScript.Shell") Set WshNetwork = WScript.CreateObject("WScript.Network") sqlServer = strComputer & "RCS0001\PRDRCS" sqlProvider = "SQLOLEDB" sqlUserName = "" sqlPassword = "" AppName = "JesseHarris" sSQL = "Provider=" & sqlProvider & ";Data Source=" & sqlServer & ";User Id=" & sqlUserName & ";Password=" & sqlPassword & ";" & "Application Name=" & AppName & ";" set cn = CreateObject("ADODB.Connection") cn.Open sSQL Set rs = CreateObject("ADODB.Recordset") sSQL = "exec sp_db_status" rs.Open sSQL,cn,1,1 wscript.echo rs.eof rs.Close set rs = nothing cn.Close set cn = nothing quit Tag: Help on copying Tag: 142897
  - 22
    - Adding machine to domain script Hello, Our users currently loging in to WINT4 domain, and we run various scripts to them with .bat file, is there a way to create a script so that when user logs on it will add machine automatically to new active directory domain and copy profile to new profile? Thank you, Eimis Tag: Help on copying Tag: 142896
  - 23
    - Date Function Return Values If i use the date function within a vbscript the value returned is the system date, but the function does not return the date the way that the date cmd returns it. Date function in VBscript: 9/10/2003 date command in command shell: 09/10/2003 I am going to use the value returned from the Date function to generate a filename in the form of yyyymmdd. Is there any way that I can force the Date function to return a two digit value for month and day, i.e. put the 0 (zero) in there? Thanks for any suggestion, Darren Currently I am just using an If to manipulate the string, but i was hoping for a option within the function to return the 2 digit values Tag: Help on copying Tag: 142892
  - 24
    - Enumerate OS versions Howdy- Is there a way using WSH to display (or write to log) the Operating System Versions of the Workstations in a domain? Not all of the PCs have WMI, (a good amount of NT WKS) so I think I'm stuck with WshShell.RegRead or something... I think I'm close, but I get stuck trying to read a text file for input (list of the PC names). Basically, I just want to list PC Name and OS, somehow. Thanks, Brian Tag: Help on copying Tag: 142887
  - 25
    - Script to send out MSBlaster and other vulnerabilities For the VBScript on Microsoft's website http://support.microsoft.com/default.aspx?kbid=827227 I have found the the script doesn't delete the Patchinst.exe file it creates on the target machine. If I try to install a different patch on a machine that this script was run on, it doesn't work. How would I connect to the machine and check to see if "Patchinst.exe" already exists on the target machine and if so, delete it? Thanks. Tag: Help on copying Tag: 142884

Hi all

I am trying to copy a file to %USERPROFILE%\start Menu\programs\startup

but the script cannot accept the path. Is there a way round this without
knowing the actual path??

Thanks

Top

Help on copying by Tom

Tom
Tue Sep 16 07:39:01 CDT 2003

With CreateObject("WScript.Shell")
sPath =.ExpandEnvironmentStrings("%UserProfile%" _
& "\Start Menu\Programs\Startup")
End with

WSH Documentaion at:

http://msdn.microsoft.com/library/en-
us/script56/html/wsoriWindowsScriptHost.asp

or download at:

http://www.microsoft.com/downloads/details.aspx?
FamilyId=01592C48-207D-4BE1-8A76-
1C4099D7BBB9&displaylang=en

The second one is very useful. Both URL's are single
lines that are wrapped in transit.

Tom Lavedas
===========

>-----Original Message-----
>Hi all
>
>I am trying to copy a file to %USERPROFILE%\start
Menu\programs\startup
>
>but the script cannot accept the path. Is there a way
round this without
>knowing the actual path??
>
>Thanks

>

Top

Re: Help on copying by Bill

Bill
Tue Sep 16 07:41:50 CDT 2003

Since %userprofile% is usually in the "\Documents and Settings" folder, =
you are probably running into problems with spaces in the path. If that =
is the case you need to wrap the path in double quotes.

--=20

Bill James
Microsoft Shell/UI

Win9x VBScript Utilities =BB www.billsway.com/vbspage/
Windows Tweaks & Tips =BB www.billsway.com/notes_public/

"Paul McShane" <peemickuk@hotmail.com> wrote in message =
news:O3kLzcCfDHA.3528@tk2msftngp13.phx.gbl...
> Hi all
>=20
> I am trying to copy a file to %USERPROFILE%\start =
Menu\programs\startup
>=20
> but the script cannot accept the path. Is there a way round this =
without
> knowing the actual path??
>=20
> Thanks
>=20
>

Top