RegEx help

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
    - scripting domain users accounts i am about to roll out a a new AD Structure. i need a script that will add about 2000 user accounts. i obviously do not want to type all of them out. is there a script that i can run that will call a text file with all the user information in it? Tag: RegEx help Tag: 165403
  - 2
    - How to compare files Hi all, I really wanted to post this to the NG dealing with batch files, but I can't remember the NG name. Can someone please reply with that group's name? Anyway... I'm looking for an easy way to determine whether or not two files are identical. I have a batch file that wants to do different things to the files based on this knowledge. I looked at FSO, but there doesn't seem to be anything helpful there. Any help would be greatly appreciated! Tag: RegEx help Tag: 165401
  - 3
    - Unsafe control Hi, I embed "month view" control in a web page. Then, I set its value to "now" (don't know any other way to always start on the current date). <p> <object classid="clsid:232E456A-87C3-11D1-8BE3-0000F8754DA1" id="MonthView1" width="345" height="244"> <param name="_ExtentX" value="7620"> [snip] <param name="MinDate" value="-53688"> </object> <script language="VBScript"> MonthView1.Value = Now </script> </p> I get the following message when rendering the page: "An ActiveX control on this page might be unsafe to interact with other parts of the page..." How to fix this? Thanks, P. Tag: RegEx help Tag: 165397
  - 4
    - VBscript and asp.... Hello gurus! I wrote a code in VBS, that will check, that current user is in one from three groups. But i don't know how asimilate it with asp.net. This page will be a bridge between 2 - main menu and report page. Tomorrow to the 8 a.m. i must do this, but i don't know how.... Can someone help me? There are few messageboxes for help. Here is my code (it's vbs): Sub Main Dim objUserName, objUserDomain, oGroup, objUser, gList, WshShell, sMessage, sTitle Dim objDomain, vDomain, vUserName Dim objChangePwdTrue, objChangePwd, objUserProfile Dim objPwdExpiresTrue, objFlags Dim objAcctDisabled, intPwdExpired, objPwdExpiredTrue Dim admin, manag, audit admin = false manag = false audit = false Set WshShell = WshShell.CreateObject("WScript.Shell") vdomain = WshShell.ExpandEnvironmentStrings("%USERDOMAIN%") vUserName = Request.ServerVariables("USERNAME") 'Request.ServerVariables("REMOTE_USER") GetInfo ' sub routing to get user information For Each oGroup In objUser.Groups If gList = "" Then gList = oGroup.Name Else gList = gList & ", " & oGroup.Name End If Next for each oGroup in objUser.Groups if oGroup.Name = "Administrators" Then admin = true msgbox(ogroup.Name) Else End if if ogroup.name = "ManagReports" Then manag = true msgbox(ogroup.name) Else End if if ogroup.name = "AuditReports" Then audit = true msgbox(ogroup.name) Else End if Next dim a If admin = true then set a = RSExecute("menugl.html") 'FRAME SRC="menugl.htmL" NAME="Podstawowa" '<FRAMESET>'</FRAMESET> End if msgbox(admin & " " & manag & " " & audit) if znaleziona then else End if end sub Sub GetInfo() sMessage = "Please enter the domain to search." & vbCrLf & vbCrLf & _ "Default is: " & vDomain & vbCrLf & vbCrLf sMessage = sMessage & "Hit Cancel or enter a blank to quit" sTitle = "Domain to Search" If vDomain = "" Then ' Cancelled by the user ' WScript.quit End If ssMessage = "" ssTitle = "" on error resume Next sMessage = "Please enter the USER Login ID" & vbCrLf & vbCrLf & _ "Default is: " & vUserName & vbCrLf & vbCrLf sMessage = sMessage & "Hit Cancel or enter a blank to quit" sTitle = "USER Login ID" If vUserName = "" Then ' Cancelled by the user WScript.quit End If Set objUser = GetObject("WinNT://"& vDomain &"/"& vUserName & "",user) If Err Then msgNoUser = "Error: Could not bind to the following user: " & vbCrLf _ & vbCrLf & "WinNT://" & vDomain &"/"& vUserName & vbCrLf & vbCrLf _ & "Please verify your domain and user name and try again" WshShell.Popup msgNoUser,0,"Error retrieving information",vbCritical GetInfo Else End If End Sub Function IsCScript() If (InStr(UCase(WScript.FullName), "CSCRIPT") <> 0) Then IsCScript = True Else IsCScript = False End If End Function Tag: RegEx help Tag: 165396
  - 5
    - Database connection error Utilized FrontPage 2003 Database Wizard to create an online feedback form. The Submission form indicates that everything transferred smoothly to the database. BUT. When I ask to see the results online or edit the database content I receive the following error. Database Results Wizard Error The operation failed. If this continues, please contact your server administrator. I've checked the ODBC connection on the server and nothing appears to be wrong. Any ideas? Dave Tag: RegEx help Tag: 165395
  - 6
    - Remap removable drive on error resume next Dim fso, WshShell '***************** Set fso = CreateObject("Scripting.FileSystemObject") Set WshShell = WScript.CreateObject("WScript.Shell") '*********************** drive_to_remap = "f:" ' Change to your letter to change Set d = fso.GetDrive(drive_to_remap) 'Check if the drive exist If Err Then err.clear else if d.DriveType = 1 then ' 1 = removable drive 'Create a Text file to call with diskpart(From XP) to change the drive letter fso.createtextfile("c:\temp\diskpartscript.txt") set script_file = fso.OpenTextFile("c:\temp\diskpartscript.txt",2,true) script_file.WriteLine "Select Volume " & drive_to_remap script_file.WriteLine "Assign" script_file.WriteLine "Exit" wshshell.run "diskpart /s c:\temp\diskpartscript.txt",1,1 end if end if Tag: RegEx help Tag: 165389
  - 7
    - Dialog box displays on server I am rather new at Web program so I am starting off with some small stuff, but still having problems. I want to display a message box to the user when they click a button, but the message box displays on the server and not on the client. Can anyone tell me what i am doing wrong? The command for the message box is: MessageBox.Show("The anniversary date has been changed for all employees", "Anniversary Date", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly) Tag: RegEx help Tag: 165388
  - 8
    - web based ftp? Hi, I desperately need a free web-based ftp script/application. Any tips will be highly appriciated /Mali Tag: RegEx help Tag: 165385
  - 9
    - Emptying a global security group Hi there I've a global security group (win2k server) containing users, I want to empty it, the problem is that I don't know what users belong to this group, I could try to remove each user of the ad but I've more than 1200 users and it could last for a long time to do it. Any idea? Thanks in advance Phil Tag: RegEx help Tag: 165384
  - 10
    - Dynamically generating server side script Anyone have any ideas or links to examples of this? Tag: RegEx help Tag: 165377
  - 11
    - Stopping USB Mass Media device via script I need to stop a USB mass media device (USB Key to be exact) as part of a data backup script - can it be done? If so, how? Lets assume it is assigned drive letter E:... Thanks dcc Tag: RegEx help Tag: 165374
  - 12
    - VBScript and opening html page How can I open html webpage from VBScript? My script is checking permissions and when see, that i have permission to see other page, then give me result. I want to open other page when i have permission for it. I have three possibilities by permissions. My question is: How open other pages by VBScript? In frame? For example: If I have 1 level VBScript open for me page1 If I have 2 level VBScript open for me page2 If I have 3 level VBScript open for me page3 Tag: RegEx help Tag: 165371
  - 13
    - adCmdStoredProcedure Const Value Any one know the value of the Constant adCmdStoredProcedure Thank You Tag: RegEx help Tag: 165370
  - 14
    - How can vbscript start an application like Excel with parameter? Hi Please excuse I'm not a native speaker. I know the following vbs-code starts Excel: dim app set app= createobject("Excel.Application") app.visible=true Now i want the following vba-code insert in my vbs-code, so this happend: the user clicks a button on my website, vbscript starts Excel ,open the file Ergebnisse.txt and make the formatsettings i want(Import the textfile etc.) vba-code: Workbooks.OpenText Filename:="C:\Ergebnisse.txt", Origin:=xlMSDOS, _ StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False _ , Space:=False, Other:=False, FieldInfo:=Array(Array(1, 2), Array(2, 2), _ Array(3, 2), Array(4, 2), Array(5, 1)), TrailingMinusNumbers:=True Any Hints? Thanks Tag: RegEx help Tag: 165367
  - 15
    - "Twistie" control Hi, Does anyone know of any controls that can be used to expand/collapse sections on a web page. I have a SQL DB and need to build a web based front end. I would like the forms to allow for various sections to be expanded and collapsed, so a user can get to where they need quickly and easily. I call them "twisties" - no idea what they are really called. For an example of what I am after, see the BMW website - if you search for a car, it displays the results. If you click on one of the results, it displays info about that car, with nice sections that are expandable/collapsable so you can read what you need/want. Copy the link below to see an example - then choose a car from the results and you will see the "twisties" that I am refering to on the right of the page. http://www.bmw.co.uk/apm/bmw_auc_profile/0,4200,1260___ns-y,00.html?seriesId=5&bodyId=LI&toPrice=70000&postcode=b9+4aa&searchtype=q -- Many thanks in advance for any assistance Tag: RegEx help Tag: 165366
  - 16
    - QUERY Question Is it possible to quesry a database from an HTML document without ASP, Internet Server and ODBC? In other words, can I just create a document with a script that querys a table in my Access database on a workstation. If so, can anyone point me in a direction on the Internet that could help me with such a task? Thank you all in advance. Tag: RegEx help Tag: 165356
  - 17
    - Display different image between dates using ASP Hello -- I would like to display a different logo on my website for different seasons of the month. I currently have a logo for Halloween, Thanksgiving, and December. Can someone tell me what VBScript/ASP code I need to display an HTML image. Basically: 1) any date from 10/01 thru 10/31 I would like to display the Halloween. 2) any date between 11/01 - 11/30, I would like to display Thanksgiven. 3) any date between 12/01 - 12/31, I would like to display the Christmas. Any help would be appreciated. Tag: RegEx help Tag: 165346
  - 18
    - Script to monitor services running Hello all.... A complete VBScript newbie here. Pardon any stupid questions that may follow, but I am hoping to learn something new. I am tasked with monitoring several services on a server on a daily basis. I was thinking about a .vbs script that could be called from a batch file ( if that is even possible ). I would like for this script to create a simple text file list of all services that are running on the server including the status of the service ( stopped, started, etc... ). If this possible, any hints as to how to go about writing this script would be greatly appreciated. Thank you, Mike Minor Tag: RegEx help Tag: 165343
  - 19
    - Scripting.FileSystemObject's stopped working Hi everyone, WhatÂ´s wrong with my test-enviroment (W2K + IIS 5.0 + ASP-pages ) on my homepc. All Scripting.FileSystemObject objects stopped working suddenly? For example following simple script seems running & running without timeout? Nothing also set fs=Server.CreateObject("Scripting.FileSystemObject") set f=fs.CreateTextFile("c:\test.txt",true) f.WriteLine("Hello World!") f.Close set f=nothing set fs=nothing IÂ´m running this script with the http://locahost/test.asp url Greetings from finland Ilari Tag: RegEx help Tag: 165340
  - 20
    - How to get e-mail address attribute from AD Using vbscript, what is a simpliar to retrieve the value for the e-mail address attribute for an AD user? The following will get the desired value, but I am curious as to why I have to do so much to get the value. I guess my main question is why do I have to perform the steps below the nametranslate comment and then having to convert results? Is there no simpliar way to get e-mail address for a username? If so would someone post the code? Thank you. Code snippet: strNTName = "xusername" ' Determine DNS domain name from RootDSE object. Set objRootDSE = GetObject("LDAP://RootDSE") strDNSDomain = objRootDSE.Get("rootDomainNamingContext") wscript.echo strdnsdomain ' Use NameTranslate to find the NetBIOS domain name ' from the DNS domain name. Set objTrans = CreateObject("NameTranslate") objTrans.Init 3, strDNSDomain objTrans.Set 1, strDNSDomain strNetBIOSDomain = objTrans.Get(3) wscript.echo strnetbiosdomain ' Use NameTranslate to convert the NT user name to the ' Distinguished Name required for the LDAP provider. objTrans.Init 1, Left(strNetBIOSDomain, _ Len(strNetBIOSDomain) - 1) objTrans.Set 3, strNetBIOSDomain & strNTName strUserDN = objTrans.Get(1) wscript.echo struserdn ' Bind to the user object in AD Set objUser = GetObject("LDAP://" & strUserDN) Wscript.Echo "SMTP Address: " & objUser.mail Tag: RegEx help Tag: 165337
  - 21
    - Setting the value of an input field I have the following code in an HTA file: <input type="text" size="50" name="Username" value="Username"> I would like to set the value for this input to be generated based upon the value stored in a file. There is VBScript that runs in this HTA that stores off this type of information and reads the file when the form loads. TIA Tag: RegEx help Tag: 165331
  - 22
    - Memory problem with Wscript when it is closing Hi, I have two problems with Wscript (WSH and VBScript), I execute a script which will create another script on a remote machine, then the remote script will execute. Every thing is fine, But sometime, I got run-time error that Wscript try to read some thing from somewhere in memory that it can not be read. And Sometime when my script finishes its execution, when Wscript is closing, Wscript try to write some thing to somewhere that it can not be written. In both case I got a popup to tell me that Wscript is not working. I use to the "Option Explicit" to force the variable declaration., And the script will keep running until I tell it to stop (via configuration file) it may run more than 5 or 6 hours. If anyone have any idea? Thanks you very much Tag: RegEx help Tag: 165330
  - 23
    - Extract phone list to web? Does anyone have some sample code I can see that will let me pull a staff phone list from AD and display it on a web page? Thanks! Tag: RegEx help Tag: 165327
  - 24
    - ANN: Admin Script Editor iTripoli, Inc. is pleased to announce the ultimate script editor for Windows administrators. Admin Script Editor (ASE) offers administrators a targeted solution to scripting with several features found nowhere else. ASE supports VBScript, KiXtart, AutoIt and Batch scripting languages? * Script Packager ? Create secure executable packages from script with the ability to run with alternate credentials. You may include support files, dictate several security options, specify an optional system tray icon and tool tip to display during execution, and more. * WMI Code Wizard ? Provides sample data for properties so you can choose which properties you wish to use. Extensive customization options allow full control over generated script code. * ScriptSense ? See the syntax for functions appear as you type. As you type each parameter for the function, that parameter is highlighted to help you keep your place. Further, nesting is supported so you can even get this support when writing functions within other functions. * Integrated Keyword Help ? ASE uses its own database of syntax, samples and more to provide keyword help for all supported languages right within the editor! * Collapsible code ? Organize your script and make it more readable with the ability to collapse regions of code. Flash movies are provided for all of these features, or download the 45 day trial version. For more details visit: http://www.adminscripteditor.com/editor/index.asp Tag: RegEx help Tag: 165326
  - 25
    - Looking for partners interested in beginning a "cut above the rest script website" I don't want to give any ideas away, but interested people: Should have mcse/a I pay for site (or you can help pay for it, if you want) We need to setup some kind of contract if this thing goes big. mail me for more details. jkoorts@myrealbox.com Tag: RegEx help Tag: 165317
