RegEx Part 2

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
    - MI5 Persecution: A doubting Thomas is heard 9/5/95 (1189) From: pao1@ukc.ac.uk (P.A.Orrock) Newsgroups: uk.misc Subject: Re: BBC's Hidden Shame Reply-To: pao1@ukc.ac.uk (P.A.Orrock) Date: Tue May 9 05:54:20 1995 >have laws that protect the individual from harassement - >you can't just threaten people willy nilly. There are laws >against that. And if someone lies about you in the press >or tv then you have recourse to libel/slander etc. laws. Yup, agreed >True, Britain has no 'privacy' laws as such, but isn't that >a good thing? As of this moment, the govt. are considering >a privacy law, but it is unlikely to succeed. Why? Because any >such law would benefit the priviledged and those in power. >Privacy laws, while supposedly protecting the individual, help >those in power hide their mistakes/scandals. They stop the press >etc. investigating. Privacy laws are undemocratic - they prevent >the people from keeping an eye on govt. Agreed again. >Douglas. I am slightly confused here as to who is writing what. this just seems to be an amalgam of posts and replies posted to here to keep the thread going. >Confession time - the victim is/was me (except my name isn't >Corley, but that's irrelevant). What happened was not threats; >just invasion of privacy, in a partiicularly flagrant and >shocking way, in a way which most people would consider to >constitute harassment. >You know there's a particular category of person with mental >illness to whom TV and radio "talk", ie they feel the broadcast >is directed at them in particular? This happpened to me, You mean the category where they think that everyone is after them ? that one ? So lets get this straight you know you are paranoid and you think that they are out to get you ? Uh huh, try putting the two together and see what you come up with. >quite some time ago in the UK (I'm originally from London >so I've seen plenty of British media print and other). >They invaded my home with their bugs, they repeated what I >was saying in the privacy of my home, and they laughed that it >was "so funny", that I was impotent and could not even communicate >what was going on. Who did this? Our friends on BBC television, >our friends in ITN, last but not least our friends in Capital >Radio in London and on Radio 1. Oh yeah, I can see it now. All of them banding together, in a united effort against one man. So ITN, the BBC, and Capital all decide to sit round the table and they come up with idea of breaking into someones house, putting bugs everywhere, listening in to his conversation, and shoving it out on the news everyday. This someone has nothing to do with politics, or business, or entertainment, just an ordinary Joe Bloggs who seems to be extremely paranoid. Have some sense, grow up and smell reality. What you are talking about would take loads of planning, tens of thousands of pounds and lots of people involved in the planning, execution and maintenance of it. You must have a very high opinion of yourself to think you are worth it. >How did they do this? I'll give you an example. About a year ago, >I was listening to Chris Tarrant (Capital Radio DJ among other >pursuits) on his radio morning show, when he said, talking about >someone he didn't identify, "you know this bloke? he says we're >trying to kill him. We should be done for attempted manslaughter" >which mirrored something I had said a day or two before >(I'm not paranoid, honest!). Now that got broadcast to the whole >of London - if any recordings are kept of the shows then it'll be >there. Of course you are not paranoid, just slightly mad. Did you ever look for the bugs in your house ? If not, why not ? I mean if I thought that was happening to me, I'd search the place from top to bottom, I mean I live there I would know if anything was out of place. If I was really paranoid, whoops I mean suspicious, I would call in one of those bug detection teams which have those machines that pick up the transmitted radio waves. This reminds me of BUGS, that new programme on BBC1 on saturdays which is all about this kind of stuff, but, shown as a drama / thriller. I suppose thats based on you as well is it ? >is that there is a conspiracy in Britain, that it encompasses the >broadcast media, and there is no way of breaking the conspiracy. >The people who are involved in it will not open up. What a load of jolly hollyhocks, I would say something else but, apparently students are not allowed to swear on newsgroups in case it damages the reputation of the university or some such jolly hollyhocks. This guy is extremely paranoid to suggest that the entire British media is after him in such a big way. He gives no real reason as to why they are after him, just that he suffers/suffered from a slight mental disorder, could it be paranoia perhaps ?? No surely not. I put it to the house that he has never recovered from this mental disorder, lets come out with it and call it paranoia, and thinks everyone is after him. Remember just because you aren't paranoid, doesn't mean they aren't after you. This guy has a serious problem to suggest that the media would go to such lengths just to single out and ridicule one person. I mean apart from anything else, we ( the listening masses) wouldn't be interested unless it concerned the royal family, politicians or showbiz personalities. e.g. the camillagate tapes. I would think that almost everyone, no matter how much they went on about infringements of privacy read the transcripts with interest. I really don't think that Joe Bloggs ordinary guy or paranoid nutter would have the same appeal. Well actually I dunno. :) Regards, Paul. -- Paul Orrock, Websurfer wannabe, http://www.idiscover.co.uk/paul/home.html PC Consultant and HTML freelance Writer, http://www.idiscover.co.uk/paul/ =========================================================================== Diplomacy is the art of saying "nice doggy" until you can find a rock. 1189 -- Posted via a free Usenet account from http://www.teranews.com Tag: RegEx Part 2 Tag: 201714
  - 2
    - Outlook Public Calenders Any ideas ... I'm trying to write a script that will sync any data in a public calendar to a personal calendar. Exchange 2003 / Outlook 2003 -- Kevin Callanan MSCA 2003, A+, Network+ www.weblabtechs.com Please let us know if this response was helpful... Tag: RegEx Part 2 Tag: 201708
  - 3
    - MI5 Persecution: Intelligence agency sources on the Web (1189) Intelligence agency sources on the Web http://intelweb.janes.com/ Intelligence Watch Report covers public and private intelligence agencies around the world. kim-spy http://www.kimsoft.com/kim-spy.htm The Korea WebWeekly kim-spy Intelligence and Counter-Intelligence link page. http://www.lobster-magazine.co.uk/ Lobster Journal publishes research on the intelligence community. http://cryptome.org/ Cryptome is an online source of intelligence related material. http://www.mi5.gov.uk/ MI5 has a website, too, but you should prepare yourself for some serious "alternative reality" if you plan to visit it. 1189 -- Posted via a free Usenet account from http://www.teranews.com Tag: RegEx Part 2 Tag: 201707
  - 4
    - number of logon users per domain controller per day Hi , I am trying to find the number of users logging on to either each domain controller or per domain. I am not sure how domain controller keeps track of logon users. I would need to generate a report that shows how many users are logging on to domain per day OR how many users logging on to each DC per day. I will appreciate if you can help me in finding. If anything available in MOM 2005 then it would be very helpful Thanks Saeed A Tag: RegEx Part 2 Tag: 201705
  - 5
    - Reset AD property to null How can I reset an AD property to null, like the comment on a Computer in AD? Tag: RegEx Part 2 Tag: 201700
  - 6
    - Return all users except built-in How can I return a list of AD users, omitting the built-in users? Tag: RegEx Part 2 Tag: 201699
  - 7
    - RegExp I have what seems to be a simple Expression but for the life of me I can't get it to work: What I want to do is replace the information between tags with vbCrLf: This: ... Rule>" jhsadkjsk asjlksd lkjlsadj "<Rule Id ... With This: ... Rule> <Rule Id ... Here is the code: Set objRegExp = New RegExp objRegExp.IgnoreCase = True objRegExp.Global = True objRegExp.Pattern = "[Rule>.<Rule Id]" strNewText = objRegExp.Replace(strNewText, "Rule>" & vbCrLf &"<Rule Id") Set objRegExp = Nothing Thank you in advance for your help! Tag: RegEx Part 2 Tag: 201686
  - 8
    - Win32_NTEventlogFile Hi All Not sure if anyone can help. I am running the query "select * from Win32_NTEventlogFile" on several servers and desktops with varying results. In addition to the standard logs SYSTEM, APPLICATION and SECURITY I have another log "MYLOG" that is created and appended to by several in house applications. Unusually, if I run the above query on an Server 2003 without a SP1 I do not get the instance of my own log file "MYLOG" returned. If I run the query on a Server 2003 with SP1 then I do. I also seem to be unable to find the instance on any XP SP2 machines. Furthermore, to add to the confusion the Win32_NTLogEvent table does contain events for all 4 logs including my inhouse eventlog "MYLOG". Does anyone have any ideas on what may be going wrong? I would like to be able to use the ClearEventlog method on my Win32_NTEventlogFile instance. Tag: RegEx Part 2 Tag: 201685
  - 9
    - Delete Rows In Excel, I need a macro that will delete an entire row based on a name entered into an input box that would match a worksheet with that name in column "A". Thanks, Bernie Tag: RegEx Part 2 Tag: 201682
  - 10
    - Copy random files from one folder to another Hi everyone, I'm trying to create a script that gives the user the option to select a source folder and a destination folder. What I want to do is: - delete all files in destination folder - randomly, copy files from the source folder to the destination folder, until destination folder is full But I'm having trouble with the second part, since I don't know how to use the Rnd function to randomly select files in the source folder. Any ideas? Thanks, from Spain Tag: RegEx Part 2 Tag: 201680
  - 11
    - VBScript or VB.Net? Hi All, I need to write a program/script that gathers some data from Windows systems, compare it with SQL Database and update if it's changed. My question is what should i use? VBScript or VB.Net? Here is my background.. I am a systems administrator. I have experience with: C, C++, Visual C++, VBScript I know little bit about: VB 6.0, Java I don't know anything about: dotNet (but would like to learn :) ) I am sure that i can do my task with VBScript. But since this is not going to be a small script/program, should i go with more powerful language like VB.Net even though i don't know much about it? Based on my experience, do you think i should go with VB.Net? or just stick to VBScript? Thank you all for your help. Tag: RegEx Part 2 Tag: 201678
  - 12
    - Question about looping a script Hi, I'm using the below script to map a drive: ====== Dim objNetwork Set objNetwork = CreateObject("Wscript.Network") On Error Resume Next objNetwork.RemoveNetworkDrive "G:" objNetwork.MapNetworkDrive "G:", "\\domain1dc1\test" ====== What I'd like to do is put in a loop command so it if it fails to map the G drive (ie, the share isn't available at that time) it keeps trying until it is successful. I'd also like to set this loop to time out after 5mins if that's possible? Could someone show me how this is done? Thanks, Curtis. -- Please reply to news group only. Thank you. Tag: RegEx Part 2 Tag: 201661
  - 13
    - word.applicaton, Object required: '[undefined]' Hello I'm trying to make some kind of a news administration, so the administrators should be able to upload or create new articels. Therefore i wanted to open a blank word document where they can write there article. At the moment my code looks like that: Set Word = CreateObject("word.application") word.visible = true Set Doc = Word.Documents.Add Not that much i know, but i alsways get the error Object required: '[undefined]' at the line of set doc = word.document.add Does everyone know what the problem could be. Thanks for any help Tag: RegEx Part 2 Tag: 201657
  - 14
    - getting error access denied on startup computer script through GPO hi, I've got some trouble getting my startup script running... i always get USERINIT error (ID 1000) : access denied. I've put everyone, anonymous logon, domain computers full access and same thing. do you know why ? here is my script : Dim strExePath, bolUpdateNeeded, objAgentInfo Dim intMajorVersion, objShell ' prefix with an UNC path if necessary strExePath = "c:\WindowsUpdateAgent20-x86.exe" bolUpdateNeeded = True ' init value, do not touch On Error Resume Next Set objAgentInfo = CreateObject("Microsoft.Update.AgentInfo") If Err.Number = 0 Then ' object exists, now check if ApiMajorVersion is 3 or higher intMajorVersion = 0 ' init value intMajorVersion = objAgentInfo.GetInfo("ApiMajorVersion") If intMajorVersion >= 3 Then bolUpdateNeeded = False End If End If On Error Goto 0 If bolUpdateNeeded Then ret = copy() if Err.Number = 0 then Set objShell = CreateObject("WScript.Shell") ' install the AU client objShell.Run strExePath & " /quiet /norestart", 1, True delete() End If function copy() dim FSys Set FSys = CreateObject("Scripting.FileSystemObject") Set MonFic = FSys.GetFile("\\10.x.x.x\WSUS\WindowsUpdateAgent20-x86.exe") ret = MonFic.Copy("C:\WindowsUpdateAgent20-x86.exe", True ) copy = ret set FSys = nothing end function sub delete() Set FSys = CreateObject("Scripting.FileSystemObject") Set MonFic = FSys.GetFile("C:\WindowsUpdateAgent20-x86.exe") MonFic.delete set FSys=nothing end sub the goal is to check windows update agent before the user login, and eventually to update it. thanks for your help, cause i'm really stuck. Tag: RegEx Part 2 Tag: 201656
  - 15
    - return users LDAP path I need help for some LDAP scripting. I need to know a specific LDAP path for a user... but how. input: Username output: cn=USERNAME,ou=HQ,ou=HADERSLEV,dc=DOMAIN,dc=NET" Is that possible... Best regards Henrik holm Tag: RegEx Part 2 Tag: 201653
  - 16
    - VBScript runtime error '800a0006' I have started getting this error on our production web server (Windows 2003 running IIS6). I don't get the error on my Notebook (XP SP2). The official error is "Overflow" but I have tried every variation I can think of to ensure there is no actual overflow. The code is as follows: <%@ LANGUAGE="VBSCRIPT" %>  <script language="VBScript" RUNAT=SERVER> Function CalcPremium(pState, pValue) Select Case pState Case "ACT", "NSW", "VIC", "TAS" currRate = CDbl(0.0028) currMin = 220 Case "QLD", "SA" currRate = CDbl(0.0024) currMin = 220 End Select currPremium = CDbl(pValue * currRate) If currPremium < currMin Then currPremium = currMin End If CalcPremium = CLng(currPremium) End Function </Script> <% Dim currContractValue Dim currPremium LogVisit Session("MemberID"), "InsuranceCalc" strMsg = "" If Request("SubmitBack") = "Return to Insurance Page" then Response.Redirect "construction.asp" End If If Not IsEmpty(Request("ContractValue")) Then If Not IsNumeric(Request("ContractValue")) Then currContractValue = Null strMsg = "Please enter a number as the Contract Value" else currContractValue = CLng(Request("ContractValue")) End If else currContractValue = Null strMsg = "Please enter a Contract Value" End If If IsEmpty(Session("CalcState")) or IsNull(Session("CalcState")) Then strState = Session("MemberState") else strState = Request("State") End If Session("CalcState") = strState If strMsg = "" then currPremium = CalcPremium(strState, currContractValue) strMsg = "ContractValue = $" & currContractValue & "; State = " & strState & "; Premium = " & FormatCurrency(currPremium,2) End If %> In this version the error occures on line 15 which is: currPremium = CDbl(pValue * currRate) I have explicitly converted pValue to a Long and currRate to a Double. What is also strange (apart from it working fine on my development machine), is that it actually calculates OK every second refresh. i.e. 1. Refresh - error 2. Refresh - OK 3. Enter new value or just Submit again - error 4. Refresh - OK Does anyone have any clues? I suspect it is a bug or setting in IIS. -- Kevin Seerup GoalMaker Pty Ltd http://www.goalmaker.com Tag: RegEx Part 2 Tag: 201651
  - 17
    - Need assistance with file delete script (date function) I am attempting to use a date function in the following script to delete any files (no folders or sub folders) within a certain directory, it can only delete anything from the previous year based on current date, for example if I run it now it should delete all files with a date stamp of 2006 or earlier, nothing in 2007. I just cannot get my head around Line 8 and the DateAdd syntax, please help, thx in advance... set Shell = CreateObject( "WScript.Shell") set fso = CreateObject( "Scripting.FileSystemObject") set SystemEnv = Shell.Environment( "SYSTEM") set ProcessEnv = Shell.Environment( "PROCESS") 'Anything from the previous year (based on today's date) will be deleted dtCutoff = DateAdd( "y", -1, Year()) 'Files will be deleted from this folder and all sub folders (no physical folders will be deleted) DeleteOldFiles fso.GetFolder( "S:\TEMP\Test"), dtCutoff function DeleteOldFiles( Folder, dtCutoff) 'Determine location and name of log file (log file appends itself) set logf = fso.OpenTextFile( "S:\TEMP\Deletelog.txt", 8, true) logf.WriteLine( Now & " " & Folder.Path) logf.Close on error resume next ' Delete old files from this directory for each File in Folder.Files if File.DateCreated < dtCutoff then WScript.Echo File.Path File.Delete end if next ' Delete old files from all sub directories for each SubFolder in Folder.SubFolders DeleteOldFiles SubFolder, dtCutoff next end function Tag: RegEx Part 2 Tag: 201648
  - 18
    - want to create script to auto delete folders Need to create an auto delete script to delete folders on a network computer 20 days old or more (creation date). Can someone help me please? I have no Idea how to write script... Tag: RegEx Part 2 Tag: 201647
  - 19
    - Printer spool loading detection This is a multi-part message in MIME format. ------=_NextPart_000_009C_01C73FF8.5D3A0030 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable How can I set up a listener to know when something is printed and have = it automatically sent to a second printer? TIA... Mark Ivey ------=_NextPart_000_009C_01C73FF8.5D3A0030 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Diso-8859-1"> <META content=3D"MSHTML 6.00.5730.11" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT face=3DArial size=3D2>How can I set up a listener to know = when something=20 is printed and have it automatically sent to a second = printer?</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>TIA...</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Mark Ivey</FONT></DIV></BODY></HTML> ------=_NextPart_000_009C_01C73FF8.5D3A0030-- Tag: RegEx Part 2 Tag: 201643
  - 20
    - ADO recordset RecordCount property question Hi, Is there some reason why the ADODB.RecordSet.RecordCount property wouldn't function in VBScript? In both cases the RecordSet is being populated as I can retrieve the values, but in the case of the script it simply won't tell me the number of records. This code works fine in VB6, but returns -1 when run in VB script strSQL = "select * from ado_test" strConn = ' valid connect string oConnection.ConnectionString = strConn oConnection.CursorLocation = adUseClient oConnection.Open oRecset.Open strSQL, strConn, adOpenStatic, _ adLockBatchOptimistic, adCmdText MsgBox oRecset.RecordCount Tag: RegEx Part 2 Tag: 201638
  - 21
    - Classes in Session Variables - What's my problem? Ok, I must be doing something very simply wrong. global.asa: --------------------------------------------------------------------- <script language="vbscript" runat="server"> Sub Session_OnStart Dim oProduct, sTemp Set oProduct = New SampleProduct sTemp = "ABC123" oProduct.SKU = "ABC123" oProduct.Name = "My Killer Product" Set Session(sTemp) = oProduct End Sub Class SampleProduct Public SKU Public Name End Class </script> --------------------------------------------------------------------- My asp code looks like this: --------------------------------------------------------------------- Dim oMyProduct Set oMyProduct = Session("ABC123") Response.Write(oMyProduct.Name) --------------------------------------------------------------------- All I get is: --------------------------------------------------------------------- Microsoft VBScript runtime error '800a01b6' Object doesn't support this property or method: 'Name' /Testing.asp, line 14 --------------------------------------------------------------------- Am I retarded? What am I missing? Thanks for any help. Tag: RegEx Part 2 Tag: 201628
  - 22
    - script to clean orphaned Registry entries I need safely and precisely clean some orphaned Registry entries and keys, from HKLM. How to make this with VBScript? M. Tag: RegEx Part 2 Tag: 201626
  - 23
    - Detecting startup as the result of a drop action If you drag any Explorer selection over a .vbs file, the .vbs file will attempt to run. Is there any way to detect that it is starting to run as a result of a drop operation (as opposed to an accelerator key operation, or a command line invocation, or perhaps someone has even set up other file types to be operated on by that script (by means of ...\otherFileType\Shell\Open\Command in the registry))? An insufficient test is that such a drag operation ensures that the script gets at least one argument (whereas an accelerator key start ensures none). However, this won't discriminate between the other two methods above. A WinAPI solution is also acceptable. Thanks for any tips, Csaba Gabor from Vienna PS. JW, Thanks for your response a few months ago to my cookie question - I am still chewing on that one. Tag: RegEx Part 2 Tag: 201625
  - 24
    - populating multidimensional arrays Hi, I'm having some difficulty getting data into arrays greater than one dimension. I can do it if I specify every single element individually but there has to be a faster way. I thought something like this would work: Dim arrVal (3,3) arrVal(0) = Array(1, "ONE", "A") also tried this: arrVal(0,) = Array(1, "ONE", "A") and of course: arrVal(0) = (1, "ONE", "A") The only thing that seems to work is this: arrVal(0,0) = 1 arrVal (0,1) = "One" arrVal (0,2) = "A" Is there an easier way? Thank You Tag: RegEx Part 2 Tag: 201624
  - 25
    - Detect when a file has been "GET" by a remote FTP Server Hello everybody. I need to detect when files in a folder has been successfully copied to a remote machine via an FTP GET originated in that remote machine. I have no access or control over the server initiating the transfer so I have to monitor events in the server that stores the files. Maybe a WMI Management Class bound to FTP will do, but I have no found info yet. Thanks, edelvillar Tag: RegEx Part 2 Tag: 201623
