route add -- a little bit urgent ;) --

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
 - 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: route add -- a little bit urgent ;) -- Tag: 166582
 - 2
 - 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: route add -- a little bit urgent ;) -- Tag: 166581
 - 3
 - 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: route add -- a little bit urgent ;) -- Tag: 166580
 - 4
 - 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: route add -- a little bit urgent ;) -- Tag: 166577
 - 5
 - 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: route add -- a little bit urgent ;) -- Tag: 166575
 - 6
 - 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: route add -- a little bit urgent ;) -- Tag: 166573
 - 7
 - 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: route add -- a little bit urgent ;) -- Tag: 166570
 - 8
 - 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: route add -- a little bit urgent ;) -- Tag: 166564
 - 9
 - GPO's Does anyone have a VBS script that searches GPO's for a specific security group and then deletes that group? Tag: route add -- a little bit urgent ;) -- Tag: 166563
 - 10
 - 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: route add -- a little bit urgent ;) -- Tag: 166560
 - 11
 - 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: route add -- a little bit urgent ;) -- Tag: 166556
 - 12
 - 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: route add -- a little bit urgent ;) -- Tag: 166549
 - 13
 - 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: route add -- a little bit urgent ;) -- Tag: 166545
 - 14
 - 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: route add -- a little bit urgent ;) -- Tag: 166543
 - 15
 - 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: route add -- a little bit urgent ;) -- Tag: 166530
 - 16
 - 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: route add -- a little bit urgent ;) -- Tag: 166528
 - 17
 - 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: route add -- a little bit urgent ;) -- Tag: 166522
 - 18
 - 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: route add -- a little bit urgent ;) -- Tag: 166519
 - 19
 - 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: route add -- a little bit urgent ;) -- Tag: 166518
 - 20
 - 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: route add -- a little bit urgent ;) -- Tag: 166517
 - 21
 - 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: route add -- a little bit urgent ;) -- Tag: 166515
 - 22
 - 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: route add -- a little bit urgent ;) -- Tag: 166511
 - 23
 - Re: Help Finding a Good eCommerce and Project Book <HTML> <HEAD> <META NAME="GENERATOR" Content="Microsoft DHTML Editing Control"> <TITLE></TITLE> </HEAD> <BODY> Hi Tom!   <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p> I hope this makes it to you.  I will send a few times to be sure you get it!  <o:p></o:p> The URL for the book you are looking for is below.  Yes, it?s a good resource, and it?s cheap!  We use it for our Entrepreneur clientele projects, and it has saved us a lot of time, and I?m sure money too!  <o:p></o:p> Best regards, Randy  <o:p></o:p> <A href="http://www.wiremarkltd.com/gybol/book.html">http://www.wiremarkltd.com/gybol/book.html</A>  <o:p></o:p>  <o:p></o: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"> <o:p></o: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">----- Original Message ----- <o:p></o: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">From: Tom Jeffers <o:p></o: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">November 29, 2004 3:37 PM<o:p></o: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">Subject: Help Finding a Good eCommerce and Project Book<o:p></o:p></DIV>  <o:p></o:p> Hello,  <o:p></o:p> Can anyone tell me where I can find the eBook Getting Your Business Online?  If I remember correctly it was compiled by individuals working for a consulting company, but I do not recall which one.  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.  The book was an invaluable project tool, was very easy to read and understand, and covered just about everything you could imagine!  I?m sure someone out there has seen or heard of it.  I would like to review this book before I plan to go online with a business I am starting.   <o:p></o:p> Any help would be greatly appreciated!  <o:p></o:p> Thanks! Tom   </BODY> </HTML> Tag: route add -- a little bit urgent ;) -- Tag: 166506
 - 24
 - 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: route add -- a little bit urgent ;) -- Tag: 166504
 - 25
 - Creating a log file of a vbscript's activity Hi guys, Id like to be able to generate a log file that pumps out all the steps that a vbscript does. Similar to using a batch file >> log.txt And all errors. Can someone steer me in the right direction? Thank you. Simon Tag: route add -- a little bit urgent ;) -- Tag: 166501