- Next
  - 1
    - Sharing Folder using VBS Hi, I would like to run a script that will change a drives Sharing properties from "Do not share this folder" to "Share this folder" and set the required Shared Name. Any help would be appreciated. Tag: RegEx help Tag: 165316
  - 2
    - Registry: Read all values from certain key? Hi, I am writing an vbscript and I have to access the windows registry. To read and write a key works fine, i.e.: Set WSHShell = WScript.CreateObject("WScript.Shell") RegLocate = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Version" MyVersion = WSHShell.RegRead(RegLocate) But how do I read all values from a certain key and I donÂ´t know the names of the value. Is there a way like for each MyEntry in key msgbox MyEntry.type msgbox MyEntry.caption msgbox MyEntry.value Next The script has to run on W2K and XP. Thanks a lot J.Steinblock from germany Tag: RegEx help Tag: 165314
  - 3
    - Cookie problem from ASP on XP SP2 Hi The following code has been working fine for our site as part of the authentication process right up until the SP2 upgrade. Now on SP2 PCs the cookie isn't written even though the referer is www.abc.com. Works fine on other Windows combinations. Can anyone help? <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% If instr(Request.ServerVariables("HTTP_REFERER"), "www.abc.com") > 0 Then 'response.cookies("abcresource") = "ok" 'response.cookies("abcresource").expires = date + 1 Response.Cookies("abcresource")("Passed") = "OK" Response.Cookies("abcresource").Expires = DateAdd("d",1,Date) Response.Cookies("abcresource").Path = "/" Response.Cookies("abcresource").Domain = "www.abc2.com" End If %> <% If Len(Request.Cookies("abcresource")("Passed")) = 0 Then Session("abcresourcepage") = Request.ServerVariables("PATH_INFO") Response.Redirect("/login.asp") End If %> Thanks W Tag: RegEx help Tag: 165310
  - 4
    - RegRead Hi, I am trying to read a reg key from the registry. the problem is that if the key doesn't exist, the script jumps to "If Err.Number <> 0 Then", or cause runtime error, if i don't use "On Error Resume Next" I wanted to use it in the following way: Set RegistryOBJ = WScript.CreateObject("WScript.Shell") 'returns the path of my app writen in the registry Get_ETS_PathInRegistry = RegistryOBJ.RegRead(ETS_RegistryLocation) If ETS_UnInstallPath = False Then 'if the key doesn't exist, we can install the app Install_ETS(ETS_InstallPath) Else 'if the key exists, we should uninstall it and then install the new version(might be in new path) UnInstall_ETS(ETS_UnInstallPath) 'ETS_InstallPath is being obtained from user. Install_ETS(ETS_InstallPath) End If The problem is that it doesn;t go to the "If ETS_UnInstallPath = False Then" but as i described above, go to the end of the script and then ends the script. in this way, i will need to add in "If Err.Number <> 0 Then" "Install_ETS(ETS_InstallPath) " command. Isn't there an elegant way to do so, or i should consider doing it using VC? Tag: RegEx help Tag: 165305
  - 5
    - Where Do I Look for File Locks Using WMI ? Hi everyone, I ma trying to write a VB Script checking if a particular file is locked by other process, that is, if the handle exists. I have tried using WMI cim_datafile and Win32_Process files but I did not found anything useful. The only example I found uses .Net Framework ManagementBaseObject.GetRelated() method which does not seem to have an equivalent available from VB Script. Tom Tag: RegEx help Tag: 165304
  - 6
    - vbscript, asp, sockets responses not received Howdy People, I guess this might be more of an IIS architectural question, but there is some vbscript content, so I'll post it here. Grateful for any help people might have on this problem. I have an asp page running some vbscript. The vbscript instances a COM dll. The COM dll sends a UDP message to a process running on another server somewhere, then blocks waiting for the response. My problem is that the response is never received by the dll. I've tried running a sniffer on the web server, and it shows that the response is coming back as expected, coming to the correct port number and everything, but the dll just sits there and receives nothing. Any clues what's going on? MIKE Tag: RegEx help Tag: 165300
  - 7
    - WMI - User problem I'm completely new to scripting. I would like to write to file: name, path, target and creation date for all shortcuts on my system. I composed this script from two scripts from the Script Repository: '------------------------------shortcuts.vbs-------------------------- Const ForAppending = 8 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile _ ("C:\Scripts\Shortcuts.tsv", ForAppending, True) strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer _ & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from _ Win32_ShortcutFile") For Each objItem in colItems strCreationDate = WMIDateStringToDate(objItem.CreationDate) objTextFile.WriteLine _ (objItem.FileName & vbTab & _ objItem.Drive & objItem.Path & vbTab & _ objItem.Target & vbTab & _ strCreationDate) Next objTextFile.Close Wscript.Echo "Finished!" Function WMIDateStringToDate(dtmDate) WMIDateStringToDate = CDate(Mid(dtmDate, 5, 2) & "/" & _ Mid(dtmDate, 7, 2) & "/" & Left(dtmDate, 4) _ & " " & Mid (dtmDate, 9, 2) & ":" & _ Mid(dtmDate, 11, 2) & ":" & Mid(dtmDate, _ 13, 2)) End Function '--------------------------------------------------------------------- On my XP Home system, with only one user, this seems to work for all shortcuts, eg the shortcuts from the *All Users* Desktop and Start Menu, but not for eg the shortcuts from the *User* Desktop and Start Menu. Can anyone help, please? TIA -- Cheers, S.F. Tag: RegEx help Tag: 165294
  - 8
    - HTML DOM Hi All, I am attempting to automate a job which requires navigating through a website with internet explorer. I don't wish to use the InternetExplorer.Application object as I have found flaws with it. I am using SendKeys and WScript and the MICROSOFT.XMLHTTP object to obtain the contents of the pages as I go. In a former script I was able to obtain textbox & button objects on a page with the InternetExplorer.Application object. eg. set itms = ie.Document.All itms.username.value = user How can I acheive the same result with other objects? I have the MICROSOFT.XMLHTTP object for the page. Thanks, Jesse Tag: RegEx help Tag: 165288
  - 9
    - MAC Address IS it possible to get the MAC address of the user ? Any tips would be greatly appreciated. Thanks in advance. Tag: RegEx help Tag: 165287
  - 10
    - Enumerating Groups in ASP with IIS 6.0 I am having an issue enumerating a given users groups with the following ASP script: Sub GetGroups() Dim sDomain sDomain = "bsd-dean" UserGroups = "" if instr(1,Request.ServerVariables("LOGON_USER"),"\") > 0 then sUser = replace(Request.ServerVariables("LOGON_USER"),"\","/") else sUser = sDomain & "/" & Request.ServerVariables("LOGON_USER") end if Set oUser = GetObject("WinNT://" & sUser) For Each oGroup In oUser.Groups if UserGroups <> "" then UserGroups = UserGroups & "," end if UserGroups = UserGroups & oGroup.Name Next Response.Write UserGroups Response.Write "<br>" 'Response.Write oUser.get("name") if UserGroups<>"" then UserGroups=split(UserGroups,",") set oUser = Nothing set oGroup = Nothing end sub The script works fine on my 2000 server machine and also works for the administrator on the 2003 machine. I get the user logon infor including the domain, but I get an access denied error when it tries to read the groups that the users are in. Anybody know how to get this to work? Tag: RegEx help Tag: 165283
  - 11
    - Vbscript and WEB Can anyone point me to the right resource? I am trying to hvae a web interface for maintaining Active Directory. I want to be able to do simple functions such as changing password - listing a user's memberships, searching,etc. I have created *.vbs scritps before to run some tasks - just not sure how to integrate that onto a web form Any help will be appreciated thanks -JPierre Tag: RegEx help Tag: 165282
  - 12
    - How to connect to an access DB using vbscript Plz, how i connect to my access db (c:/mydb.mdb),retrieve information from it to a form on a web page and update it Tag: RegEx help Tag: 165274
  - 13
    - Registry key with spaces not reading correctly The code below seems to work unless the Registry key has spaces like RAM Structural System v8.2 in the key. If I use a key that does not have spaces it works fine. Do I need to put additional quotes or something ? Thanks in advance Steve If RegKeyExists("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\RAM Structural System v8.2") Then WScript.Echo "Ram 8.2 Installed" End if Function RegKeyExists(ByVal sRegKey) ' Returns True or False based on the existence of a registry key. Dim sDescription, oShell Set oShell = CreateObject("WScript.Shell") RegKeyExists = True sRegKey = Trim (sRegKey) If Not Right(sRegKey, 1) = "\" Then sRegKey = sRegKey & "\" End If On Error Resume Next oShell.RegRead "HKEYNotAKey\" sDescription = Replace(Err.Description, "HKEYNotAKey\", "") Err.Clear oShell.RegRead sRegKey RegKeyExists = sDescription <> Replace(Err.Description, sRegKey, "") On Error Goto 0 End Function Tag: RegEx help Tag: 165268
  - 14
    - Save a file in internet explorer I use the following script to navigate to a site set objexplorer = createobject("InternetExplorer.Application") objexplorer.navigate http://10.3.1.48/devadmin/sys_adm.dhtml I would like to use vbscript to save the page to a file. Any one know the syntax thank you Tag: RegEx help Tag: 165266
  - 15
    - Script has stopped transfering files I have been using a script to transfer files from several remote servers on a daily basis. Up till now the script has been functioning as it should, however I noticed this morning that my script was generating the "Job Finished" echo way too quickly so I checked the contents of the mapped shares and found that the files were still there. After commenting out the "On Error Resume Next" the following error popped up: Error: File already exist. Code: 800A003A Source: Microsoft VBScript runtime error The line that is referenced is the 'objFileSystemObject.CopyFile' portion of Sub Transfer. While there are files in that New Directory that might have the same name, why didn't the OverWriteFiles option ignore this? Dim objWshNetwork, objWshShell ' On Error Resume Next Set objWshNetwork = WScript.CreateObject("WScript.Network") objWshNetwork.RemoveNetworkDrive "m:" objWshNetwork.MapNetworkDrive "m:", "\\server\share" Call Transfer objWshNetwork.RemoveNetworkDrive "m:" WScript.Echo "Test Finished!" ' Sub routine for moving Audit results from the local DC Sub Transfer Dim objFileSystemObject Set objFileSystemObject = WScript.CreateObject("Scripting.FileSystemObject") Set objFolder = objFileSystemObject.GetFolder ("m:\Data") If objFolder.Files.Count > 0 Then objFileSystemObject.CopyFile "m:\Data\*.xml", "T:\New Directory\Data", OverWriteFiles objFileSystemObject.DeleteFile "m:\Data\*.xml", Force End If End Sub Tag: RegEx help Tag: 165265
  - 16
    - mouse control is there script that may simulate all user's action: a) keyboard press, letters as well special win keys like alt+enter b) mouse moving [pointer moving accross the screen] and click and double click the idea is to have recorded [i'll rather say programaticaly "constructed"] all keyboard and mouse activities and than making "replay" i suppose to have some control data file like: <mouse_to> x1,y1 <wait> 1 second <mouse_click> <mouse_drag_to> x2,y2 <mouse_click> etc... script is reading that control file and performing action [moving mouse] accros the screen. this could allow me to controll some other win program, exactly as user sitting in front of display. is it possible? is there some script or com object or whatever? Tag: RegEx help Tag: 165264
  - 17
    - Remove Security Groups How can I, or what would be an efficient method to remove all but the default security groups from a 1000+ user accounts. Can I just move all of the accounts to a specific container and apply a policy that will do this or is there another method that is recommended? Tag: RegEx help Tag: 165260
  - 18
    - Problem inserting record into MS Access Hi I use the following VBScript to insert records into a MS Access db located on our company server: cn.Mode=adModeReadWrite If Request.QueryString("Option")="ADD" Then cn.Execute "INSERT INTO RPTFAVORITES (RPTFK, UID) " & _ "VALUES(" & Request.QueryString("ReportID") & _ ",'" & Request.QueryString("User") & "')" End If I have set up the DB on my client and when I run the app on my "localhost" it works perfectly. However when I run the app on the server I get the following error Error Type: Microsoft OLE DB Provider for ODBC Drivers (0x80004005) [Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query. I suspect this has something to do with permissions. I have assigned the default group account "users" to all tables. The users account has all permissions set to TRUE. Are there any other permissions to be set? Any ideas? PO Tag: RegEx help Tag: 165252
  - 19
    - Script connection to SQL Server db Hi NG, from within a script, I want to connect to a SQL Server database using a dedicated user account that has 'INSERT' rights for a special table within this db. As this table contains sensitive data, we want to use an account with just this right so that anybody who guesses the password cannot read the data. The SQL server uses Windows NT authentication ONLY (no mixed security). How must I construct the ADO connection to use the dedicated user account for the connection? So far, I have scripts that authenticate an ADO connection using a SQL server account (with SQL server in mixed security), but I cannot figure out how to use a different domain user when connecting to a SQL server with Windows NT authentication. Is this even possible??? Tag: RegEx help Tag: 165251
  - 20
    - Attaching A Dos Window I would like to run a script and have it open a Command/DOS window and send all its outputs to the window. Is there a easy way to do this? Thanks, Ken Tag: RegEx help Tag: 165250
  - 21
    - A Single Task Question Hi Everyone: I have a single task. I need to update some of the file properties fields of about 300 image files for a wedding I just completed. I want to update the 'Author' and 'Copyright' fields, but I don't want to have to right- click, open the properties sheet, etc etc etc. Can I do this in VB Script? I've been scanning the docs on Microsoft.com and it's not readily apparent. I'm a SQL person primarily, so VB is kinda alien. Any suggestions or pointers or doc references will be appreciated. TIA, Mike Tag: RegEx help Tag: 165247
  - 22
    - Go to linenumber Hi, What is the syntax for going to a particular line number to start processing. I want to stop reading at one point in the script and then start processing at say line number 20 is there a way in VBScript,WMI etc xor Tag: RegEx help Tag: 165237
  - 23
    - how to change static DNS configuration to automaticaly DNS Hi! I'm trying to write a script that should change from static IP and DNS to automaticaly obtain the IP address and DNS too. I've already made the first point that is: static IP ---> automatically IP But the second point no... static DNS ---> automatically DNS Can somenone help me?... Thanks Nuno strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colNetAdapters = objWMIService.ExecQuery _ ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") Set colNetCards = objWMIService.ExecQuery _ ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True") For Each objNetAdapter In colNetAdapters errEnable = objNetAdapter.EnableDHCP() errEnable = objNetAdapter.SetDynamicDNSRegistration() Next For Each objNetCard in colNetCards objNetCard.SetDynamicDNSRegistration True, True Next Tag: RegEx help Tag: 165234
  - 24
    - server-side editing of HTML via vbscript I have a series of pages that are assembled dynamically from various sources. Before the page is returned to the client, I want to find an anchor matching a URL that's stored in a var. Then I will change the class of that anchor. It's easy enough to do this client-side, but I would much rather do this server-side. I'm pretty new to ASP scripting, but I'm inclined to think there's some way to use the DOM to get what I want. I'd searched this group repeatedly and can't find anything on this point. I'd sure appreciate any approach to this. Jeff Tag: RegEx help Tag: 165233
  - 25
    - The most powerfull group for account? Hello! How to obtain the most powerfull account for the group? If account is in: users domain users administrators domain administrators I want to take only domain administrators. Anyone can help me? Tag: RegEx help Tag: 165232

