prndata

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
 - Schema Property Does anyone know what the schema property for Password never Expires is on an Active DIrectory User? Bart Tag: prndata Tag: 166636
 - 2
 - vbscript or perl Dear all, I have to port a moderately complicated unix shell script written for Solaris to Windows. I've never done Windows scripting before. Should I (a) learn VBScript and implement it in that; (b) install Active Perl on the target Windows box and rewrite the script in perl (which I am familiar with). The script in question most does database stuff e.g. calls stored procs, parses text files then loads new records with bcp. Cheers, David Tag: prndata Tag: 166621
 - 3
 - padding a string with characters How do you pad a string variable with characters on one side or the other? Thanks! Tag: prndata Tag: 166619
 - 4
 - A good debug tool. Hoo WinTail v2.11 Hoo WinTail is a real-time file viewing Windows utility like the Unix tail -f utility. It can be used to view the end of a growing file. It is ideal for viewing application traces or server logs in real time, as they are generated. Quickly viewing the last part of a large file without the need to load the entire file. Hoo WinTail is a file viewer. It makes no changes to the file that is opened. It opens the file in read-only mode. As new lines are written to the file by another program (such as would happen with a log file, for example), Hoo WinTail reads the new lines and displays them. Hoo WinTail can read and display any text file. It cannot support .doc files, .xls files, or other proprietary formats. Hoo WinTail can capture and display OutputDebugString (Windows Debug API) and TRACE(MS Visual C++ Debug Function) output as well. PROGRAM FEATURES: ===================== * Setting highlight filters to highlight certain text. * With Refresh Rate can be customized. * With Searching for any text string, support search next and previous. * With the display font can be customized. * Buffer Size: Setting maximum display buffer size and retain line number when truncate content. * Both Unix and DOS/Windows text file formats support. * Indicates file size in window title bar. * Capture and display OutputDebugString (Windows Debug API) and TRACE (MS Visual C++ Debug Function). * With Unicode support. * Clear all showed content and reload the last part of file. * Editing showed content arbitrarily, but making no changes to the monitored file. * Drag and Drop support. * Filename may be specified on the command line or by browsing. * Maximum 10 recent files. * Uncluttered user interface. More detail: http://www.hootech.com/WinTail/ Download: http://www.hootech.com/WinTail/WinTail2Setup.zip Best Regards, James Tag: prndata Tag: 166618
 - 5
 - Automate Outlook Profile setup for new users via vbs?? the age old question... could someone enlighten me on how to setup for a new user (local/domain USER not admin) for Outlook 2000 and or 2003 through scripting, group policy, custom install wizard, yada yada yada. I am not going to buy anything. I'm using vbs for login scripts right now, but since 99% of users are domain users and not local admins of their pc's, i'm stuck (but i'm a novice too!) I started reading up on deploying or publishing outlook in AD, but i'm not to deep yet, so i'm not sure if that is what i need. any direction would be much appreciated.. except from sales people. Jason Tag: prndata Tag: 166614
 - 6
 - win32_tcpipprinterport Hi, A student has a bunch of HP network printers that got installed using default printer names. She wants to write a script that will correct them. Other references indicate that we should be able to use the win32_tcpipprinterport object to do this with a WMI script. However, some question arrises as to whether this will work with HP tcp/ip addresses due to the software used to configure the printers on the server. I'm convinced it should be a scriptable fix even though they'r running windows 2000 rather than server 2003. In testing, we run into two problems: 1. the win32_tcpipprinterport object isn't showing up on some servers even though they have tcp/ip ports employed. 2. on servers that do have the object showing up, it doesn't show TCP/IP port properties. Any suggestions or thought will be appreciated. J B. Fields -- J Burford Fields Wyoming wisdom: Good judgment comes from experience, and a lotta that comes from bad judgment. Tag: prndata Tag: 166603
 - 7
 - Check Boxs Hey im really sorry at posting such a n00b question, but quite simply i want to script a command button on a form in visual basic to run an external .exe program if a check box that is also on the form is checked. Any ideas for the scripting of this? Any help would be deeply appreciated! Yours, FingAZ Tag: prndata Tag: 166600
 - 8
 - reading registry hi all i am have problems reading and storing 26 dates in the registry. what i want to do is set a date value in the registry six months from the current date, but each morning i want to scan the registry for the values that do not match the value of formatDateTime(Date,2) so seentially, i need some help with reading 26 values in the registry, "Do i need a loop for this" or do need to check (via) hard code, the values ? thsanks Tag: prndata Tag: 166594
 - 9
 - Listing Computer Object's Attribute I am looking for a script that will display or extract a list of computer attributes such as Operating system, version, Name, Build no. in specific OU within my domain. Does anyone know how or show me where can I find it? Many thanks. Tag: prndata Tag: 166592
 - 10
 - route add -- a little bit urgent ;) -- Hi, I need to make statics routes on the computers and I'm looking for some way to elevate the priviligedges of my users when I'm running the netlogon BATCH process without using "RUNAS" command. I have tried with the OU in "computer configuration\ windows configuration \ command files (start/off)" and I don't know if I'm making something wrong; I put there a BATCH file (prueba.bat) and when I write on this file nothing happend. the command that I need to execute is very simple: route add xxx.xxx.xxx.xx mask xxx.xxx.xxx.x xxx.xxx.xxx.xxx Is a very simple "route add". I need urgent help please. Thanks in advance. Tag: prndata Tag: 166583
 - 11
 - 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: prndata Tag: 166582
 - 12
 - 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: prndata Tag: 166581
 - 13
 - 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: prndata Tag: 166580
 - 14
 - 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: prndata Tag: 166577
 - 15
 - 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: prndata Tag: 166575
 - 16
 - 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: prndata Tag: 166573
 - 17
 - 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: prndata Tag: 166570
 - 18
 - 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: prndata Tag: 166564
 - 19
 - GPO's Does anyone have a VBS script that searches GPO's for a specific security group and then deletes that group? Tag: prndata Tag: 166563
 - 20
 - 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: prndata Tag: 166560
 - 21
 - 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: prndata Tag: 166556
 - 22
 - 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: prndata Tag: 166549
 - 23
 - 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: prndata Tag: 166545
 - 24
 - 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: prndata Tag: 166543
 - 25
 - 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: prndata Tag: 166530