- Next
  - 1
    - Creating an XML Document in VBScript I am creating a XML file in VBScript. However, my XML file is in the wrong format. Any help is appreciated. This is the format currently: <catalog><disc></disc><title>AVI 2</title></catalog> Here is the desired format: <catalog><disc><title>AVI 2</title></disc></catalog> Here is my code: Set objXMLDoc = CreateObject("Microsoft.XMLDOM") objXMLDoc.async = False objXMLDoc.load("C:\videocatalog\vid.xml") Dim objCurrNode, objNewNode, objNewText makeDisc() makeFiles() objXMLDoc.save("C:\videocatalog\vid.xml") '******************************* '* makeDisc * '******************************* Sub makeDisc() Set objNewNode = objXMLDoc.createElement("disc") Set objNewText = objXMLDoc.createTextNode("") objNewNode.appendChild(objNewText) Set objCurrNode = objXMLDoc.documentElement objCurrNode.appendChild(objNewNode) Set objCurrNode = objCurrNode.lastChild End Sub 'makeDisc subroutine '****************************** '* makeFiles * '****************************** Sub makeFiles() Set Root = objXMLDoc.documentElement Set NodeList = Root.getElementsByTagName("disc") For Each Elem In NodeList Set objNewNode = objXMLDoc.createElement("title") Set objNewText = objXMLDoc.createTextNode("AVI 2") objNewNode.appendChild(objNewText) Set objCurrNode = objXMLDoc.documentElement objCurrNode.appendChild(objNewNode) Set objCurrNode = objCurrNode.lastChild objNewNode.appendChild(objNewText) Next End Sub 'makeDisc subroutine Tag: RegEx Part 2 Tag: 201622
  - 2
    - Automatically Logging Into Websites I am really new in scripting and I was curious if it is possible to run Internet Explorer, go to a specific URL, automatically send username and password in the appropriate fields to log in. Tag: RegEx Part 2 Tag: 201620
  - 3
    - Problem with IE7, this script worked on IE6 Here are the first few (or more) lines of code to a script that monitors servers in real time, using IE to show a graphical/not page and indicating status. This worked on IE6 (I did have to tweak the security settings for intranet as I recall). Now it is broke, I don't really use IE7 (Firfox), but I do want my scripts to work in a browser that I expect to be standard. Any help would be greatly appreciated. Check it out; <--------Script Starts----------< Set WSHShell = WScript.CreateObject("WScript.Shell") Set IE = CreateObject("InternetExplorer.Application") Set fso = CreateObject("Scripting.FileSystemObject") 'Create a path and filename to a file in My Documents strMyDocPath = WshShell.SpecialFolders("MyDocuments") strTempFile = strMyDocPath & "\DIVExample.html" 'Create a file fso.CreateTextFile (strTempFile) Set f1 = fso.GetFile(strTempFile) Set ts = f1.OpenAsTextStream(2, True) 'Write a blank HTML page to the file with an empty DIV element, and then close the file ts.WriteLine("<HTML><HEAD><TITLE>Server Status</TITLE></HEAD>") ts.WriteLine("<BODY SCROLL='NO'><CENTER><FONT FACE='arial black'> <HR COLOR='BLACK'>") ts.WriteLine("<DIV id='MakeMeAnObject'></DIV>") ts.WriteLine("<HR COLOR='BLACK'></FONT></CENTER></BODY></HTML>") ts.Close 'Run IE and load the file we just created SetupIE(strTempFile) 'Set the DIV element as an object Set objDIV = IE.Document.All("MakeMeAnObject") objDiv.InnerHTML = "<font color=blue size=+11>Populating list ...</font>" <--------Script Ends----------< This part works. When IE7 comes up, it states populating list as it should, as well as that stupid drop down to enable scripting (can't seem to turn that off for intranet), but when I allow the script, it ends up blank with two HR (lines). Even though I am updating the oobjDIV object with HTML. Any ideas? Tag: RegEx Part 2 Tag: 201617
  - 4
    - Can't seem to find a solution for this one... We need to be able to do the following: After sysprep runs on a server, a script needs to run that will - execute a command at a command prompt (this will add VLANs to our server's NIC, which we are already able to do, but only for one set of VLANs. we have mulitple pools of servers that each use different VLANs), then - retrieve the numbers from the servers name, no matter the name length (we have different pools of servers that have different lengths for their names, but all have 1-3 digits at the end of their name) - apply the numbers to a script (that will assign IPs to the newly create VLANs) using the number as the last octet of, then finally - run an already bat file that will copy all necessary data... any help would be greatly appreciated...i keep trying different things, but as i am in no way a vbs master, i keep hitting dead ends.. thanks!! Tag: RegEx Part 2 Tag: 201611
  - 5
    - Word Wrap in html Creating a log file that I'm outputing to .html and some of the text has spaces that are wrapping to a new line within a table cell. Is there a way I can prevent the wrapping from occuring? -- Paul Tag: RegEx Part 2 Tag: 201610
  - 6
    - Can anyone script this?? Hi all, In order to implement a workaround to VPN users who have offline files set up but also need to access all folders when connected remotely, we're having to ask them to do the following (as per KB290523): 1. Double-click My Computer on the desktop. 2. On the Tools menu, click Folder Options. 3. On the Offline Files tab, click View Files. 4. On the Tools menu, click Synchronize. 5. Click OK when you are prompted to synchronize. Are there any vbs guru's out there who could post a script to do the above? I wouldn't have a clue where to start as my vbs knowledge is very basic. Thank you, Curtis. -- Please reply to news group only. Thank you. Tag: RegEx Part 2 Tag: 201608
  - 7
    - Formula I need to have a formula that can add a row of cells with a variable number of colmns. Columns will be added and deleted everyday, so the formula needs to have a variable range. I hope this is clear. Thanks, Bernie Tag: RegEx Part 2 Tag: 201605
  - 8
    - script for count some char in a file hi, i've created a script for count some type of characters into text file: ----------------------- Const ForReading =3D 1 filename =3D "c:\test.txt" Set objFSo =3D CreateObject("Scripting.FileSystemObject") Set objFile =3D objFSO.OpenTextFile(filename, ForReading) strFindText =3D "=EC" Do While objFile.AtEndOfStream =3D False strLine =3D objFile.ReadLine If inStr(strLine, strFindText) Then i =3D i + 1 End If Loop Wscript.Echo vbCrLf & "Number of records =EC found: " & i objFile.Close ------------------------- But this script search all the first char on each line, but i want to count all chars in all line not only the first. Someone can help me? thanks very much andrew Tag: RegEx Part 2 Tag: 201588
  - 9
    - monitoring systems in vbscript I once saw a script that monitoring disk event logs etc. Anyone know of one? Tag: RegEx Part 2 Tag: 201587
  - 10
    - Save values in a text boxes from a form I have a asp file in which I create about 10 text and10 input boxes. Basicially I created dynamically, so number of boxes are varies. I also have a button "Save". I have attached a javascirpt function SubmitForm(). What I try to do is the text indicates the employee number, the input box indicates the age. So how do save the age of each employee into database. The missing link how to loop through the existing input boxes and the text labels? Tag: RegEx Part 2 Tag: 201586
  - 11
    - 3 labels - 3 inputs Hi, I'm working on a vbs script. It's not a script that works in a web page. I'd like to prompt the user with three lables and three inputs for the user to type text. Might someone point me to a good example? A web page solution would be OK. So long as I can fetch the data and close the window. Thanks. Tag: RegEx Part 2 Tag: 201583
  - 12
    - add an ip printer to workstation I cut and paste the script below from various Microsoft web pages. My intention is to delete a specific ip printing port (if it exists), add it under my terms, and then add the actual printer. I think I've found all the proper code except for adding the printer itself! Can anyone please help me out? Thanks, Jeremy Code ------------------------------------------------------ 'add-ip-printer.vbs 'used to setup a Lexmark Optra S 1650 (PS) printer on ip port 10.24.124.71 'Before this script runs, a batch file with the following command runs 'to delete all local printers 'cscript prnmngr.vbs -x 'Make sure port we want to add is not added under some other name strComputer = "." Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colInstalledPorts = objWMIService.ExecQuery ("Select * from Win32_TCPIPPrinterPort Where Name = 'IP_10.24.124.71'") For Each objPort in colInstalledPorts objPort.Delete_ Next 'Delete all unused printer ports strComputer = "." Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colPrinters = objWMIService.ExecQuery ("Select * from Win32_Printer") For Each objPrinter in colPrinters objDictionary.Add objPrinter.PortName, objPrinter.PortName Next Set colPorts = objWMIService.ExecQuery ("Select * from Win32_TCPIPPrinterPort") For Each objPort in colPorts If objDictionary.Exists(objPort.Name) Then Else ObjPort.Delete_ End If Next 'Add our printer port strComputer = "." Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set objNewPort = objWMIService.Get ("Win32_TCPIPPrinterPort").SpawnInstance_ objNewPort.Name = "IP_10.24.124.71" objNewPort.Protocol = 1 objNewPort.HostAddress = "10.24.124.71" objNewPort.PortNumber = "9999" objNewPort.SNMPEnabled = False objNewPort.Put_ 'Add printer driver if not already in list 'Not required for this particular script 'strComputer = "." 'Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 'objWMIService.Security_.Privileges.AddAsString "SeLoadDriverPrivilege", True 'Set objDriver = objWMIService.Get("Win32_PrinterDriver") 'objDriver.Name = "NewPrinter Model 2900" 'objDriver.SupportedPlatform = "Windows NT x86" 'objDriver.Version = "3" 'objDriver.DriverPath = "C:\Scripts\NewPrinter.dll" 'objDriver.Infname = "C:\Scripts\NewPrinter.inf" 'intResult = objDriver.AddPrinterDriver(objDriver) 'Add the actual printer '?????????????? 'Make the printer default strComputer = "." Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colInstalledPrinters = objWMIService.ExecQuery ("Select * from Win32_Printer Where Name = 'ScriptedPrinter'") For Each objPrinter in colInstalledPrinters objPrinter.SetDefaultPrinter() Next Tag: RegEx Part 2 Tag: 201582
  - 13
    - Find a specific character on a specific line in a text file and append that character to the file name Can anyone help me with this task? I have multiple files in a directory. they are all identicle except for the 25th character on the 2nd line. ex; [blahblahblah] 123456=12345678::10.5.5.x:5467/POL blahblah I would like to read each file and I would like to find the value of x and append that to the file names. Thanks, guy Tag: RegEx Part 2 Tag: 201564
  - 14
    - IE7 and VBScript I have a pseudo code as below 1. RefreshFrame1 using location.href = newURL 2. Display Msgbox "completed" in Frame2 3. set select control item in Frame1 the code worked perfectly well in IE6. Its doing what it is supped to. in IE7, display msgbox is displayed but before that no refreshframe1 happens whereas refreshframe1 happens when click "ok" on the msgbox. Why is it so. Is there something changed in IE7 handling of this code. thanks in advance. Tag: RegEx Part 2 Tag: 201556
  - 15
    - Collections in ASP and XML, using the Session Object (Part 1) Let's say that I have an xml file with: <PRODUCTS> <PRODUCT> <SKU>AAA111</SKU> <NAME>Name One</NAME> <COLORS> <COLOR><ID>BK</ID><PRICE>10</PRICE></COLOR> <COLOR><ID>WH</ID><PRICE>20</PRICE></COLOR> </COLORS> </PRODUCT> <PRODUCT> <SKU>BBB222</SKU> <NAME>Name Two</NAME> <COLORS> <COLOR><ID>BK</ID><PRICE>20</PRICE></COLOR> <COLOR><ID>WH</ID><PRICE>30</PRICE></COLOR> </COLORS> </PRODUCT> <PRODUCTS> When the session starts, I want to create a Session Variable/Object that can be used in ASPs later like this: (Example Use in VBScript) Dim colProducts colProducts = Session("PRODUCTS") For Each oProduct In colProducts Response.Write(oMyProduct("SKU") For Each oColor In oProduct("COLORS") ' Access a SUB collection directly. Response.Write(oColor("ID")) Next Next oMyProduct = colProducts("AAA111") Response.Write(oMyProduct("NAME")) It has been a very long time since I coded, and so my code is probably a bit rusty. Also, I have never really worked with collections. My questions are: 1.) In my session_onstart code, how do I create a collection and store it into the session variable? What language should I use? Code Examples? 2.) In my ASPs, how do I propperly access those collections and sub-collections? Languages? Code Examples? Thanks in advance. Tag: RegEx Part 2 Tag: 201555
  - 16
    - VBScript to Remote Monitor I am writing a script to grab information, such as hard drive space or memory availability, from remote servers then output that to a webpage for viewing. So far I can only get it to work grabbing info from the localhost, it keeps saying unable to connect to WMI for the remotes. When I change the value of strComputer to something other than the localhost, it fails. ------- ------- Const HARD_DISK = 3 strComputer = "." Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colDisks = objWMIService.ExecQuery("Select * from Win32_LogicalDisk Where DriveType = " & HARD_DISK & "") Set colOSes = objWMIService.ExecQuery("Select * from Win32_OperatingSystem") Set colComputer = objWMIService.ExecQuery("Select * from Win32_ComputerSystem") Set objFS = CreateObject("Scripting.FileSystemObject") Set objNewFile = objFS.CreateTextFile("stat.htm") objNewFile.WriteLine "<html>" objNewFile.WriteLine "<head>" objNewFile.WriteLine "<title>Process Report</title>" objNewFile.WriteLine "<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>" objNewFile.WriteLine "<link rel='stylesheet' href='stat.css'>" objNewFile.WriteLine "</head>" objNewFile.WriteLine "<body>" objNewFile.WriteLine "<div class='header'>" objNewFile.WriteLine "<img src='images/banner.gif'>" objNewFile.WriteLine "<h2>Process Report -- Date: " & Now() & "</h2>" & vbCrLf objNewFile.WriteLine "</div>" objNewFile.WriteLine "<b>" For Each objOS in colOSes objNewFile.WriteLine "<div class='info'>" objNewFile.WriteLine "Computer Name: " & objOS.CSName & "<br>" objNewFile.WriteLine "Caption: " & objOS.Caption & "<br>" objNewFile.WriteLine "Version: " & objOS.Version & "<br>" objNewFile.WriteLine "Build Number: " & objOS.BuildNumber & "<br>" objNewFile.WriteLine "Build Type: " & objOS.BuildType & "<br>" objNewFile.WriteLine "Service Pack: " & objOS.ServicePackMajorVersion & "." & objOS.ServicePackMinorVersion objNewFile.WriteLine "</div>" Next For Each objDisk in colDisks objNewFile.WriteLine "<div class='hdd'>" strUsedDisk = FormatNumber((((objDisk.Size/1024/1024/1024)-(objDisk.FreeSpace/1024/1024/1024))/(objDisk.Size/1024/1024/1024))*100, 2) if (strUsedDisk > 80) Then strUD = "<font color='red'>" & strUsedDisk & "</font>%<br>" elseif (strUsedDisk > 40) Then strUD = "<font color='yellow'>" & strUsedDisk & "</font>%<br>" else strUD = "<font color='green'>" & strUsedDisk & "</font>%<br>" end if strFreeDisk = FormatNumber(((objDisk.FreeSpace/1024/1024/1024)/(objDisk.Size/1024/1024/1024)*100), 2) if (strFreeDisk < 20 ) Then strFD = "<font color='red'>" & strFreeDisk & "</font>%<p>" elseif (strFreeDisk < 60 ) Then strFD = "<font color='yellow'>" & strFreeDisk & "</font>%<p>" else strFD = "<font color='green'>" & strFreeDisk & "</font>%<p>" end if objNewFile.WriteLine "Drive Letter: " & vbTab & objDisk.DeviceID & "<br>" objNewFile.WriteLine "Used Disk Space: " & vbTab & FormatNumber((objDisk.Size/1024/1024/1024)-(objDisk.FreeSpace/1024/1024/1024), 2) & " GB / " & FormatNumber(objDisk.Size/1024/1024/1024, 2) & " GB<br>" objNewFile.WriteLine "Used Disk Space: " & vbTab & strUD objNewFile.WriteLine "Free Disk Space: " & vbTab & FormatNumber(objDisk.FreeSpace/1024/1024/1024, 2) & " GB / " & FormatNumber(objDisk.Size/1024/1024/1024, 2) & " GB<br>" objNewFile.WriteLine "Free Disk Space: " & vbTab & strFD objNewFile.WriteLine "</div>" Next For Each objOperatingSystem in colOSes strAvailMem = FormatNumber((objOperatingSystem.FreePhysicalMemory/1024), 0) Next For Each objComputer in colComputer strTotalMem = FormatNumber((objComputer.TotalPhysicalMemory/1024/1024), 0) Next strUsedMem = FormatNumber((strTotalMem-strAvailMem)/(strTotalMem)*100, 2) if (strUsedMem > 80 ) Then strUM = "<font color='red'>" & strUsedMem & "</font>%<br>" elseif (strUsedMem > 40 ) Then strUM = "<font color='yellow'>" & strUsedMem & "</font>%<br>" else strUM = "<font color='green'>" & strUsedMem & "</font>%<br>" end if strFreeMem = FormatNumber((strAvailMem)/(strTotalMem)*100, 2) if (strFreeMem < 20 ) Then strFM = "<font color='red'>" & strFreeMem & "</font>%<br>" elseif (strFreeMem < 60 ) Then strFM = "<font color='yellow'>" & strFreeMem & "</font>%<br>" else strFM = "<font color='green'>" & strFreeMem & "</font>%<br>" end if objNewFile.WriteLine "<div class='ram'>" objNewFile.WriteLine "Used Physical Memory: " & vbTab & (strTotalMem-strAvailMem) & " MB / " & strTotalMem & " MB<br>" objNewFile.WriteLine "Used Physical Memory: " & vbTab & strUM objNewFile.WriteLine "Free Physical Memory: " & vbTab & strAvailMem & " MB / " & strTotalMem & " MB<br>" objNewFile.WriteLine "Free Physical Memory: " & vbTab & strFM objNewFile.WriteLine "</div>" objNewFile.WriteLine "<div class='ramimg'>" if ( strFreeMem >= 100 ) Then objNewFile.WriteLine "<img src='images/100free.gif' width='100' height='100'>" elseif ( strFreeMem >= 90 ) Then objNewFile.WriteLine "<img src='images/90free.gif' width='100' height='100'>" elseif ( strFreeMem >= 80 ) Then objNewFile.WriteLine "<img src='images/80free.gif' width='100' height='100'>" elseif ( strFreeMem >= 70 ) Then objNewFile.WriteLine "<img src='images/70free.gif' width='100' height='100'>" elseif ( strFreeMem >= 60 ) Then objNewFile.WriteLine "<img src='images/60free.gif' width='100' height='100'>" elseif ( strFreeMem >= 50 ) Then objNewFile.WriteLine "<img src='images/50free.gif' width='100' height='100'>" elseif ( strFreeMem >= 40 ) Then objNewFile.WriteLine "<img src='images/40free.gif' width='100' height='100'>" elseif ( strFreeMem >= 30 ) Then objNewFile.WriteLine "<img src='images/30free.gif' width='100' height='100'>" elseif ( strFreeMem >= 20 ) Then objNewFile.WriteLine "<img src='images/20free.gif' width='100' height='100'>" elseif ( strFreeMem >= 10 ) Then objNewFile.WriteLine "<img src='images/10free.gif' width='100' height='100'>" else objNewFile.WriteLine "<img src='images/0free.gif' width='100' height='100'>" end if objNewFile.WriteLine "</div>" objNewFile.WriteLine "<div class='hddimg'>" if ( strFreeDisk >= 100 ) Then objNewFile.WriteLine "<img src='images/100free.gif' width='100' height='100'>" elseif ( strFreeDisk >= 90 ) Then objNewFile.WriteLine "<img src='images/90free.gif' width='100' height='100'>" elseif ( strFreeDisk >= 80 ) Then objNewFile.WriteLine "<img src='images/80free.gif' width='100' height='100'>" elseif ( strFreeDisk >= 70 ) Then objNewFile.WriteLine "<img src='images/70free.gif' width='100' height='100'>" elseif ( strFreeDisk >= 60 ) Then objNewFile.WriteLine "<img src='images/60free.gif' width='100' height='100'>" elseif ( strFreeDisk >= 50 ) Then objNewFile.WriteLine "<img src='images/50free.gif' width='100' height='100'>" elseif ( strFreeDisk >= 40 ) Then objNewFile.WriteLine "<img src='images/40free.gif' width='100' height='100'>" elseif ( strFreeDisk >= 30 ) Then objNewFile.WriteLine "<img src='images/30free.gif' width='100' height='100'>" elseif ( strFreeDisk >= 20 ) Then objNewFile.WriteLine "<img src='images/20free.gif' width='100' height='100'>" elseif ( strFreeDisk >= 10 ) Then objNewFile.WriteLine "<img src='images/10free.gif' width='100' height='100'>" else objNewFile.WriteLine "<img src='images/0free.gif' width='100' height='100'>" end if objNewFile.WriteLine "</div>" objNewFile.WriteLine "</b>" objNewFile.WriteLine "</body>" objNewFile.WriteLine "</html>" objNewFile.Close Tag: RegEx Part 2 Tag: 201551
  - 17
    - Accessing an XML document from a URL Hello, I am new to developing using asp, visual basic and XML. I want to be able to access an XML docment which is held at a specific URL, then be able to access each node and grab the data from it. I have been reading about Microsoft.XMLDocument, MSXML2.XMLHTTP, MSXML2.DOMDocument and Microsoft.XMLDOM but I am not sure where to start. I would like to be able to grab this XML document, read it, and then assign the information inside the nodes to variables within While Loop. for instance. While there are nodes assign variable to node value output this value loop Thanks Tag: RegEx Part 2 Tag: 201548
  - 18
    - Can you use a Recursive sub in vbscript? I need to write a script that resets the permissions on all the folders on the Private drive (for my test I'm using C:\Private\). All the folders within C:\Private should be listed as the user's login name (C:\Private\aadams\). Many of them have different subfolders too. Basically, I need to have the script get the username from the folder name and set (not replace) modify/owner permissions on the folder and its subfolders... This is what I have found and smashed together so far. It sort of works, but only on the first folder...after that it looks like it gets kicked out of the recursive sub (will a recursive sub even in vbscript?...I don't see why not...) and I don't know why. I set up about 3 test folders with different usernames within C:\Private to test the script and each user's subfolder has a MyDocs folder in it as well. Ok...after all that...here's what I have: ---------------------------------- On Error Resume Next Const FOR_READING = 1 strFolder = "c:\Private" Set objShell = CreateObject("Wscript.Shell") Set objFSO = CreateObject("Scripting.FileSystemObject") Set objNewFile = objFSO.CreateTextFile("Test.txt") Set objFolder = objFSO.GetFolder(strFolder) ShowSubFolders(objFolder) objNewFile.WriteLine "Script is done..." objNewFile.Close Sub ShowSubFolders(objFolder) Set colFolders = objFolder.SubFolders For Each objSubFolder In colFolders Dim Str, strUser, Seps(2) Seps(0) = "C:\" Seps(1) = "\" Str = CStr(objFolder.Path) objNewFile.WriteLine Str & " is Str" Dim a a = Tokenize(Str, Seps) strUser = CStr(a(2)) objNewFile.WriteLine strUser & " is strUser" ModifyAndOwn(strUser) objNewFile.WriteLine "in 1st part of recurs " & strUser Set colFiles = objSubFolder.Files For Each objFile In colFiles ModifyAndOwn(strUser) objNewFile.WriteLine "in 2nd part of recurs " & strUser Next ShowSubFolders(objSubFolder) Next End Sub Function ModifyAndOwn(strUserName) strSetModify = "& xcacls.vbs ""c:\Private\"""& strUserName &"\ /e /g ""da\"""& strUserName &":m" strSetOwner = "& subinacl /subdirectories c:\Private\"& strUserName &" /setowner=da\"& strUserName &"" objShell.Run "%comspec% /k cd ""c:\windows\""" & strSetModify & strSetOwner &"" objNewFile.WriteLine "in ModifyAndOwn " & strUserName End Function Function Tokenize(byVal TokenString, byRef TokenSeparators()) Dim NumWords, a() NumWords = 0 Dim NumSeps NumSeps = UBound(TokenSeparators) Do Dim SepIndex, SepPosition SepPosition = 0 SepIndex = -1 for i = 0 to NumSeps-1 ' Find location of separator in the string Dim pos pos = InStr(TokenString, TokenSeparators(i)) ' Is the separator present, and is it closest to the beginning of the string? If pos > 0 and ( (SepPosition = 0) or (pos < SepPosition) ) Then SepPosition = pos SepIndex = i End If Next ' Did we find any separators? If SepIndex < 0 Then ' None found - so the token is the remaining string redim preserve a(NumWords+1) a(NumWords) = TokenString Else ' Found a token - pull out the substring Dim substr substr = Trim(Left(TokenString, SepPosition-1)) ' Add the token to the list redim preserve a(NumWords+1) a(NumWords) = substr ' Cutoff the token we just found Dim TrimPosition TrimPosition = SepPosition+Len(TokenSeparators(SepIndex)) TokenString = Trim(Mid(TokenString, TrimPosition)) End If NumWords = NumWords + 1 loop while (SepIndex >= 0) Tokenize = a End Function ------------------- Any help or suggestions would be greatly appreciated! Tag: RegEx Part 2 Tag: 201546
  - 19
    - Can you use a Recursive sub in vbscript? I need to write a script that resets the permissions on all the folders on the Private drive (for my test I'm using C:\Private\). All the folders within C:\Private should be listed as the user's login name (C:\Private\aadams\). Many of them have different subfolders too. Basically, I need to have the script get the username from the folder name and set (not replace) modify/owner permissions on the folder and its subfolders... This is what I have found and smashed together so far. It sort of works, but only on the first folder...after that it looks like it gets kicked out of the recursive sub (will a recursive sub even in vbscript?...I don't see why not...) and I don't know why. I set up about 3 test folders with different usernames within C:\Private to test the script and each user's subfolder has a MyDocs folder in it as well. Ok...after all that...here's what I have: ---------------------------------- On Error Resume Next Const FOR_READING = 1 strFolder = "c:\Private" Set objShell = CreateObject("Wscript.Shell") Set objFSO = CreateObject("Scripting.FileSystemObject") Set objNewFile = objFSO.CreateTextFile("Test.txt") Set objFolder = objFSO.GetFolder(strFolder) ShowSubFolders(objFolder) objNewFile.WriteLine "Script is done..." objNewFile.Close Sub ShowSubFolders(objFolder) Set colFolders = objFolder.SubFolders For Each objSubFolder In colFolders Dim Str, strUser, Seps(2) Seps(0) = "C:\" Seps(1) = "\" Str = CStr(objFolder.Path) objNewFile.WriteLine Str & " is Str" Dim a a = Tokenize(Str, Seps) strUser = CStr(a(2)) objNewFile.WriteLine strUser & " is strUser" ModifyAndOwn(strUser) objNewFile.WriteLine "in 1st part of recurs " & strUser Set colFiles = objSubFolder.Files For Each objFile In colFiles ModifyAndOwn(strUser) objNewFile.WriteLine "in 2nd part of recurs " & strUser Next ShowSubFolders(objSubFolder) Next End Sub Function ModifyAndOwn(strUserName) strSetModify = "& xcacls.vbs ""c:\Private\"""& strUserName &"\ /e /g ""da\"""& strUserName &":m" strSetOwner = "& subinacl /subdirectories c:\Private\"& strUserName &" /setowner=da\"& strUserName &"" objShell.Run "%comspec% /k cd ""c:\windows\""" & strSetModify & strSetOwner &"" objNewFile.WriteLine "in ModifyAndOwn " & strUserName End Function Function Tokenize(byVal TokenString, byRef TokenSeparators()) Dim NumWords, a() NumWords = 0 Dim NumSeps NumSeps = UBound(TokenSeparators) Do Dim SepIndex, SepPosition SepPosition = 0 SepIndex = -1 for i = 0 to NumSeps-1 ' Find location of separator in the string Dim pos pos = InStr(TokenString, TokenSeparators(i)) ' Is the separator present, and is it closest to the beginning of the string? If pos > 0 and ( (SepPosition = 0) or (pos < SepPosition) ) Then SepPosition = pos SepIndex = i End If Next ' Did we find any separators? If SepIndex < 0 Then ' None found - so the token is the remaining string redim preserve a(NumWords+1) a(NumWords) = TokenString Else ' Found a token - pull out the substring Dim substr substr = Trim(Left(TokenString, SepPosition-1)) ' Add the token to the list redim preserve a(NumWords+1) a(NumWords) = substr ' Cutoff the token we just found Dim TrimPosition TrimPosition = SepPosition+Len(TokenSeparators(SepIndex)) TokenString = Trim(Mid(TokenString, TrimPosition)) End If NumWords = NumWords + 1 loop while (SepIndex >= 0) Tokenize = a End Function ------------------- Any help or suggestions would be greatly appreciated! Tag: RegEx Part 2 Tag: 201545
  - 20
    - Sort Column Script I need to have a script in Excel that would allow the sorting of columns from column "D" to the column before the last column with data. I do not want the last column sorted. The criteria for the sort is in row 1 (Name of an employee). Additional columns will be inserted between column "D" and the last column so they need to be sorted. I hope this is clear. Can someone please assist me? Thank you! Bernie Tag: RegEx Part 2 Tag: 201544
  - 21
    - CDO.Message and attachments I have a asp page that sends a excel price list to customers, this worked fine untill now, but now when i sent one to myself it arrives as a dat file. Does any one know why, and how to fix it, is it a problem with my emailk reader (Outlook) or is it some thing to do wih Exchange? Tag: RegEx Part 2 Tag: 201539
  - 22
    - Install loopback by script Hi, someone know how to install loopback by script ? thank's Max Tag: RegEx Part 2 Tag: 201538
  - 23
    - GetGestureStatus Method [InkPicture Control] doesn't work. Help please I am trying to use the GetGestureStatus method of the InkPicture ActiveX control in VBScript, but it doesn't work, I always get the error 80040235 (The query type is missing). I don't know what it means. Here's the code: <SCRIPT LANGUAGE="vbscript"> Set TheObject = Document.createElement("object") document.body.appendChild(TheObject) TheObject.classid = "clsid:04A1E553-FE36-4FDE-865E-344194E69424" 'msinkaut.InkPicture.1 TheObject.id = "picture" TheObject.picture = LoadPicture("C:\bla.jpg") TheObject.SizeMode = StretchImage TheObject.enabled=true sub picture_click() msgbox "I am an InkPicture Event!" end sub TheObject.SetGestureStatus IAG_ArrowLeft, True 'Doesnt work TheObject.GetGestureStatus(IAG_ArrowLeft) 'Doesnt work TheObject.SetGestureStatus 61498, True 'Doesnt work TheObject.GetGestureStatus(61498) 'Doesnt work </SCRIPT> It simply doesn't work! The method is explained here: http://msdn2.microsoft.com/en-gb/library/ms702416.aspx But as always Microsoft doesn't care about those who are using VBScript, they only provide examples for Visual Basic. I am totally at a loss here, can somebody help? P.S. The following method works: TheObject.SetEventInterest 4,true msgbox TheObject.GetEventInterest (4) So if SetEventInterest works, why don't SetEventInterest / GetGestureStatus methods work? Tag: RegEx Part 2 Tag: 201537
  - 24
    - Selecting an Excel Worksheet using a Function in VBS Hello Everyone(I posted this question in the Excel newsgroup, but they tell me to use: Function funWorksheetInput() As String, but I don't think VBS uses that, or at least it doesn't work for me!) I have started the following code that will allow a user to drag and drop an XLS file ontop of this vbs script, and it will display a list of all the available worksheet names, which they can then choose the worksheet number and it will select that worksheet (take you to that worksheet). This is part of a bigger idea I have in my head, but so far I am stuck on the following line: objWorkbooks.Worksheets(funWorksheetInput).Select Why can't I use my function as the input selection? I get "Script Out of Range" I can do the following hard coding: objWorkbooks.Worksheets(2).Select or objWorkbooks.Worksheets("Sheet3").Select Any help would be appreciated! T 'vbs code start Dim argsNamed, argsUnnamed set argsNamed = WScript.Arguments.Named set argsUnnamed = WScript.Arguments.Unnamed Dim objExcelApp ' Excel application object Set objExcelApp = WScript.CreateObject("Excel.Application") objExcelApp.Visible = True Dim fso Set fso = CreateObject("Scripting.FileSystemObject") set objWorkbooks = objExcelApp.Workbooks.Open(argsUnnamed(file)) set objWorksheets = objWorkbooks.Worksheets objWorkbooks.Worksheets(funWorksheetInput).Select set objWorkbooks = Nothing set objWorksheets = Nothing set objRange = Nothing Set objExcelApp = Nothing Set argsNamed = Nothing Set argsUnnamed = Nothing Set fso = Nothing WScript.Quit Function funWorksheetInput Dim arryWS, c, ws arryWS = split( funGetWorksheetNames, ",") For c = 0 to Ubound(arryWS) - 1 ws = ws & c+1 & "). " & arryWS(c) ws = ws & vbCRLF Next strSourceMessage = "Select from one of the following worksheets:" & vbCrLf & ws funWorksheetInput = InputBox( strSourceMessage, "WorkSheet Selection", "1") If funWorksheetInput = "" Then WScript.Quit(0) End Function Function funGetWorksheetNames Dim s,ws For s = 1 To objWorksheets.Count ws = ws & objWorksheets(s).Name ws = ws & "," Next funGetWorksheetNames = ws End Function 'vbs code end Tag: RegEx Part 2 Tag: 201533
  - 25
    - multiple dial up connections and multiple FTP I need to make multiple dial up connections and do multiple FTP transfers on each connection simultaneously. Is this possible on a windows machine? What are my options and procedures using vbscript? Tag: RegEx Part 2 Tag: 201530

I'm reposting this because I had said that I was finished with the previous
thread, but then this came up...

I have another problem (I'm really bad at RegEx)... and I spent the last
few hours looking for a resolution...

I want to remove all the double double (""a"") quotes, and replace them with
single double ("a") quotes... but

In my file I have the following:

=""2"" (not valid)

But also,

="" (valid)

Sometimes there is a space at the end followed by another tag:

=""3"" FrameId=""BR1""

and sometime not,

=""8wR4"">

And sometimes the value is correct:

="1"

Ayush or anyone following this thread - if you can help that would be
great - I will continue with the 'trial and error', but so far no luck.

Top

Re: RegEx Part 2 by Ayush

Ayush
Thu Jan 25 16:38:01 CST 2007

Replied to [JHP]s message :
> I want to remove all the double double (""a"") quotes, and replace them with
> single double ("a") quotes... but
> =""2"" (not valid)
> ="" (valid)
> =""3"" FrameId=""BR1""
> =""8wR4"">
> ="1"

> Ayush or anyone following this thread - if you can help that would be
> great - I will continue with the 'trial and error', but so far no luck.

Pattern:
q & q & "(\w)*" & q & q

Replace with :
q & "$1" & q

where q is Chr(34) that is "

--
â?? Ayush
-------------
Search - www.Google.com | Wikipedia - http://en.wikipedia.org
Snip your long urls - http://snipurl.com/
-------------

Top

Re: RegEx Part 2 by JHP

JHP
Thu Jan 25 17:57:12 CST 2007

Thank you so much - without you I would have been here all night - It worked
like a charm!!!

"Ayush" <"ayushmaan.j[aatt]gmail.com"> wrote in message
news:uEFwEGNQHHA.1276@TK2MSFTNGP04.phx.gbl...
> Replied to [JHP]s message :
>> I want to remove all the double double (""a"") quotes, and replace them
>> with
>> single double ("a") quotes... but
>> =""2"" (not valid)
>> ="" (valid)
>> =""3"" FrameId=""BR1""
>> =""8wR4"">
>> ="1"
>
>> Ayush or anyone following this thread - if you can help that would be
>> great - I will continue with the 'trial and error', but so far no luck.
>
> Pattern:
> q & q & "(\w)*" & q & q
>
> Replace with :
> q & "$1" & q
>
> where q is Chr(34) that is "
>
> --
> ? Ayush
> -------------
> Search - www.Google.com | Wikipedia - http://en.wikipedia.org
> Snip your long urls - http://snipurl.com/
> -------------

Top

Re: RegEx Part 2 by Ayush

Ayush
Thu Jan 25 18:02:25 CST 2007

Replied to [JHP]s message :
> Thank you so much - without you I would have been here all night - It worked
> like a charm!!!

You are welcome ..

--
â?? Ayush
-------------
Search - www.Google.com | Wikipedia - http://en.wikipedia.org
Snip your long urls - http://snipurl.com/
-------------

Top