I'm fairly new to regular expressions but I'm trying to create one which will
make keywords in a string bold on a web page. To identify the keywords in the
string I'm using the following Regular Expression, which mostly works, unless
there is a <br> directly before or after the keyword. If there is a <br>
directly before or after, the word before or after the <br> is also shown
bold.

"(\s{0,1}\S*(" + keywordArray(jLoop) + ")\S*\s{0,1})"
description = regEx.Replace(description, "<b>$1</b>")

I'm trying to match any words which contain the keyword, not just equal the
keyword.

Can anyone help? Thanks,

Carolyn

Top

RE: RegEx help by CarolynSpeakman

CarolynSpeakman
Fri Nov 05 06:30:03 CST 2004

Nevermind, done it with the expression below.

"([ ]{0,1}[^> ]*(" + keywordArray(jLoop) + ")[^< ]*[ ]{0,1})"

Thanks anyway,
Carolyn

"Carolyn Speakman" wrote:

> I'm fairly new to regular expressions but I'm trying to create one which will
> make keywords in a string bold on a web page. To identify the keywords in the
> string I'm using the following Regular Expression, which mostly works, unless
> there is a <br> directly before or after the keyword. If there is a <br>
> directly before or after, the word before or after the <br> is also shown
> bold.
>
> "(\s{0,1}\S*(" + keywordArray(jLoop) + ")\S*\s{0,1})"
> description = regEx.Replace(description, "<b>$1</b>")
>
> I'm trying to match any words which contain the keyword, not just equal the
> keyword.
>
> Can anyone help? Thanks,
>
> Carolyn
>
>

Top

RE: RegEx help by CarolynSpeakman

CarolynSpeakman
Fri Nov 05 07:49:02 CST 2004

For anyone who is interested, the final Pattern I've found is:

"([\w]*(" + keywordArray(jLoop) + ")[\w]*)"

Top