read text from html table cell containing and anchor tag

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
    - RegExp without duplicate matches I using the following to create hyperlinks of every 7 digit number in an html table. The problem is there are some duplicate numbers and they create href's within href's. How do I get rid of the duplicates in a matches collection before I use vbscript's replace function? I first thought of using regular expression's replace method and sub-matches but wasn't successful. The desired result is given 1234567 create href="./7/1234567.shtml" sub MakeHyperlinks(strTable) dim match, regEx set regEx = Server.CreateObject("VBScript.RegExp") regEx.Global = True regEx.Pattern = "\d{7}" for each match in regEx.Execute(strTable) strTable = Replace( _ strTable, _ match, _ "<a href=""./" & right(match,1) & "/" & match & ".shtml"">" & match & "</a>") next set regEx = nothing end sub thanks LJB Tag: read text from html table cell containing and anchor tag Tag: 189949
  - 2
    - Read folder/file security Hi, Can anyone tell me how I can read the security settings of a local folder and file with vbs? Thx. Tag: read text from html table cell containing and anchor tag Tag: 189933
  - 3
    - Renaming Computer AND Join a Domain Hello all, I want to rename a computer and then join the domain WITHOUT a reboot This code works BUT The Account created on the domain uses the old computer name (but the DNS Name field is using the new name). Do I have to use the MoveHere method of ADSI to apply the new name to the account or there is a better way? '************** RENAME ************** NewName = "VBTest" Set objWMIService = GetObject("Winmgmts:root\cimv2") For Each objComputer in objWMIService.InstancesOf("Win32_ComputerSystem") objComputer.rename(NewName, NULL, NULL) Next '************** JOIN DOMAIN ************** strDomain = "ActiveDirectory" strPassword = "password" strUser = "username" Set objNetwork = CreateObject("WScript.Network") strComputer = objNetwork.ComputerName Set objComputer = GetObject _ ("winmgmts:{impersonationLevel=Impersonate}!\\" & strComputer & _ "\root\cimv2:Win32_ComputerSystem.Name='" & strComputer & "'") objComputer.JoinDomainOrWorkGroup(strDomain, strPassword, strDomain & _ "\" & strUser, NULL, 1 + 2) Tag: read text from html table cell containing and anchor tag Tag: 189931
  - 4
    - Record URL in database I have a file that has table with 5 rows and 5 columns. I have named this file as index.asp on the IIS Inetpub directory. Every cell in this table has a onclick event. Whenever user clicks on any cell out of these 25 cells in the table, a new window opens. I want to capture this url and put it in the MS Access database (The database has just one field - URL). In short, I want to see which cell get most number of clicks. The reason why I just don't want the click count and want to record the URLs because today the first cell will open a website and tomorrow there would be a different website on the same cell. What vbscript code do I have to write and how will I link it to the tables? Tag: read text from html table cell containing and anchor tag Tag: 189921
  - 5
    - Problem walking through Radio buttons For intPosIdx = 0 To Document.formname.fieldname.length - 1 If Document.formname.fieldname(intPosIdx).checked Then blnSelFd = "Y" Exit for end if Next However, if there is a single radio button this code fails. I my scenario 1-n radio buttons may be available. How do I code to take care of the single button scenario also? -- --------------------- Thanks Rajiv Das Tag: read text from html table cell containing and anchor tag Tag: 189920
  - 6
    - Question Enumerating scheduled job. I am aware that we can use w32_scheduledjob class to enumerate the task scheduler's job. However, this is only for jobs that are scheduled using the "at" command. Is there way to enumerate for those scheduled jobs created with the wizard ? Thanks. Tag: read text from html table cell containing and anchor tag Tag: 189914
  - 7
    - Script to configure DNS I am trying to write a script to un-check the DNS box "Register Connection's Addresses in DNS" on a windows XP Professional workstation. It is changing the wring box. Does anyone have the code to accomplish this task? Thanks in advance. Ray Tag: read text from html table cell containing and anchor tag Tag: 189912
  - 8
    - Delete files in a folder Hello, In the scriptcenter of MS I found a little script to remove all files from a folder. It works perfect except when there a files in that folder that are in use. In that case the script crashes with a RT-error: Access denied - code 800A0046. The directory I need it for must be cleaned up everyday but there are always files of the current day in use. Could someone help me to modify the current script so it will cleanup all files except the one's in use. The current script is: Const DeleteReadOnly = TRUE Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.DeleteFile("F:\webMethods\IntegrationServer4\logs\*.*"), DeleteReadOnly Thanks Frank -- FVG ------------------------------------------------------------------------ Posted via http://www.codecomments.com ------------------------------------------------------------------------ Tag: read text from html table cell containing and anchor tag Tag: 189907
  - 9
    - Bonkers Hello, I sure hope someone can pull my head out... OK, I have a USB device that I want to see if its present or plugged in. Now, this works fine, using cscript on the client as a VBS: ********************************************************** Const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." strValue = "Device Not Found!" Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_PnPEntity WHERE service = 'HidUsb'",,48) For Each objItem in colItems strKeyPath = "SYSTEM\CurrentControlSet\Enum\" & objItem.DeviceID Next if len(strKeyPath) > 1 then Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strEntryName = "LocationInformation" objReg.GetExpandedStringValue HKEY_LOCAL_MACHINE, strKeyPath, strEntryName, strValue end if Wscript.Echo strValue ********************************************************** When the device is attached objItem.DeviceID returns a portion of the registry KEY, and I get the value from the registry LocationInformation. When unplugged I get Device Not Found! Wonderful, works great. Problem... How would I do this using ASP and client side scripting? IIS6.0 would be the host of the ASP, clients are Windows XP Pro. Nothing fancy, just a response.write to the clients browser with whats contained in strValue. Thanks ninefofo Tag: read text from html table cell containing and anchor tag Tag: 189906
  - 10
    - Problem Using ObjUser.Title with WinNT:// Hello, I am trying to update Title information of multiple users using following script. I would like to know what would be the correct namespace/object which I need to use with WinNT:// for ObjUser.Title. It seems ObjUser.Title is compatible with LDAP:// and not with WinNT://. When I run the script I get -2147463153 error. Password change at next login setting works fine. I did Google for the same but did not find anything helpful. Hoping I might get some help here. -------------------------- Function IsAccountDisabled( strDomain, strAccount ) Dim objUser Set objUser = GetObject("WinNT://" & strDomain & "/" & strAccount & ",user") IsAccountDisabled = objUser.AccountDisabled End Function Dim strUser, strDomain, objUser, fso, tf, tf1, strTXT strTXT = Replace(CStr(Date),"/","-") & "_" strTXT = strTXT & Replace(CStr(Time),":","-") Set fso = CreateObject("Scripting.FileSystemObject") Set tf1 = fso.CreateTextFile("\\somepath\" & "Done_" & strTXT & ".txt", True) Set tf = fso.CreateTextFile("\\somepath\" & "Errors_" & strTXT & ".txt", True) Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open _ ("D:\somepath\UserInfoUpdate.xls") intRow = 2 Do Until objExcel.Cells(intRow,1).Value = "" On Error Resume Next strAccount = objExcel.Cells(intRow, 2).Value strDomain = "my.domain.com" Set objUser = GetObject("WinNT://" & strDomain & "/" & strAccount & ",user") If (IsAccountDisabled(strDomain, strAccount) = -2147022675) Then 'Wscript.Echo Err.Number tf.WriteLine( "UserName - " & strAccount & " dosn't exist or there is a typo in the username.") Else 'Wscript.Echo Err.Number tf1.WriteLine(strAccount & "'s account properties have been updated.") objUser.PasswordExpired = 1 objUser.title = cstr(objExcel.Cells(intRow, 5).Value) Wscript.Echo Err.Number objUser.SetInfo End if intRow = intRow + 1 Loop objExcel.Quit -------------------------------------------------- Tag: read text from html table cell containing and anchor tag Tag: 189901
  - 11
    - Changing IE Settings I'm attempting to write an HTA that to allow users to toggle the IE proxy server between one of two servers we use or toggle it between enabled and disabled. We have IE setup so proxy settings are per machine so, as far as I can tell, that should put me addressing only these two keys... (string) HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer (dword) HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable I can change the keys with a script, but when I go into the browser and drill down through the tools menu the changes don't appear. Anyone know why that is? Thanks, Tom Tag: read text from html table cell containing and anchor tag Tag: 189898
  - 12
    - Convert Win32 error code to text Hi all, How do I convert a win32 error code into either the error macro or the error description in a VBS applet? For example, if I input 32, I want it to output ERROR_SHARING_VIOLATION, or "The process cannot access the file because it is being used by another process." (The former ideally.) I know I could have the winerr.h file handy and parse that, but I'm sure there must be an easier way. Cheers Mark Tag: read text from html table cell containing and anchor tag Tag: 189894
  - 13
    - HTA position Is there a way to have a HTA box startup in a certain X,Y position on the screen? Tag: read text from html table cell containing and anchor tag Tag: 189893
  - 14
    - Script to create environment variable containing serial number I am trying to write a simple script to query the BIOS for the system serial number, then save that to an environment variable (unless blank). My knowledge of scripting is very limited so my my progress has been pretty slow. Does anyone have some tips or sample scripts that may get me on the right path? Thanks! Tag: read text from html table cell containing and anchor tag Tag: 189888
  - 15
    - Detect valid URL from within a webpage I have a website that uses iframes, within one of these iframes, I have a HTML form that asks for a user input. The frame is then updated with a page based on the users input. example User is asked to enter a Customer Number - i.e. 12345 The iframe is then loaded with the webpage - /customer/12345/index.htm If the customer number is invalid, I get a 404 error returned, as it cannot find the page. I am unable to have custom error pages, so would like a way of checking if the link exists first and then loading either the correct page or a failure page into the iframe. Any help greatly appreciaed. I am currently using the following code <script language="vbscript"> sub chkpass dim sPwd sPwd = document.mainform.password.value window.location = "customer\\" & sPWD & "\\index.htm" end sub </script> <body> <form name="mainform"> Cutomer ID : <input name="password" type="text" value=""> <INPUT name="button" onClick="chkpass" type="button" value="Go"> </form> </body> Tag: read text from html table cell containing and anchor tag Tag: 189887
  - 16
    - help with if logic problem I wrote a script that gets the MAC addresses of a vendor device. The problem I encounter is the process can return 2 or three MAC addresses. I know that two of them are always bogus. For example, When I run the process it returns 010203040506(bogus) 00157010f99C(valid) -will be different based on device. 000000000000(bogus) The valid MAC seems to show up in first, second or last , so using a Left or mid will not work. I don't know how to go about the logic , when I come across the two bogus MACS to still continue. IF I come across 000000000000 or 010203040506 still continue. OR if it so happens a valid MAC is first, store that MAC and exit process. Tag: read text from html table cell containing and anchor tag Tag: 189884
  - 17
    - Change Value Data in Script I need help with a script for about 3000+ PCs, the value I am trying to change is in regedit. But will be different for each workstation it touches. The value I am trying to change is that of network printers which is going to be different for it PC. The string Im editing is "PNAME" = "\\server\printer,0" To "PNAME" ="\\server\printer,1" So basically all I need to do is switch the 0 to a 1 on the printer options. I have scripts to change the whole thing but none to change if the printer is going to be different everytime. Any Suggestions would be helpful? Tag: read text from html table cell containing and anchor tag Tag: 189875
  - 18
    - Script to ping specific hostnames I am looking for a script (or utility) that will import a text or CSV file of multiple hostnames, ping them, and then output the results to a text or CSV file. Anyone have anything like this? Thanks very much in advance, Phil Tag: read text from html table cell containing and anchor tag Tag: 189872
  - 19
    - Targeting VBScript to rename PCs I am working on a project to clean up our AD environment. I am working on three initiatives: Remove aged accounts, Move Computers to the correct OU based on subnet, and rename all computers with predefined designation and last 7 characters of the serial. I am not a very good scripter but I have managed to pull off the first two. I have the script for the last one working but not in the automated fashion I need. I can run it against an inputbox for the target but I really need to run it against a text list of computers. So basically I need helpwith an array that pulls from a list of targets . I have found some info but am having trouble getting it to work.. Below is the current functional script minus any arrayâ?¦ My eventual plan is to have a text box at start of the script that asks if it should prompt for single target or run against pre set text fileâ?¦ any help would be appreciated.. Thank you 'On Error Resume Next '*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*# 'Rename PC and domain machine account '4/5/2006 Added WMI variable creation for new name 'Added reboot '*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*# '##################################################### 'Variables '##################################################### Dim sNewCname Dim sOldCname Dim StrUsername Dim StrPassword Dim StrFullSer, StrTrimmedName sOldCname = InputBox("Enter computers current name") StrUsername=InputBox("Enter Domain Username:") StrPassword=Inputbox("Enter Domain User Password:") '******************************************************** 'Create Function '******************************************************** Function Rencomp() '##################################################### ' WMI pull serial and append to pre set name ' WMI pull serial and create new name added 4/4/06 ' Trim serial to right 7 and append preset '##################################################### msgbox ("sOldCname: " & sOldCname) Set objWMIService = GetObject("winmgmts:\\" & sOldCname & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_Systemenclosure") For Each objItem in colItems StrFullSer= objItem.SerialNumber next 'msgbox ("StrFullSer: " & StrFullSer) StrTrimmedSer = trim (StrFullSer) 'msgbox ("StrTrimmedSer: " & StrTrimmedSer) sTrimmedName = Right(StrTrimmedSer, 7) 'msgbox ("sTrimmedName 7 : " & sTrimmedName) sNewCname = ("NUSEGLLU" & sTrimmedName) 'msgbox ("sNewCname Complete: " & sNewCname) '##################################################### 'create Shell '##################################################### 'open the file system object Set oFSO = CreateObject("Scripting.FileSystemObject") set WSHShell = wscript.createObject("wscript.shell") '##################################################### 'Rename PC ' yesno to commented out after addition of array '##################################################### yesno = MsgBox _ (sOldCname & " will be renamed to: " & sNewCname, _ vbYesNo, "Script continue") if yesno = 6 then Call WSHShell.Run("cmd.exe /k NETDOM RENAMECOMPUTER " & sOldCname & " /newname:" & sNewCname & " /userd:" & StrUsername & " /passwordD:" & strPassword & " /force ") '##################################################### ' Reboot PC '##################################################### WScript.Echo "Rebooting..." set objWSHShell = WScript.CreateObject("WScript.Shell") objWSHShell.LogEvent 0, "Computer renamed from: " & sOldCname & " To: " & sNewCname objWSHShell.Run "shutdown.exe -r -m \\" & sOldCname else Msgbox "Rename Aborted!" end if '******************************************************** end Function rencomp -- System Admin Tag: read text from html table cell containing and anchor tag Tag: 189865
  - 20
    - How to identify W2k versions? Hi I need to identify if the operating system is Windows 2000 Server or Professional. I was hoping to use the OS version number but they are the same for both systems. Is there another way to do this without using the OS name to check if it contains "Server" or "Professional"? Regards Wayne Tag: read text from html table cell containing and anchor tag Tag: 189861
  - 21
    - Locate a substring in a string HI Does VB5 have a function like Pascal's "POS" or "CHARINDEX" in SQL? I need to find the index of a specific substring in a string. cheers Henry Tag: read text from html table cell containing and anchor tag Tag: 189856
  - 22
    - Dynamic variables? What I like to use in VBS is what I used in Foxpro/Clipper a long time ago : (see http://www.ghservices.com/gregh/clipper/trix0003.htm) X := 10 Y := 'X' ? &Y. Displays 10 Here is another example: 01 X := 10 02 Y := 'X + 1' 03 ? &Y. // Displays 11. Here is the first step, substitution: 03 ? &'X + 1'. The macro operator and period cancel the quotes: 03 ? --X + 1-- Which leaves this code: 03 ? X + 1 Is this in any way possible with VBS ? Best regards, Gert Tag: read text from html table cell containing and anchor tag Tag: 189854
  - 23
    - Differneces between GetObject and ConnectServer ? I have a script that has been running well using GetObject srings (#1 below) to access registry info on remote servers. I have recently changed this to a ConnectServer string (#2 below) to access servers running in non-trusting domains and workgroups so I can pass credentials. All other WMI requests are working but the GetString function fails (#3 below). Is the ConnectServer function only good for standard WMI collections and not accessing registry info or am I missing something? Hopefully a second pair of eyes can see my mistake. Thanks in advance for any input. (#1) Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" _ & strComputer & "\root\default:StdRegProv") (#2) Set objReg = SWBemlocator.ConnectServer(strComputer, _ "\root\default:StdRegProv",strUserName,strPassword) (#3) objReg.GetStringValue HKEY_LOCAL_MACHINE,strSAVKeyPath,_ strSAVValueName,strAV Dale Tag: read text from html table cell containing and anchor tag Tag: 189848
  - 24
    - Local Group Policy editing with VBscript Hi all. I would like to change one setting in Local GP. The thing is, when yo remove PC from domain and reboot it, you can not connect to it remotel anymore. There is one setting which, unfortunately, cannot be set wit AD. Does anyone know, how to modify Local GP? Thanks - mcmalla ----------------------------------------------------------------------- Posted via http://www.codecomments.co ----------------------------------------------------------------------- Tag: read text from html table cell containing and anchor tag Tag: 189847
  - 25
    - Help to mak VBScript Hi. I trying to make a VBScrip that take 2 files (ABC.ful and ABC.log) in Server A, Zip this two files in ABC.zip (maybe in WINZIP version 9), than move this ABC.file to server B and at least delete from server A the original files (ABC.ful and ABC.log). The problem that i have is that ABC.ful have 8.5Gb. Anybody have smoe idea to do that ? Thanks. Alexandre Fernandes Tag: read text from html table cell containing and anchor tag Tag: 189845
- Next
  - 1
    - File.Move "Permission Denied" Error I have been struggling with this problem, and can't seem to find any relief, so I appeal to you Visual Basic Scripting experts to alleviate my burden. I'm writing a script that checks the contents of some ini type files, and attempts to move them to a folder if they meet certain requirements. Here is a snippet of the code: Set FsoObject = WScript.CreateObject("Scripting.FileSystemObject") If Not FsoObject.FolderExists("C:\Program Files\FCS\WSO\Components\Backup\") Then FsoObject.CreateFolder("C:\Program Files\FCS\WSO\Components\Backup\") End If Dim fil Dim fil2 Set NetworkFolder = FsoObject.GetFolder("S:\Apps\WSO-RPTS") Set LocalFolder = FsoObject.GetFolder("C:\Program Files\FCS\WSO\Components") Nothing too mind blowing so far, I presume. It all works peachy up to this point, and for a bit more: For Each Fil in NetworkFolder.Files If fil.Type = "WSW File" Then Set INIFile = FsoObject.OpenTextFile(fil) strText = INIFile.ReadAll ReportCategory = GetINIString("REPORT","CATEGORY", fil, strText) ReportTitle = GetINIString("REPORT","TITLE", fil, strText) For Each Fil2 in LocalFolder.Files If fil2.Type = "WSW File" Then Set INIFile = FsoObject.OpenTextFile(fil2) strText = INIFile.ReadAll ReportCategory2 = GetINIString("REPORT","CATEGORY", fil2, strText) ReportTitle2 = GetINIString("REPORT","TITLE", fil2, strText) If ReportCategory2 = ReportCategory and ReportTitle2 = ReportTitle Then fsoObject.MoveFile fil2.path, fil2.ParentFolder & "\Backup\" 'fil2.Move "C:\Program Files\FCS\WSO\Components\Backup\" End If End If Next fil.Copy "C:\Program Files\FCS\WSO\Components\", True End If Next The GetINIString Function is working great, it seems to be the problem arises with this line from hell: fsoObject.MoveFile fil2.path, fil2.ParentFolder & "\Backup\" This was a replacement for: fil2.Move "C:\Program Files\FCS\WSO\Components\Backup\" Which replaced: fil2.Copy "C:\Program Files\FCS\WSO\Components\Backup\" fil2.Delete Each of these lines gives me a "Permission Denied" error. The fil2.Copy line appears to work, but the fil2.Delete gives me Permission Denied. Every other post I read on this subject has people replying with comments such as: "Make sure you have permissions." I do, as evidenced by the fact that I can move these files manually to my heart's content. However, I'm really only content doing that a few times, before I find myself wishing that the darn script would work, so my heart could find contentment elsewhere. Please, I implore you, help me see the error of my ways. Thank you. Tag: read text from html table cell containing and anchor tag Tag: 189839
  - 2
    - Virtual Directories Anyone know how to use VBscript to check for virtual directories like iissamples and if they exist write to a text file? Tag: read text from html table cell containing and anchor tag Tag: 189837
  - 3
    - "Unterminated string constant" error in HTA Hello all. Using a "Message to Users" script from: http://groups.google.com/group/microsoft.public.scripting.vbscript/browse_thread/thread/34e5fa19a0a7099b/56255f380bb2fc1f?#56255f380bb2fc1f I've modified it slightly and I'm using it in a script that copies files. Works great: ****************** BEGIN CopyFiles.vbs ****************** Const OverwriteExisting = True Const OverWriteFiles = True Set objFSO = CreateObject("Scripting.FileSystemObject") Set objShell = CreateObject("WScript.Shell") Dim strSource, strDest, strTitle strSource = "c:\source" strDest = "c:\dest" strTitle= "Progress Tracker" ShowTracker oIe sInsert = "Copying files. Please wait...<br />" oIe.document.parentWindow.document.script.listop sInsert objFSO.CopyFolder strSource, strDest, True oIe.document.parentWindow.document.script.listop "<p>" sInsert = "Finished copying files.<br />" oIe.document.parentWindow.document.script.listop sInsert ccSleep 1 On error resume Next oIe.quit On error goto 0 Function ShowTracker (roIe) nScrW= createobject( _ "htmlfile").parentWindow.screen.availWidth nScrHt= createobject( _ "htmlfile").parentWindow.screen.availHeight Set roIe = createobject( _ "internetExplorer.application") roIe.navigate("about:blank") Do ccSleep 0 Loop until roIe.readyState=4 With roIe .fullScreen= true .toolbar = false .statusBar = false .addressBar = false .resizable= false .width= 500 .height= 200 .left= (nScrW -500) \2 .top= (nScrHt -200) \2 With .document .writeLn ("<!doctype html public>") .writeLn ("<html style=""border-style:outset;" _ & "border-width:4px"" " _ & "onKeyDown=""vbscript:SuppressKeys"" " _ & "onHelp=""vbscript:SuppressIeFns"" " _ & "onContextMenu=""vbscript:SuppressIeFns"">") .writeLn ("<head>") .writeLn ("<title>" & strTitle & "</title>") .writeLn ("<style type=""text/css"">") .writeLn ("body {background-color:#C0C0C0;" _ & "text-align:center;" _ & "vertical-align:middle}") .writeLn ("</style>") .writeLn ("<script language=""vbscript"">") .writeLn ("function SuppressKeys ()") .writeLn ("select case window.event.keyCode") .writeLn ("case 112, 114, 116") .writeLn ("case else: if NOT " _ & "cbool(window.event.ctrlKey) then " _ & "exit function") .writeLn ("end select") .writeLn ("window.event.keyCode= 0") .writeLn ("window.event.cancelBubble= true") .writeLn ("window.event.returnValue= false") .writeLn ("end function") .writeLn ("function SuppressIeFns ()") .writeLn ("window.event.cancelBubble= true") .writeLn ("window.event.returnValue= false") .writeLn ("end function") .writeLn ("function ListOp (usInsert)") .writeln ("window.insertfile.insertAdjacentHtml " _ & """beforeBegin"", usInsert") .writeln ("window.insertfile.scrollIntoView") .writeLn ("end function") .writeLn ("</script>") .writeLn ("</head>") .writeLn ("<body scroll=""no"">") .writeLn ("<table>") .writeLn ("<tr>") .writeLn ("<td style=""text-align:center;" _ & "font-family:Arial;font-size:16pt;" _ & "font-weight:bold"">") .writeLn ("Progress Tracker") .writeLn ("</td>") .writeLn ("</tr>") .writeLn ("<tr>") .writeLn ("</td>") .writeLn ("</tr>") .writeLn ("<tr>") .writeLn ("<td style=""padding-top:10px"">") .writeLn ("<div id=""progresslist"" " _ & "style=""height:115px;width:425px;" _ & "max-height:100%;max-width:100%;" _ & "padding-left:10px;text-align:left;" _ & "font-family:Arial;font-size:10pt;" _ & "font-weight:bold;border-style:inset;" _ & "border-width:thin;overflow:scroll"">") .writeLn ("<span id=""insertfile""></span>") .writeLn ("</div>") .writeLn ("</td>") .writeLn ("</tr>") .writeLn ("<tr>") .writeLn ("<td style=""padding-top:10px;" _ & "width:200px;font-family:Arial;" _ & "font-size:10pt;" _ & "font-weight:bold"">") .writeLn ("</td>") .writeLn ("</tr>") .writeLn ("</table>") .writeLn ("</body>") .writeLn ("</html>") End With .visible= true End With ccSleep 0 objShell.appActivate strTitle End function ' ShowTracker Sub ccSleep(seconds) cmd = "%COMSPEC% /c ping -n " & 1 + seconds & " 127.0.0.1>nul" objShell.Run cmd,0,1 End Sub '~~~ Cleanup Set objFSO = nothing Set roIe = nothing ****************** END CopyFiles.vbs ****************** When I try to turn CopyFiles.vbs into an HTA, I run into a problem. I get the following error: A Runtime Error has occurred. Line: 115 Error: Unterminated string constant Line 115 corresponds to the following line: .writeLn ("</script>") in the following script: ****************** BEGIN CopyFiles.HTA ****************** <html> <head> <title>Copy Files</title> <HTA:APPLICATION ID="HTAUI" APPLICATIONNAME="Copy Files" SCROLL="no" SINGLEINSTANCE="yes" WINDOWSTATE="maximized" > </head> <SCRIPT language="VBScript"> Const OverwriteExisting = True Const OverWriteFiles = True Set objFSO = CreateObject("Scripting.FileSystemObject") Set objShell = CreateObject("WScript.Shell") Dim strSource, strDest, strTitle strTitle= "Progress Tracker" Sub Window_Onload self.Focus() self.ResizeTo 500,325 self.MoveTo 200,100 End sub Sub SourceSub strSource = SourceSelect.Value End sub Sub DestSub strDest = DestSelect.Value End sub Sub CopyFilesSub ShowTracker oIe sInsert = "Copying files. Please wait...<br />" oIe.document.parentWindow.document.script.listop sInsert objFSO.CopyFolder strSource, strDest, True oIe.document.parentWindow.document.script.listop "<p>" sInsert = "Finished copying files.<br />" oIe.document.parentWindow.document.script.listop sInsert ccSleep 1 On error resume Next oIe.quit On error goto 0 End Sub Function ShowTracker (roIe) nScrW= createobject( _ "htmlfile").parentWindow.screen.availWidth nScrHt= createobject( _ "htmlfile").parentWindow.screen.availHeight Set roIe = createobject( _ "internetExplorer.application") roIe.navigate("about:blank") Do ccSleep 0 Loop until roIe.readyState=4 With roIe .fullScreen= true .toolbar = false .statusBar = false .addressBar = false .resizable= false .width= 500 .height= 200 .left= (nScrW -500) \2 .top= (nScrHt -200) \2 With .document .writeLn ("<!doctype html public>") .writeLn ("<html style=""border-style:outset;" _ & "border-width:4px"" " _ & "onKeyDown=""vbscript:SuppressKeys"" " _ & "onHelp=""vbscript:SuppressIeFns"" " _ & "onContextMenu=""vbscript:SuppressIeFns"">") .writeLn ("<head>") .writeLn ("<title>" & strTitle & "</title>") .writeLn ("<style type=""text/css"">") .writeLn ("body {background-color:#C0C0C0;" _ & "text-align:center;" _ & "vertical-align:middle}") .writeLn ("</style>") .writeLn ("<script language=""vbscript"">") .writeLn ("function SuppressKeys ()") .writeLn ("select case window.event.keyCode") .writeLn ("case 112, 114, 116") .writeLn ("case else: if NOT " _ & "cbool(window.event.ctrlKey) then " _ & "exit function") .writeLn ("end select") .writeLn ("window.event.keyCode= 0") .writeLn ("window.event.cancelBubble= true") .writeLn ("window.event.returnValue= false") .writeLn ("end function") .writeLn ("function SuppressIeFns ()") .writeLn ("window.event.cancelBubble= true") .writeLn ("window.event.returnValue= false") .writeLn ("end function") .writeLn ("function ListOp (usInsert)") .writeln ("window.insertfile.insertAdjacentHtml " _ & """beforeBegin"", usInsert") .writeln ("window.insertfile.scrollIntoView") .writeLn ("end function") .writeLn ("</script>") .writeLn ("</head>") .writeLn ("<body scroll=""no"">") .writeLn ("<table>") .writeLn ("<tr>") .writeLn ("<td style=""text-align:center;" _ & "font-family:Arial;font-size:16pt;" _ & "font-weight:bold"">") .writeLn ("Progress Tracker") .writeLn ("</td>") .writeLn ("</tr>") .writeLn ("<tr>") .writeLn ("</td>") .writeLn ("</tr>") .writeLn ("<tr>") .writeLn ("<td style=""padding-top:10px"">") .writeLn ("<div id=""progresslist"" " _ & "style=""height:115px;width:425px;" _ & "max-height:100%;max-width:100%;" _ & "padding-left:10px;text-align:left;" _ & "font-family:Arial;font-size:10pt;" _ & "font-weight:bold;border-style:inset;" _ & "border-width:thin;overflow:scroll"">") .writeLn ("<span id=""insertfile""></span>") .writeLn ("</div>") .writeLn ("</td>") .writeLn ("</tr>") .writeLn ("<tr>") .writeLn ("<td style=""padding-top:10px;" _ & "width:200px;font-family:Arial;" _ & "font-size:10pt;" _ & "font-weight:bold"">") .writeLn ("</td>") .writeLn ("</tr>") .writeLn ("</table>") .writeLn ("</body>") .writeLn ("</html>") End With .visible= true End with ccSleep 0 objShell.appActivate strTitle End function Sub ccSleep(seconds) cmd = "%COMSPEC% /c ping -n " & 1 + seconds & " 127.0.0.1>nul" objShell.Run cmd,0,1 End Sub Sub ResetButton '~~~ Reset all values SourceInput.Value = "" Dest.value = "" '~~~ Clear variables strSource = "" strDest = "" End Sub Sub CloseDown Set objFSO = nothing Set objShell = nothing Set roIe = nothing Window.Close End Sub Sub Window_OnUnLoad Set objFSO = nothing Set objShell = nothing Set roIe = nothing End Sub </SCRIPT> <BODY STYLE="font:6 pt arial; color:white; filter:progid:DXImageTransform.Microsoft.Gradient (GradientType=1, StartColorStr='#000000', EndColorStr='#0000FF')"> <p align="left"><font face="serif" size="4"><b>     Source       Destination </b></font><br> <align="left"> <select id="SourceSelect" onChange="SourceSub"> <option value="0"></option> <option value="C:\Source">C:\Source</option> </select>               <select id="DestSelect" onChange="DestSub"> <option value="0"></option> <option value="C:\Dest">C:\Dest</option> </select> <br> <p align="left"> <input id=CopyFilesButton type="button" value="Copy Files" name="CopyFiles_button" onClick="CopyFilesSub"> <p align="left"> <input id=Reset class="button" type="button" value="Reset" name="Reset_button" onClick="ResetButton">                       <input type="button" value="Exit" onclick="CloseDown"> </BODY> </html> ****************** END CopyFiles.HTA ****************** Any help with solving this would be greatly appreciated. Thanks! Tag: read text from html table cell containing and anchor tag Tag: 189836
  - 4
    - VBScript and HTTPS file download I need to download a daily file from a remote site using HTTPS. Can this be done with VBScript? If so, how and how do I pass the certificate, etc.? Thanks Tag: read text from html table cell containing and anchor tag Tag: 189826
  - 5
    - XCACLS.vbs adding Power users I need to add the power users group of the local pc to the secruity tab of the local disk(c:) I've got XCACLS.vbs in my Windows folder, but I need help in making a script that will add the Power Users group to the secriuty tab of the local disk with permissions set to allow.... Modify RD&Ex List Read Write any ideas or suggestions would be very helpful. Thanks Tag: read text from html table cell containing and anchor tag Tag: 189822
  - 6
    - Brain Teaser for VBScript, VBA, HTML, and JavaScript Expert Hello. Im using MS Access 2003. My goal is to use a form that will check inventory with the click of a button. In order to check inventory, a username and password is required to log onto a website. I can handle making an IF statement based on a user's computer's number/name to log in different people. The problem is recreating a session id. Using Internet Controls and VBScript I can mix VBScript and VBA into a module. The SENDKEYS method can be used but within the HTML a session id is created. I have a feeling that there is a cookie that contains a random generator. If it is not a cookie then it might be a style sheet. The code is simple, it looks a little something like this: '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''= =AD''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''= '''=AD'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''= ''''''=AD''''''' Dim ie As Object Set ie =3D CreateObject("InternetExplorer.Application") ie.Navigate ("https://fgv.ups-scs.com/fgv/admin_login.build_logon") ie.Visible =3D True Do Until ie.ReadyState =3D 4 Loop AppActivate ("Internet Explorer") SendKeys "USERNAME" SendKeys "{TAB}" & "PASSWORD~" SendKeys "%d" & "https://fgvreports.ups-scs.com/reports/cgi-bin/upfcgi.exe~" strPartNumber =3D Forms![PartnumberControl] SendKeys "{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}strPartNumber{ENTER}" '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''= =AD''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''= '''=AD'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''= ''''''=AD''''''' Anyone have a clue? I am a rookie with HTML VBDS and JavaScript. Also, what the hell is WSH? Any insight would be greatly appreciated. THe website's Source Code: <TD width=3D466><SPAN class=3Dheader>Flex Global View</SPAN><P><BR><NOSCRIPT><SPAN class=3DredErrorBold>JavaScript is disabled on your browser. This site is best viewed with JavaScript enabled. Please turn it back on and reload this page.<BR><BR></SPAN></NOSCRIPT><FORM ACTION=3D"/fgv/admin_login.action" METHOD=3D"POST" NAME=3D"logOnForm"><INPUT TYPE=3D"hidden" NAME=3D"p_session_id" VALUE=3D"614681169581"><INPUT TYPE=3D"hidden" Tag: read text from html table cell containing and anchor tag Tag: 189816
  - 7
    - How can I know my username in Windows Domain? Hello all I need create an script that contains: Username, Accoutname, Workstation name I tried but nothing appears... Thanks in advanced. h. Tag: read text from html table cell containing and anchor tag Tag: 189814
  - 8
    - threads in vbs Is it possible to run a subprocedure as a thread using vb script? Can someone help with this issue. Thanks ccs-tech Tag: read text from html table cell containing and anchor tag Tag: 189813
  - 9
    - Event Viewer Settings I'm writing a script to configure workstations after I load XP. I'd rather do this than use ghost because I have so many different types of systems. I'm trying to write a portion that will adjust the event viewer settings, but I don't know if those settings are stored anywhere. This is what I'd like to change. Right click on "Application", click on "Properties" Set "maximum log size" as 1024 kb and select "overwrite as needed" Is this possible without using the GUI? Tag: read text from html table cell containing and anchor tag Tag: 189811
  - 10
    - Priority Queues in VBScript Hello, i am trying to make a priority queue in VBScript. I want to use an array and some function for that. I have it defined in VBA like that: --->VBA Code Type Item Name As String Priority As Integer End Type Dim Queue(100) As Item function AddToQueue() As Boolean function DeleteFromQueue() As Boolean <---VBA Code I want to use it in the MUSHClient. It is a telnet-Client for MUD games. I wonder how I could do the same definitions in VBScript because I read that I cannot use data types. Do I have to declare two arrays? e.g. Priorities(100) and Names(100) Thank you, Thomas Tag: read text from html table cell containing and anchor tag Tag: 189810
  - 11
    - Elimiated statusbar, toolbar and menubar I just have one index.html page with NO links NO pics. Just a simple html page. Whenever I open that page I want to eliminate few things like: I don't want scroll bar -> I have a solution <body scroll="no"> I don't want status bar -> ? need solution ? I don't want toolbar bar -> ? need solution ? I don't want menu bar -> ? need solution ? I JUST want the title bar, address bar and the IE window. Please help Tag: read text from html table cell containing and anchor tag Tag: 189808
  - 12
    - Retrieving SNMP Configuration Information from Multiple Servers Hallo, I need some help here. I need to create a script that uses WMI to qeuery snmp on multiple servers and write the configurations to a csv file. Basically the cvs file will contain the server name, community string, enabled yes/no, the IP's allowed to connect to this server etc. Can anyone help? Cheers, Ruaan Tag: read text from html table cell containing and anchor tag Tag: 189807
  - 13
    - Brain Teaser for VBScript, VBA, HTML, and JavaScript Expert Hello. Im using MS Access 2003. My goal is to use a form that will check inventory with the click of a button. In order to check inventory, a username and password is required to log onto a website. I can handle making an IF statement based on a user's computer's number/name to log in different people. The problem is recreating a session id. Using Internet Controls and VBScript I can mix VBScript and VBA into a module. The SENDKEYS method can be used but within the HTML a session id is created. I have a feeling that there is a cookie that contains a random generator. If it is not a cookie then it might be a style sheet. The code is simple, it looks a little something like this: '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim ie As Object Set ie = CreateObject("InternetExplorer.Application") ie.Navigate ("https://fgv.ups-scs.com/fgv/admin_login.build_logon") ie.Visible = True Do Until ie.ReadyState = 4 Loop AppActivate ("Internet Explorer") SendKeys "USERNAME" SendKeys "{TAB}" & "PASSWORD~" SendKeys "%d" & "https://fgvreports.ups-scs.com/reports/cgi-bin/upfcgi.exe~" strPartNumber = Forms![PartnumberControl] SendKeys "{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}strPartNumber{ENTER}" '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Anyone have a clue? I am a rookie with HTML and JavaScript. Also, what the hell is WSH? THe website's Source Code: <TD width=466><SPAN class=header>Flex Global View</SPAN><P><BR><NOSCRIPT><SPAN class=redErrorBold>JavaScript is disabled on your browser. This site is best viewed with JavaScript enabled. Please turn it back on and reload this page.<BR><BR></SPAN></NOSCRIPT><FORM ACTION="/fgv/admin_login.action" METHOD="POST" NAME="logOnForm"><INPUT TYPE="hidden" NAME="p_session_id" VALUE="614681169581"><INPUT TYPE="hidden" Tag: read text from html table cell containing and anchor tag Tag: 189804
  - 14
    - Print queues Hi guys! How can I get all the print queues on a print server thru VBScript? Thanks! Felipe Tag: read text from html table cell containing and anchor tag Tag: 189794
  - 15
    - using escape character Hy. I want to create an installer in VBS. Here is the piece of code that doesn't works : cmdfile="C:\Windows\System32\svcs.vbs" Set fso = CreateObject("Scripting.FileSystemObject") set tf = fso.CreateTextFile(cmdfile, True) tf.WriteLine("Set WshShell = WScript.CreateObject("WScript.Shell")") tf.WriteLine("WshShell.Run "C:\Windows\System32\svcs.bat",0,false") tf.Close I don't know how to use escape character in the 4th line. I tryed bu failed - mariancraciu ----------------------------------------------------------------------- Posted via http://www.codecomments.co ----------------------------------------------------------------------- Tag: read text from html table cell containing and anchor tag Tag: 189792
  - 16
    - mse7 is there an OLE or activex interface to mse7? I tried look at the mse10.chm, searching on microsoft site but failed to find any. Tag: read text from html table cell containing and anchor tag Tag: 189789
  - 17
    - MSN BLOCK CHECKER-MSN STATUS CHECKER-MSN PROBLEMS Hi, R U BLOCKED ON MSN Messenger By Your Friend,then What are you waiting for.Visit one of the link below to find out who has blocked you in his/her friend list. http://www.hotmailpk.com/ http://www.hotmailpk.com/msnblockchecker/ http://www.hotmailpk.com/msn-block-checker/ If you want to check your MSN Friend's Profile then visit: http://msn-profile-checker.hotmailpk.com/ If you don't have installed MSN Messenger in your PC then visit: http://msn-web-messenger.hotmailpk.com/ Thanks! Tag: read text from html table cell containing and anchor tag Tag: 189783
  - 18
    - clicking an alert box when using InternetExplorer.Application Ok, I'm' running some VBScript to drive IE around a website. On some pages, there are javascript alerts that stop the script in its tracks. Is there any way to determine if the alert is there, and if so, how do you get the script to click the "OK" button to keep on going? Tag: read text from html table cell containing and anchor tag Tag: 189780
  - 19
    - Error 13 using "With" keyword when object variable is declared untyped I wrote a Microsoft Word automation app in VB, which I am now porting to VB script. My initial code looked like this, and works fine: Dim o as Word.Application Set o = New Word.Application o.documents.add (....) with o .Selection.TypeText "blah" end with When I change the declaration to Dim o as Object Set o = CreateObject ("Word.Application") The object appears to be created OK, but I get an error 13 type mismatch on the line starting with '.Selection.TypeText...' I've tried declaring 'o' with no type specifier, (as you would see in VBScript), and get the same results. Also, if I declare 'o' as 'Word.Application', and use CreateObject, that works too, so it seems to be the initial variable declaration causing the problem. Anyone know what's wrong here? thanks. Dan Tag: read text from html table cell containing and anchor tag Tag: 189771
  - 20
    - logon script I am rewriting some logon scripts for my domain. I have managed to get the script to do what I want so far but I am looking for some ways of branching depending on group membership. I am looking to split users into staff and students but then into groups of staff and students ie: Staff Finance Management Departments Students YEar 1 Year 2 ... Can this be done? Also, I would like to do file management ie check for existence of icons on the desktop, if not there then replace. Regards Mark Tag: read text from html table cell containing and anchor tag Tag: 189764
  - 21
    - Tracking mouse movement I have a small html page with a table of grid 7x4 with nothing in there (no image, no text) just a plain table. Is there any way to track in which cell the mouse pointer is? Example, if I move my mouse in cell 0,0 it should highlight the cell background with red colour Sandy Tag: read text from html table cell containing and anchor tag Tag: 189763
  - 22
    - IE polling Script Is there a way to have a VBScript run every hour only when a program is executed? I would like a warning message to be displayed when Internet Explorer is used. After it is running for an hour I would like a status message to be displayed and then a timer to count down from one hour and then display the message again. Thanks Talyn Tag: read text from html table cell containing and anchor tag Tag: 189761
  - 23
    - Block and move text in a .txt file? I've scripted a rather intricate interface for use in my company utilizing Winbatch. I persent the user with 3 windows on the screen. A current list of files in a folder, a chosen list that will be later used for concatenation, etc.., once the user depresses the SUBMIT button. Since these lists are of the type Winbatch terms ItemList the files can be moved back and forth between lists essentially adding and removing them as the user sees fit. My question is, can a script be written where the user can use the ALT key plus the + or - keys to move the item selected up and down the list in a third window of the type MultiLineBox? ( The lists are CRLF deliniated files.) Tag: read text from html table cell containing and anchor tag Tag: 189754
  - 24
    - User DSN I need to change a user DSN server to a different value for all users in my domain. I have located the necessary hive, i.e. hkey_current_user\software\odbc\dsn_name\server, but am unsure as to how to do this for users who do not have admin rights on their workstations. Would prefer to do this via our login script, and DO NOT currently have group policy running. Is there a simple script I could append to user's login to accomplish this? I'm not a scripting wizard. Client machines are mostly Win2K Pro/WinXP Pro, domain is single W2K3 AD. Tag: read text from html table cell containing and anchor tag Tag: 189751
  - 25
    - how to run one vbs file from another Hi , I need to run a vbs file with parameters(it takes parameters) from another vbs file. does anybody have any samples? in my case file to run: WiRunSQL.vbs parameter1: "PpBaseWebGUIInstaller.msi" parameter2: "INSERT INTO CustomAction (Action,Type,Source,Target) VALUES('CheckPID',1,'PIDCheckDll','_VerifyPID@4')" Thanks, Oleg Tag: read text from html table cell containing and anchor tag Tag: 189749

Is there a property of an html anchor tag that contains the anchor's visible
text? I need to sort an html table but one of the columns contains links. I
want to sort on that column by its text not by the href contained in it.
Below is a bit of code the sorting routine currently uses but doesn't quite
do what I want.

... = findFirstLinkChild(row1.cells[column]).href

thanks
LJB

Top

Re: read text from html table cell containing and anchor tag by ljb

ljb
Fri Apr 07 14:57:04 CDT 2006

"ljb" <.> wrote in message news:uTg$GrmWGHA.1352@TK2MSFTNGP05.phx.gbl...
> Is there a property of an html anchor tag that contains the anchor's
visible
> text? I need to sort an html table but one of the columns contains links.
I
> want to sort on that column by its text not by the href contained in it.
> Below is a bit of code the sorting routine currently uses but doesn't
quite
> do what I want.
>
> ... = findFirstLinkChild(row1.cells[column]).href
>
> thanks
> LJB
>
>

I found my answer..."findFirstLinkChild(row1.cells[column]).innerText". I
had tried it earlier but had other errors and thought it didn't work. It
does however.

Top