- Next
 - 1
 - 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: prndata Tag: 166528
 - 2
 - 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: prndata Tag: 166522
 - 3
 - 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: prndata Tag: 166519
 - 4
 - 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: prndata Tag: 166518
 - 5
 - 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: prndata Tag: 166517
 - 6
 - 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: prndata Tag: 166515
 - 7
 - 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: prndata Tag: 166511
 - 8
 - 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: prndata Tag: 166506
 - 9
 - 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: prndata Tag: 166504
 - 10
 - 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: prndata Tag: 166501
 - 11
 - 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: prndata Tag: 166496
 - 12
 - 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: prndata Tag: 166494
 - 13
 - 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: prndata Tag: 166493
 - 14
 - 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: prndata Tag: 166489
 - 15
 - 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: prndata Tag: 166481
 - 16
 - 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: prndata Tag: 166480
 - 17
 - 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: prndata Tag: 166477
 - 18
 - 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: prndata Tag: 166474
 - 19
 - 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: prndata Tag: 166466
 - 20
 - 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: prndata Tag: 166462
 - 21
 - 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: prndata Tag: 166458
 - 22
 - 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: prndata Tag: 166442
 - 23
 - User Profiles Does anyone know a quick way to list all the users with profiles on the local machine? Tag: prndata Tag: 166441
 - 24
 - 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: prndata Tag: 166439
 - 25
 - 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: prndata Tag: 166438

Anybody have any examples of prndata.vbs queries that show the actual format
for querying related registry keys?

Is there a problem if a key has a "/" in its name?

--
J Burford Fields
Wyoming wisdom: Good judgment comes from experience, and a lotta that comes
from bad judgment.

Top