- Next
 - 1
 - Script Encoder Error: "Expected Statement" SCENARIO: I have a very simple application that queries a database. All my web pages are .ASP files. I was able to successfully encode all the files. Each file starts with the <% @LANGUAGE="VBScript"%> statement. WHEN I RUN THE APPLICATION: I get the following error: "Expected Statement" line 2. Line2 happens to be the first statement following the LANGUAGE statement note above. So I tried removing this line of code and re-encoding....SAME problem. WHO HAS A "REAL" ANSWER? I've seen posts in here talking about "VBS" and "VBE" files and statements such as <script language="vbscript" scr="file1.vbs">......but these make no sense to me? I saw a posting from a Microsoft fellow that indicated that all encoded files had to be "renamed" to "vbe" file extensions. Well guess what? That doesn't work either. My host (localhost on a Win2K SP4) doesn't interpret the .VBE file and instead prompts me with a "download" dialog. HELP: What gives? My code is fine. The files are encoded correctly (from what I can see). It just seems that the host can't interpret the encoded files now. ????????????????????? Tag: route add -- a little bit urgent ;) -- Tag: 166496
 - 2
 - Sample to check share, set up share Hi, I am not familiar with much of WSH, and would like to see a sample script or scripts that: 1) Checks to see if a given network share exists 2) Delete a network share 3) Create a network share 4) Move files to the recycle bin (as opposed to deleting them) I am trying to use WshShell.Exec with the DOS net share command but the correct syntax and error handling eludes me. Are there any other objects I could use that would make this task easier? For example, I have been able to find and use SQLDMO objects to do things like backing up and restoring SQL Server databases. I would appreciate any pointers to useful samples or books. Thanks in advance. Chris Hough Tag: route add -- a little bit urgent ;) -- Tag: 166494
 - 3
 - true false in quotes? Hi, Are there any rules for using or not using quotes around true or false. Witness the following: (Hold the alt key and click the document) <html> <head> <script language=vbs defer> sub document_onclick() if d1.contentEditable=true then 'doesn't work msgbox "d1.contentEditable=true" else msgbox d1.contentEditable=true end if if d1.contentEditable="true" then 'works msgbox "d1.contentEditable=""true"" " else msgbox d1.contentEditable="true" end if if window.event.altKey=true then 'works msgbox "window.event.altKey=true" else msgbox window.event.altKey=true end if if window.event.altKey="true" then 'doesn't work msgbox "window.event.altKey=""true"" " else msgbox window.event.altKey="true" end if end sub </script> </head> <body> <div id=d1 contentEditable=true> </div> </body> </html> Tag: route add -- a little bit urgent ;) -- Tag: 166493
 - 4
 - WMI Survey Folks, For those of you using WMI today or just knowing a bit about it, please participate to the survey and spread the word about it! Survey life link is at: http://support.microsoft.com/common/survey.aspx?scid=sw;en;1236&p0=&p1=&p2=&p3=&p4= As you may know, this survey is very critical for Microsoft to correctly prioritize new features, updates, etc. Please participate and spread the word ! Many Thanks. Have a great day! Alain LISSOIR -------------------------------------------------------------------------------- Alain.Lissoir@LissWare.Net Home Page: http://www.LissWare.Net Tag: route add -- a little bit urgent ;) -- Tag: 166489
 - 5
 - Open Files hi, i need to know who is connected to some file on my server, i try to make this but i can't; i'm wait for your help thank Tag: route add -- a little bit urgent ;) -- Tag: 166481
 - 6
 - ADODB.Recordset: Operation is not allowed when the object is closed Hi there I get the above message when trying to write to a SQL 2000 database. Can anyone perhpas shed some light on this for me? In theory I am tryng to create a generic subroutine which I can simply pass my INSERT/UPDATE/DELETE statements to, and then have it executed. The following subroutine gets called for each server that I am running through. The error above is returned on the line "objRecordSet2.Close" My code excerpt is as follows: Sub AccessDB() ' Set the database connection information sServer = "test" sLogin = "logon" sPwd = "pwd" ' Create the ADO Connection and Recordset objects. Set objConnection2 = CreateObject( "ADODB.Connection" ) Set objRecordSet2 = CreateObject( "ADODB.Recordset" ) ' Set the connection string, open the connection and execute the statement objConnection2.ConnectionString = "PROVIDER=SQLOLEDB" & _ ";SERVER=" & sServer & _ ";UID=" & sLogin & _ ";PWD=" & sPwd & _ ";DATABASE=ServerSupport" WScript.Echo & SQLString objConnection2.open objRecordSet2.Open SQLString, objConnection2 objRecordSet2.Close objConnection2.Close End Sub Tag: route add -- a little bit urgent ;) -- Tag: 166480
 - 7
 - UDL File Hi All. I have a very basic doubt. How, in the name of GOD, I create a UDL file that works, using vbScript?! I've been trying to accomplish that usign FileSystemObject with no success... Thanks in advance!! Rodolfo Sao Paulo - BR Tag: route add -- a little bit urgent ;) -- Tag: 166477
 - 8
 - changing existing local user flag "never expires" Hello I'm searching for a usable script to change the flag "password never expires" on two local users. No domain, no OU, or so - simple local accounts. System is Windows XP Prof SP2 I found two scripts - no one seems to work for me. Script 1: Set objUser = GetObject("WinNT://image/trulli") objUserFlags = objUser.Get("UserFlags") objPasswordExpirationFlag = objUserFlags OR ADS_UF_DONT_EXPIRE_PASSWD objUser.Put "userFlags", objPasswordExpirationFlag objUser.SetInfo Script 2: Const ADS_UF_DONT_EXPIRE_PASSWD = &H10000 Set objUser = GetObject("WinNT://image/trulli,user") lngFlags = objUser.Get("userFlags") If (lngFlags And ADS_UF_DONT_EXPIRE_PASSWD) <> 0 Then lngFlags = lngFlags Xor ADS_UF_DONT_EXPIRE_PASSWD objUser.Put "userFlags", lngFlags objUser.SetInfo End If Both scripts runs on doubleclick without error, but the flag seems not been set. System/User/Properties.... is the flag unchecked after the scripts. What can i do? Greetings Chris Tag: route add -- a little bit urgent ;) -- Tag: 166474
 - 9
 - If Not Debug Then Hi, I am trying to use 'If Not' condition when the variable = 0. Debug = 0 If Not Debug Then Wscript.echo "hi" End If In this we VBS will step into the condition. Is there a way like in 'c' language to use if(!Debug) ? Tag: route add -- a little bit urgent ;) -- Tag: 166466
 - 10
 - Windows Image Acquisition (WIA) Automation Resources? Hi, Does anyone know of any good resources (books, websites other than MSDN, or newsgroups) for Windows Image Acquisition (WIA) Automation? I'm having trouble getting it working, and the info on MSDN isn't working for me. Thank you, Robert Tag: route add -- a little bit urgent ;) -- Tag: 166462
 - 11
 - How can I get computer name Hi there Does anyone knows how can I get the computer name in a workstation domain where there is no login at the server and then pick up all the computers name's one by one and create a directory in a shared directory at the server with the same the of the clients computer's?... I hope someone could help me out with a script that have already made or give me some tips. Thanks Nuno Tag: route add -- a little bit urgent ;) -- Tag: 166458
 - 12
 - ASP, looping, and stored procedures.... error '800a0bb9' ... Hi all, thanks in advance. Ok, heres the story. What is happening...... -------------------------------- I've got an ASP page that loops. It loops in order to get data in different, sequential date ranges. I.E. from 9/1/2000 - 10/1/2000 then 10/1/2000 - 11/1/2000 etc etc etc. It calls SPs using the 2 dates and an integer used for companyid reference. Let's just do this for 2 SP's (there are like 6 on the page.) One SP has 3 params, one has only 2. Now, the first iteration of the loop, it works. (because I'm response.writiting out the dates it's using to verify they are ok. The second time through I get the following error when I try to execute the following ASP: Set rstStoredProc = cmdStoredProc.Execute(, Array(GroupChoice, fromdate, todate)) ______________________________________________ ADODB.Command error '800a0bb9' Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another. _______________________________________________ What I need to do......... -------------------- In the loop, I am trying to reuse my command/connection objects instead of reinstantiating them for each iteration of the loop. ***Currently, it must use ODBC not OLEDB so keep that in mind.*** Here's the code for the SP's -------------------- CREATE Procedure proc_getPageHits ( @GroupID int, @FromDate datetime, @ToDate datetime ) As SELECT sum(counter) as hitcount FROM tblTracking WHERE CreateUserID in (select UserID from tblUser where GroupID= @GroupID) and (CreateDate between @FromDate and @ToDate) GO CREATE Procedure proc_getUserCount ( @GroupID int, @ToDate datetime ) As SELECT count(UserID) as usercount FROM tblUser WHERE (GroupID = @GroupID) and (CreateDate < @ToDate) GO Here's the ASP ---------------------------------------------- Set cmdStoredProc = Server.CreateObject("ADODB.Command") cmdStoredProc.ActiveConnection = dbConn do while DateCompare(currentsearchdate,todaysquarterend) = "smaller" cmdStoredProc.CommandText = "Proc_getUserCount" cmdStoredProc.CommandType = adCmdStoredProc Set rstStoredProc = cmdStoredProc.Execute(, Array(GroupChoice, todate)) cmdStoredProc.CommandText = "Proc_getPageHits" cmdStoredProc.CommandType = adCmdStoredProc Set rstStoredProc2 = cmdStoredProc.Execute(, Array(GroupChoice, fromdate, todate)) '(**THIS IS WHERE IT ERRORS**) loop ---------------------------------------------- Why does it error on the SECOND procedure of the SECOND iteration of the loop? It makes it past the first loop ok. Then it makes it past the first SP of the second loop but errors in the second SP....??... The dates are verified correct and in format.... so what the heck is the prob? If I re-create the command object each iteration (i.e. put the Set cmdStoredProc = Server.CreateObject("ADODB.Command") line inside the loop) it works fine. but it's so much slower. The results of the page are coming back in 13seconds. (there's alot more calls and alot more stuff going on, but these procedures should pick it up a bit. Also, if you have any suggestions on the SQL select statements, feel free to enlighten me. I am using the 'IN' method whereas some people have told me of the 'where exists' SQL method. I have not received any examples though. Thanks again in advance. -Beau www.worlddoc.com Tag: route add -- a little bit urgent ;) -- Tag: 166442
 - 13
 - User Profiles Does anyone know a quick way to list all the users with profiles on the local machine? Tag: route add -- a little bit urgent ;) -- Tag: 166441
 - 14
 - Outlook Scripting We have recently moved our internet email from an SMTP server to our exchange server. Now we have the task of removing the service from every user's profile. Is there a way to do this using some form of scripting? We are already running many scripts here and I would love to write one to do this. Touching each individual machine is not something I would prefer to do. Thanks in advance for your assistance. Tag: route add -- a little bit urgent ;) -- Tag: 166439
 - 15
 - how to bypass a known-bad SSL certificate I'm writing a VBScript to download some content from a number of internal webservers. I'm downloading both secure (https) and non-secure (http) content. One of these webservers (a test machine) has a number of problems with its SSL certificate, not the least of which is that the certificate has expired. Every time my script tries to download from the webserver with the bad SSL certificate, Windows helpfully gives me a warning dialog that I must click through before the script can continue. Is there any way to avoid this warning for a specific certificate and/or webserver? I'm aware that the certificate has issues, but it won't be replaced and/or renewed any time soon (largely because it's on a test machine), so how can I work around it? I have already tried: * adding the site to Internet Explorer's "Trusted Sites" (didn't help) * changing the system date to a period before the certificate expired when accessing the problem webserver, then changing it back afterward (still saw the warning dialog, because of another problem with the certificate) I am using WSH 5.6 on WinXP SP2, with MSXML 4.0 SP2. Code follows: Sub CheckLink(strURL, strOutput) Dim objHTTP, objStream, tStart, tElapsed Set objHTTP = WScript.CreateObject("MSXML2.XMLhttp.4.0") objHTTP.Open "HEAD", strURL, False objHTTP.Send WScript.Echo "Headers from " & strURL WScript.Echo objHTTP.getAllResponseHeaders WScript.Echo objHTTP.Open "GET", strURL, False objHTTP.Send tStart = timer() Set objStream = CreateObject("ADODB.Stream") objStream.Type = adTypeBinary objStream.Open objStream.Write objHTTP.ResponseBody objStream.SaveToFile strOutput, adSaveCreateOverWrite Set objHTTP = Nothing Set objStream = Nothing tElapsed = timer() - tStart WScript.Echo "Saved: " & strURL & vbCRLF & "To: " & strOutput & vbCRLF & "Time: " & tElapsed & " seconds..." & vbCRLF End Sub Any assistance would be greatly appreciated! Rob Shaw-Fuller robshawfuller@hotmail.com Tag: route add -- a little bit urgent ;) -- Tag: 166438
 - 16
 - Check if connected using Terminal Services Hi, I would like to create a script which is able to check if it is being run in an terminal service session. It should only be allowed to run locally and not remotely. Anyone any ideas? Many thanks, Jo Tag: route add -- a little bit urgent ;) -- Tag: 166437
 - 17
 - get File from "C:\" Hi@all i use the Function [code] set oShell = CreateObject("Shell.Application") set oFolder = oShell.BrowseForFolder(0, "File load", 16384,rootdir) [/code] on a HTML Page and if i try to get a file from "c:\" or "d:\" (no subfolders), i get a error. What can i do, ca i use a other function to get the file or ???, thx for help, cya Thommy (sorry my english is not the best) Tag: route add -- a little bit urgent ;) -- Tag: 166432
 - 18
 - list member of local admin group and save results to a text file Anyone have a script that will list out members of local admin groups to a file? Tag: route add -- a little bit urgent ;) -- Tag: 166423
 - 19
 - formating a date string in vbscript how can I get a date in the following format dd-mmm-yyyy ie 01-APR-1999 in visual basic I can use the formatdate function and the formatting is flexible enough to create this string. In vbscript the functionality seems more limited. Is there a simple way to do this? thank you for your help cheers john Tag: route add -- a little bit urgent ;) -- Tag: 166422
 - 20
 - is it possible to lock desktop (like you can from task manager) with vbscript? I bet it is and I have done a search but found nothing. Anyone do this? Seems like I saw a script a long time ago to do this. I just want to duplicate the functionality of [ctrl-alt-del/task man/lock workstation] and I am not looking to write a whole passworded screen saver app or anything. Thanks all! Happy Turkey day! Tag: route add -- a little bit urgent ;) -- Tag: 166419
 - 21
 - Return code=0 even if runtime error The code: File.Copy(FichierCible) Produce this error: C:\win32app\exploit\HFTrader-PDL\HFTPDL.vbs(89, 4) Microsoft VBScript runtime error: Path not found But the return code of the script is 0. I can handle this specific error with the "on error" clause but how can I do to exit with a return code <> 0 when i have an unhandled error? Tag: route add -- a little bit urgent ;) -- Tag: 166410
 - 22
 - Executing a batch file only if the laptop is located on a particular subnet. Hi guys, Hope you can help. Requirement/s: - Back up a folder on a laptop daily to a network location. - Only run the backup task IF the user is located on subnet 10.60.10.x, Id like the script to be able to check for a network connection, and if none, to abort the running of the backup. - System in question is a laptop that gets a DHCP address. I can generate the backup script, but what Id like help si the following: 1. How to code the script so that it only runs IF the laptop is given a DHCP address of 10.60.10.x and not another DHCP address, meaning it is on a different subnet 2. If the user is not connected to the LAN, and the task runs, to not run the script at all. That is, Id like the script to be able to check for a network connection, and if none, to abort the running of the backup. Any help would be greatly appreciated. Thank you.. Simon Tag: route add -- a little bit urgent ;) -- Tag: 166407
 - 23
 - Getting multiple selected items from ListView Hi, I'm facing a problem, in multiselect listview control I'm not able to get all the selected items in it. Please let me know how can I do it using VBScript. Thanks. Tag: route add -- a little bit urgent ;) -- Tag: 166406
 - 24
 - Creating share on Home-directory : fails on workstation ... works on server ... Hi all, I'm writing a GUI-application whixh is in fact the program which 'replaces' the User Manager in our shops. So, It works almost ... just a last 'problem'. In fact, when creating a user, I create also the Home-directory and a share on the folder (all created on the server). The application runs as well on the server as on the workstations. We work with Server 2003 / XP. I can create the home-directory and share when the application runs on the server. But when it runs on the WORKSTATIONS, I CAN'T create the SHARE. An error does always occur ! Does anyone has an idea why it doesn't work ? I'm looking for a 'script'-solution : I mean, I do not want to use some 'external' EXE's like RMTSHARE.EXE (if possible). Here's the code : For the folder : On Error GoTo ERROR_HANDLING Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.CreateFolder(as_folder) 'UNC-name like : '\\S099C01\Home$\test001' For the share : On Error GoTo ERROR_HANDLING Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & as_server & "\root\cimv2") Set objNewShare = objWMIService.Get("Win32_Share") nReturn = objNewShare.Create(as_directory, as_sharename, FILE_SHARE, Null, as_comment) 'with 'as_server' is the servername : ex. : 'S0999C01' ' 'as_directory' is the LOCAL path on the server : ex. : 'U:\Home\test001' If nReturn <> 0 Then Select Case nReturn ... End Select Else End If Thanks, Marc. Tag: route add -- a little bit urgent ;) -- Tag: 166404
 - 25
 - website hosting Here is the link to the web hosting company that I use for my 3 sites. http://frontpage-web-hosting.org/ Tag: route add -- a little bit urgent ;) -- Tag: 166403

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.

Top

Re: route add -- a little bit urgent ;) -- by Clay

Clay
Thu Dec 02 20:39:42 CST 2004

On Thu, 2 Dec 2004 18:33:31 +0100, "Gregorio Aranda"
<nospam@nospam.com> wrote:

>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.

Are these XP or Win2K machines on Active Directory? If so you can use
Startup Scripts in Group Policy which do run with greater access?

If they're not on AD then you cold push to the local Startup scripts.

Clay Calvert
CCalvert@Wanguru.com
Replace "W" with "L"

Top