Display a value from an Excel worksheet

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
    - ASP vbscript to run a program. Program does not terminate I have an ASP web page that uses vbscript to start a program. The code looks like this: Set shell = CreateObject("WScript.Shell") shell.Run "MyProgram.exe", 1, false The exe program was written in VB6 The program runs fine and completes however it does not terminate. It does correctly die however if simply run from a DOS prompt. I have tried adding "end" and "Unload Me" to no avail. What would cause the program to hang when run from the script via an ASP page? Tag: Display a value from an Excel worksheet Tag: 185432
  - 2
    - Suspicious/Alarmed/Paranoid??? Kindly assess this... hi Groupies, This may be a little O.T., but you are all extremely knowledgable and so I thought you might be willing provide some help/advice. When looking through the html source for one of the techie sites that I had recently visited, I came across the coding listed below. I became suspicious/alarmed/paranoid??? I say this because it looks like a very long string of hex code, and because the tag containing the hex has a "hidden" attribute, it obviously isn't anything intended for presentation to the viewer. It appears as if somebody is attempting to download some (potentially nasty) binary code, and maybe install it on my system (ugh!). Could you experts take a look at this, and render an opinion, i.e., is there anything to worry about, or is it all just commonplace innocent fun??? cheers, jw --- <quote> --- <input name="__VIEWSTATE" type="hidden" value="dDwxNzkyMDYyNjQzO3Q8O2w8aTwxPjtpPDU+Oz47bDx0PHA8bDxUZXh0Oz47bDxLb2RlcnMgLSBWaXNWaW0uY3BwOz4+Ozs+O3Q8O2w8aTwzPjtpPDU+Oz47bDx0PDtsPGk8MD47PjtsPHQ8O2w8aTwxPjtpPDc+O2k8OT47aTwxMT47PjtsPHQ8cDxwPGw8TmF2aWdhdGVVcmw7PjtsPC87Pj47PjtsPGk8MD47PjtsPHQ8cDxwPGw8SW1hZ2VVcmw7PjtsPC9za2lucy9rb2RlcnMvbG9nb19tZWQuZ2lmOz4+Oz47Oz47Pj47dDx0PDt0PGk8MzE+O0A8QWxsIExhbmd1YWdlcztBZGE7QVNQO0Fzc2VtYmxlcjtDO0MjO0MrKztDb2xkRnVzaW9uO0RlbHBoaTtFaWZmZWw7RXJsYW5nO0ZvcnRyYW47SmF2YTtKYXZhU2NyaXB0O0pTUDtMaXNwO0x1YTtNYXRoZW1hdGljYTtNYXRsYWI7T2JqZWN0aXZlQztQZXJsO1BIUDtQcm9sb2c7UHl0aG9uO1J1Ynk7U2NoZW1lO1NtYWxsdGFsaztTUUw7VGNsO1ZCO1ZCLk5FVDs+O0A8KjtBZGE7QVNQO0Fzc2VtYmxlcjtDO0MjO0NwcDtDb2xkRnVzaW9uO0RlbHBoaTtFaWZmZWw7RXJsYW5nO0ZvcnRyYW47SmF2YTtKYXZhU2NyaXB0O0pTUDtMaXNwO0x1YTtNYXRoZW1hdGljYTtNYXRsYWI7T2JqZWN0aXZlQztQZXJsO1BIUDtQcm9sb2c7UHl0aG9uO1J1Ynk7U2NoZW1lO1NtYWxsdGFsaztTUUw7VGNsO1ZCO1ZCLk5FVDs+Pjs+Ozs+O3Q8dDw7dDxpPDIxPjtAPEFsbCBMaWNlbnNlcztBRkw7QUwyMDtBU0w7QVBTTDtCU0Q7Q1BMO0dQTDtMR1BMO0lCTVBMO0lPU0w7TVBMMT A7TVBMMTE7TlBMMTA7TlBMMTE7T1NMO1BTRkw7U1BMO1czQztaTEw7WlBMOz47QDwqO0FGTDtBTDIwO0FTTDtBUFNMO0JTRDtDUEw7R1BMO0xHUEw7SUJNUEw7SU9TTDtNUEwxMDtNUEwxMTtOUEwxMDtOUEwxMTtPU0w7UFNGTDtTUEw7VzNDO1pMTDtaUEw7Pj47Pjs7Pjt0PHA8cDxsPE5hdmlnYXRlVXJsOz47bDwvaW5mby5hc3B4P2M9TGljZW5zZUluZm87Pj47PjtsPGk8MD47PjtsPHQ8cDxsPHNyYzs+O2w8L2ltYWdlcy9pbmZvXzE2LmdpZjs+Pjs7Pjs+Pjs+Pjs+Pjt0PDtsPGk8MD47aTwyPjtpPDM+O2k8NT47aTw3Pjs+O2w8dDxwPHA8bDxJbWFnZVVybDtUb29sVGlwOz47bDwvaW1hZ2VzL2Rvd25sb2FkLmdpZjtEb3dubG9hZCBWaXNWaW0uY3BwOz4+Oz47Oz47dDxwPGw8XyFJdGVtQ291bnQ7PjtsPGk8MT47Pj47bDxpPDA+Oz47bDx0PDtsPGk8MD47PjtsPHQ8QDxWaXNWaW0uY3BwO0MrKztcZTtcZTtMT0M6IDk0Oz47Oz47Pj47Pj47dDxwPGw8XyFJdGVtQ291bnQ7PjtsPGk8MT47Pj47bDxpPDA+Oz47bDx0PDtsPGk8MD47aTwxPjtpPDI+Oz47bDx0PEA8VklNIGlzIGFuIGltcHJvdmVkIHZlcnNpb24gb2YgdGhlIGVkaXRvciAmcXVvdFw7dmkmcXVvdFw7LCBvbmUgb2YgdGhlIHN0YW5kYXJkIHRleHQgZWRpdG9ycyBvbiBVTklYIHN5c3RlbXMuOy9pbmZvLmFzcHg/Yz1Qcm9qZWN0SW5mbyZwaWQ9RTNRMjZaTUxZMjJWR0VaOERVTVRSUFcxMkc7Pjs7Pjt0PDtsPGk8MD47PjtsPHQ8QDx2aW07dmlt Oz47Oz47Pj47dDxAPFNvdXJjZUZvcmdlO2N2czs+Ozs+Oz4+Oz4+O3Q8O2w8aTwwPjs+O2w8dDw7bDxpPDE+O2k8Mz47aTw1Pjs+O2w8dDxwPHA8bDxOYXZpZ2F0ZVVybDs+O2w8L2luZm8uYXNweD9jPVByb2plY3RJbmZvJnBpZD1FM1EyNlpNTFkyMlZHRVo4RFVNVFJQVzEyRzs+Pjs+O2w8aTwwPjs+O2w8dDxwPHA8bDxJbWFnZVVybDs+O2w8L2ltYWdlcy9mb2xkZXIuZ2lmOz4+Oz47Oz47Pj47dDxwPHA8bDxUZXh0Oz47bDwuLi5lXFx2XFx2aW1cXHZpbVxcdmltXFxzcmNcXFZpc1ZpbVxcOz4+Oz47Oz47dDxwPGw8XyFJdGVtQ291bnQ7PjtsPGk8MTI+Oz4+Ozs+Oz4+Oz4+O3Q8cDxsPFZpc2libGU7PjtsPG88Zj47Pj47Oz47Pj47Pj47Pj47bDxLb2Rldmlld2VyMTpEb3dubG9hZEJ1dHRvbjs+PkNAJ8asnjVYJzEP0MdCQwakAp4u" > --- <end quote> --- Tag: Display a value from an Excel worksheet Tag: 185419
  - 3
    - User Profiles I am working on a network where there are a lot of users that log on to the system for short periods, i.e. 2 weeks. They surf the net and download a lot of files. The hard drive fills up fast and degrades system performance. I would like some way of removing locally stored user profiles using a script. My thought is to roll through each profile on a computer and check the name against user manager. If it is not listed then delete the profile. The two concerns I have with this are: 1. It seems that this is a very inefficient way of accomplishing what I want. and 2. Sometimes when deleting profiles I have to boot in safe mode because it says that certain files are in use. Any suggestions would be greatly appreciated. Trevor Tag: Display a value from an Excel worksheet Tag: 185416
  - 4
    - help merging a web page into a word document I am trying to merge the results from an SQL run by an asp page into a word document but do not know where to start. I would like to do it like a mail merge. Can any one provide some suggestions that might help. Purchasing extra software is not an option. Tag: Display a value from an Excel worksheet Tag: 185415
  - 5
    - Deleting Local Profiles I am working on a network where there are a lot of users that log on to the system for short periods, i.e. 2 weeks. They surf the net and download a lot of files. The hard drive fills up fast and degrades system performance. I would like some way of removing locally stored user profiles using a script. My thought is to roll through each profile on a computer and check the name against user manager. If it is not listed then delete the profile. The two concerns I have with this are: 1. It seems that this is a very inefficient way of accomplishing what I want. and 2. Sometimes when deleting profiles I have to boot in safe mode because it says that certain files are in use. Any suggestions would be greatly appreciated. Trevor Tag: Display a value from an Excel worksheet Tag: 185414
  - 6
    - newbie help! Dear y'all, I'm trying to upload several files at once into an access database residing in a web server. I would like to know if I can use FSO to browse all the files within a directory and then upload them using http method POST into an ASP file that will take care of the insertion into the database. the parameters i have to upload are: file name without extension (all filenames have the same character length) file binary data. (all jpegs) is this even possible? thank you very much in advance. Tag: Display a value from an Excel worksheet Tag: 185411
  - 7
    - What's wrong with my code? I get this error message when it tries to insert data into the 'Printers' table. ADODB.Recordset: Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record. ******************Start of code************************ ' Constants for DB connection Const DB_CONNECT_STRING = "Provider=SQLOLEDB.1;Data Source=URBSQL01; Initial Catalog=Test; Integrated Security=SSPI;" Const adOpenStatic = 3 Const adLockOptimistic = 3 Const adUseClient = 3 'On Error Resume Next strComputer = "." Set objConnection = CreateObject("ADODB.Connection") Set objRecordset = CreateObject("ADODB.Recordset") objConnection.Open DB_CONNECT_STRING objRecordset.CursorLocation = adUseClient objRecordset.Open "SELECT * FROM Hardware" , objConnection, _ adOpenStatic, adLockOptimistic Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colOSes = objWMIService.ExecQuery("Select * from Win32_OperatingSystem") For Each objOS in colOSes strCname = objOS.CSName Wscript.Echo "Computer Name: " & objOS.CSName Wscript.Echo "Version: " & objOS.Version 'Version & build Wscript.Echo "Build Number: " & objOS.BuildNumber 'Build WScript.Echo "Service Pack: " & objOS.ServicePackMajorVersion & "." & _ objOS.ServicePackMinorVersion ' Add Records to SQL DB Table called Hardware objRecordset.AddNew objRecordset("ComputerName") = objOS.CSName objRecordset("Version") = objOS.Version objRecordset("BuildNumber") = objOS.BuildNumber objRecordset("ServicePack") = objOS.ServicePackMajorVersion & "." & _ objOS.ServicePackMinorVersion Next Set colCompItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem", "WQL", _ wbemFlagReturnImmediately + wbemFlagForwardOnly) For Each objItem In colCompItems WScript.Echo "Name: " & objItem.Name WScript.Echo "TotalPhysicalMemory: " & objItem.TotalPhysicalMemory WScript.Echo "UserName: " & objItem.UserName objRecordset("Name") = objItem.Name objRecordset("TotalPhysicalMemory") = objItem.TotalPhysicalMemory objRecordset("UserName") = objItem.UserName strUserName = objItem.UserName objRecordset.Update objRecordset.Close Next objRecordset.Open "SELECT * FROM Printers" , objConnection, _ adOpenStatic, adLockOptimistic Set colPrtItems = objWMIService.ExecQuery("SELECT * FROM Win32_Printer", "WQL", _ wbemFlagReturnImmediately + wbemFlagForwardOnly) For Each objItem In colPrtItems WScript.Echo "UserName: " & strUsername WScript.Echo "Default: " & objItem.Default WScript.Echo "DeviceID: " & objItem.DeviceID WScript.Echo "Name: " & objItem.Name WScript.Echo "PortName: " & objItem.PortName WScript.Echo "SeparatorFile: " & objItem.SeparatorFile WScript.Echo "ServerName: " & objItem.ServerName WScript.Echo "ShareName: " & objItem.ShareName objRecordset("UserName") = strUserName objRecordset("PrinterName") = objItem.Name objRecordset("PortName") = objItem.PortName objRecordset("SeparatorFile") = objItem.SeparatorFile objRecordset.Update Next objRecordset.Close objConnection.Close Tag: Display a value from an Excel worksheet Tag: 185410
  - 8
    - Task Scheduler i 'm looking for a script to create a scheduled task. Thanks for your help -- Jérôme FOURNET Administrateur Réseaux jerome.fournet@apf.asso.fr Tag: Display a value from an Excel worksheet Tag: 185407
  - 9
    - Rename a pc with a script Is there a way to prompt the user for new pc name, and change the pc name to what was input by the user? Assuming this is going to be done as local admin Thanks J Tag: Display a value from an Excel worksheet Tag: 185405
  - 10
    - Login Web Page via Smart Card I want to make a web page ( using ASP ) and visitors will login my web page with smart card ( in fact a simple memory card or like this ).I think i can do it with capicom but i couldn't find a starting way.Can you help me??? Tag: Display a value from an Excel worksheet Tag: 185404
  - 11
    - A strange behavior of IE in formatting post data. I have some asp pages with a multipart form (for file uploading), some text inputs and some submit buttons duplicated on the top and bottom of pages. If I insert into a text box a text from Microsoft Word with characters like â?? â?? â?? (apostrophe and quotation marks produced by Word's automatic character substitution) and press one submit in the top of page, IE produces incomplete post data. In fact the first field of post data that will be like this one: -----------------------------7d501b304ae Content-Disposition: form-data; name="field_name" is truncated to this: field_name" the other fields are correctly formed. The strange in that if I press the identical submit button in the bottom of page, IE works correctly. Other elements to understand the problem: 1. The submit buttons on top and bottom of pages are really identical because they are in a separed file that is included in the top and bottom of the pages dinamically. 2. I have this behaviour only on some pages, the remaining pages work correctly also if all the pages are very similar (the differences between the pages are only on the number and the name of text inputs). 3. The pages works correctly in other browsers (Firefox, Opera) so it seems to be a problem of IE and particularly of 6.0 release. 4. If I test the pages in a local environment (XP + IIS 5.0) they work correctly. 5. The site server has Win 2000 server + IIS 5.0. Someone can help me to solve this mystery? Thanks Tonio Tanzi Tag: Display a value from an Excel worksheet Tag: 185402
  - 12
    - Server Threw an Exception I have been getting this error since I upgraded to Windows XP, Access XP. The code I have been using follows: <% StrADO = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" StrADO = StrADO & "C:\INetPub\wwwRoot\Tivities\NAmerica.mdb;User ID=;Password=" Set Cnnct = Server.CreateObject("ADODB.Connection") Cnnct.CursorLocation = 3 Cnnct.Open StrADO %> ' Logical Code Here <% Set rsUnivs = Server.CreateObject("ADODB.Recordset") Set rsSchools = Server.CreateObject("ADODB.Recordset") %> ' Logical Code Here <% rsUnivs.Close rsSchools.Close Cnnct.Close Set objAccess = Server.CreateObject("Access.Application") objAccess.Visible = False Error Type:(0x80010105)The server threw an exception. Error on Next Line. objAccess.OpenCurrentDatabase "C:\INetPub\wwwRoot\Tivities\NAMERICA.mdb" ' Line that creates error above mcrName = "Canutillo" objAccess.DoCmd.RunMacro mcrName objAccess.CloseCurrentDatabase objAccess.Quit 2 ' 2 = acQuitSaveNone Set objAccess = Nothing %> Does anyone know the problem and should I post this problem to another group? Thanks a bunch, this one has driven me crazy! Tag: Display a value from an Excel worksheet Tag: 185394
  - 13
    - Windows Scripting Help file Downloaded script56.chm to have help documentation at my fingertips but when I click on anything in the contents or index I only get 'The page cannot be displayed' in my browser. Tag: Display a value from an Excel worksheet Tag: 185392
  - 14
    - WMI in CMDLINES.TXT Hi all, I have developed a SOE for W2k3 SP1, it runs via WinPE. I need to use a vbs script when CmdLines.txt is running so I can use the vbs command: "GetObject("winmgmts:{impersonationLevel=impersonate}!" line to work I know this will not work as WMI isn't supported when this VBS is run. (excuted from cmdlines.txt). I know that Win. Server 2003 first-run OS follows the same (or Close) stripped-down core pattern as WinPE. However, If I can get WinPE to support WMI, then is there a method for getting WMI supported when the CMDlines is excuted Is there a work-around? Are there future plans to add WMI support when CMDlines is running? Hope to hear from someone soon. Thanks! Tag: Display a value from an Excel worksheet Tag: 185391
  - 15
    - Login Script Greeting I would like to have a greeting in my login script, but I don't want to use the username. I would like to use the person's first name. I've encountered dozens of sample scripts with something like strUser = objNetwork.UserName, but nothing that explains how to use the person's FIRST name. I'd also like to tell them what drives they are mapped to and reply their default printer. Thanks for your help. Tag: Display a value from an Excel worksheet Tag: 185390
  - 16
    - Scripting the Word organization chart. Hi, Has anyone had any experience in scripting the organization chart in word or Excel. I know the version in Office XP/2003 is an instance of the Shapes object (as opposed to the org chart 2.0 in older versions) and I have a working VBA macro to manipulate the chart taken from MSDN but I haven't been able to find a VBscript to do the same thing. Cheers, TK Tag: Display a value from an Excel worksheet Tag: 185388
  - 17
    - mass rename part duex Sorry about multiple post, and I think I made it worse by trying to explain in multiple replies (please forgive me) Here is the jist of the issue I need to take a bunch of files and be able to combine them into one (append.dat) file (this will hold all the data from all the previous files) These files need to be entered into the append.dat oldest first, then removed, leaving only the append.dat file with all the information in one file... I am stuck and need assistance please. This is what I have so far... (1) it does not remove files, (2) it does not add the oldest first (3) and it adds all the files including the script and append.dat into the append.dat if ran more than once.... Thanks for your help in advance, and again sorry for the multiple post and confusion,. Const ForReading = 1 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objOutputFile = objFSO.CreateTextFile("append.dat") strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set FileList = objWMIService.ExecQuery _ ("ASSOCIATORS OF {Win32_Directory.Name='C:\temp\attp'} Where " _ & "ResultClass = CIM_DataFile") For Each objFile In FileList Set objTextFile = objFSO.OpenTextFile(objFile.Name, ForReading) strText = objTextFile.ReadAll objTextFile.Close objOutputFile.WriteLine strText Next objOutputFile.Close Tag: Display a value from an Excel worksheet Tag: 185386
  - 18
    - help with mass file rename I have been battling this and can not come up with the right commands to do the following (1) rename files so it renames unknown files to the same prefix. example rename $123432.000 to test.000 (2) also it would rename files to different extention based on time stamp so 124432.000 (8am) would equal test.000 $124532avf.000 (9am) would be test.001 and so on.. test.000 test.001 test.002 (3) This should run everytime a file is added to the folder or at specified time. (4) This should also work to use the lowest .00x extention that is available. so .000 then .001, .002, .003 and so on for every file added. Should .001 be removed then the next file would be .001 I didnt see how FileSystemObject's would work -- any ideas or templates? Tag: Display a value from an Excel worksheet Tag: 185371
  - 19
    - Connect to acces database with .vbs Hello, does anyone know how to connect to a acces database. For testing purpose I created an access db that is located on my desktop. I'd like to connect to and edit the table. Here is a small sample of the code I use but I can't connect. :( ================================================= Dim oCmd, oCtn Set oCmd = CreateObject ("ADODB.Command") Set oCtn = CreateObject ("ADODB.connection") oCtn.connectionString = "Provider=MSDAORA;Persist Security Info=False;Data Source=testEUData Source=DSN; User ID=uid; Password=pwd;" oCtn.open =================================================== The point is MSDAORA is not for accessing Access table but for Oracle so it's obvious it wouldn't work that way, but I can't find the proper module to access an MS-Access Database. so I tried most of the modules listed on my PC. It'd be nice if someone could help. Regards. Tag: Display a value from an Excel worksheet Tag: 185366
  - 20
    - add remote users by using vbscript Hi all, I need vbscript code to add remote users to the My Computer (right click) -- > Properties --> --> Remote --> Remote Desktop Users (click Select Remote Users..). And I couldn't find any info in Registry either. Appreciate any help, thanks. ErsinC Tag: Display a value from an Excel worksheet Tag: 185365
  - 21
    - VBScript to Rename Files Hello everyone, I am trying to find a way to rename files that get loaded onto a server every night based upon other files that get uploaded with them. For example some of the files we get are as follows - r29-dcom.txt, arr56r29.xfr r15-dcom.txt, arr22r15.xfr Now I need to rename the r29-dcom.txt and r15-dcom.txt files to have the number that the XFR files has. So after renaming them I would end up with the following. r29-dcom56.txt, arr56r29.xfr r15-dcom22.txt, arr22r15.xfr There are quite a few files that I have to do this for on an on going basis and I need a way to speed it. The big issue is that the number in the arr56r29.xfr will increment everyday until it reaches 00 and then start again, so tomorrow would be arr57r29.xfr. If anyone can offer any advice on how to achieve this that would be great. Tag: Display a value from an Excel worksheet Tag: 185364
  - 22
    - CreateObject("WScript.Shell") hi all, trying to run an exe from a script , but have to give it paramaters , how do i do that ? WshObject = CreateObject("WScript.Shell") WshObject.run("c:\Remove-5.1.exe \silent \client") The exe runs but does not accept the params thnxs Tag: Display a value from an Excel worksheet Tag: 185361
  - 23
    - Mouse Move event How would you make a script that makes the mouse actually move to a specific location? Tag: Display a value from an Excel worksheet Tag: 185360
  - 24
    - hebrw Encoding Problems Hi HAPPY NEW YEAR TO ALL!!! I have a webpage form that collects data to place in a msaccess database and also email info back to the user. I have the webpage encoded as windows-1255 however the data being placed in the access table and the email are sending with the wrong encoding.. How can I control the code language that the ASP scripts use?? Regards Meir Tag: Display a value from an Excel worksheet Tag: 185355
  - 25
    - replace text with date variable? We currently have a script that runs at startup written in .vbs that works perfect, it uses something similar to the following. where if the date is more than 12 months old it runs. dim startdate dim duration startdate = #11/01/2004# duration = 12 if dateadd("m",duration,startdate) < date() then where after then it runs the script perfectly.. at the end of the script we have it run another .vbs which has something similar to the following Const ForReading = 1 Const ForWriting = 2 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("backup.vbs", ForReading) strText = objFile.ReadAll objFile.Close strNewText = Replace(strText, "startdate = #11/01/2004#", "startdate = #11/01/2005#") Set objFile = objFSO.OpenTextFile("backup.vbs", ForWriting) objFile.WriteLine strNewText objFile.Close And again this works great!, but what I am wondering, to basically make it seamless, is if there is a way to replace strNewText = Replace(strText, "startdate = #11/01/2004#", "startdate = #11/01/2005#") with something like strNewText = Replace(strText, "startdate = #11/01/2004#", "startdate = current date variable") so I wouldn't have to manually change the file once a year, and worry about a silly mistake. I have tried toying around with the %date% variable, but it seems to write in mm-dd-yy, which I am not sure if the script can understand with the previous mm/dd/yyyy format.. Does anyone have a suggestion as to how I might be able to write the current date format in the 2nd part as mm/dd/yyyy using a variable of sorts? Matthew Rice Rice Computer Solutions www.ricecs.com Tag: Display a value from an Excel worksheet Tag: 185351
- Next
  - 1
    - Using VBscript to change an Excel spreadsheet without Excel Application Hi, I have created a VBscript to format an Excel spreadsheet, but when I go to execute it on the server that has the database from which the data is extracted, I get an error as the server does not have Excel installed on it. Is there ANY way to get around this without having to install Excel, inventive answers are more than welcome. TIA Chris aka BoobBoo Tag: Display a value from an Excel worksheet Tag: 185345
  - 2
    - Looking for pdf generator I have this asp web site, mostly vbscripts. Connected to a database. I would really like to dynamically generate unlimited PDF reports from the database, but I am having a problem to find any freeware PDF generators. Preferably I would like to use vbscript to produce the reports, but that's not essential. Any suggestions? And what would you recommend of shareware products? Kind regards, Svein Tag: Display a value from an Excel worksheet Tag: 185340
  - 3
    - Hightlight a phrase with replace() Hi, I am building a search enginee and I would like to hightlight the keywords or phrase in the search similiar to Google. For one or several keywords are no problem. They are loaded into an array and iterate through with a replace(str, keyword, "<b>" & keyword & "</b>"). My question is how I can do something similar with a phrase within quotes and one or several keywords? ex: "fuelcell batteries for car" energy hydro and have those hightligted in a result text. Any ideas, Thanks in advance Christian Tag: Display a value from an Excel worksheet Tag: 185339
  - 4
    - Check for VB Script Support Hi all, I am extremely new to VB Script and am in a sitation that I need to work with a VB Scrip DOM Parser. I know that Mozilla and Opera do not support VB Scripting so I created a function to check the browser if it is compatible or not. Now I need to make another check that if it is Internet Explorer check if VB Script can run on that browser or not? For what should I check please? And it is best to make this function in PHP like the rest of the script or VB Script? And if VB Script any hints please? thanks and happy new year to all :) Matthew Tag: Display a value from an Excel worksheet Tag: 185336
  - 5
    - Localhost to Live Access The code below works when I use a Localhost URL, but will not work live. All I want to do is display a .snp test file for students. Does anyone know why it will not work when we go live. No halts or messages, it just brings up a white blank screen. Falis on both Windows 2000 Pro and Windows XP. <Html> <Body> <Title>Display Snapshot Page</Title> <Form Name="Test" Method="Get" Action="rptTxQuestions.snp"> <Input Type="Submit" Value="Return to Sign On"> </Form> </Body> </Html> Thanks in advance Granny Tag: Display a value from an Excel worksheet Tag: 185335
  - 6
    - Programs Installed Can I pull the programs installed, Manufacturer, Version adn date installed? And export to a text file? Tag: Display a value from an Excel worksheet Tag: 185329
  - 7
    - Pulling IP Info from computer I want to create a script to pull the MAC Address, IP address and Computer name from a remote computer to a text file. Is this possible? Please assist. Tag: Display a value from an Excel worksheet Tag: 185327
  - 8
    - Has anyone tried scripting IPFX (Outlook addon) I can explore the object to a certain extent but I can't actually get a script to dial a number. dim oPhone Set oPhone = CreateObject( "ctiPhoneControl.ctiPhone" ) WScript.Echo "MyLine is " & oPhone.MyLine WScript.Echo "State is " & oPhone.State Do While oPhone.State = 0' oPhone.Connect WScript.Sleep 100 Loop WScript.Echo "After Connect State is " & oPhone.State oPhone.Dial( "7273" ) Do While oPhone.State = 6 WScript.Echo "After Dial state is " & oPhone.State WScript.Sleep 100 Loop WScript.Echo "Finally State is " & oPhone.State oPhone.Disconnect And the output is: >cscript "C:\Documents and Settings\libma00\Desktop\Dev\t.vbs" MyLine is 7061 State is 0 After Connect State is 6 After Dial state is 6 Finally State is 7 >Exit code: 0 So it seems to work but nothing actually happens. My phone doesn't do anything and IPFX itself in Outlook doesn't even recognise I've done anything. Ideas anyone? Bruce. Tag: Display a value from an Excel worksheet Tag: 185324
  - 9
    - jscript calling asp querystring i have a jscript function as function new{ link="page1.asp" sample=window.open(link,...) } <vbscript> s= request.querystring("user") how can i pass this variable to "page1.asp" when i pass this variable it says "s" is undefined Tag: Display a value from an Excel worksheet Tag: 185318
  - 10
    - Writing To Word File Can someone tell me how to write to a word file in vbscript. I can create the object, but can't find the syntax to write or format the text. Any help or direction would be great. Thanks, Stan Tag: Display a value from an Excel worksheet Tag: 185317
  - 11
    - Writing To Word File Can someone tell me how to write to a word file in vbscript. I can create the object, but can't find the syntax to write or format the text. Any help or direction would be great. Thanks, Stan Tag: Display a value from an Excel worksheet Tag: 185316
  - 12
    - Writing To Word File Can someone tell me how to write to a word file in vbscript. I can create the object, but can't find the syntax to write or format the text. Any help or direction would be great. Thanks, Stan Tag: Display a value from an Excel worksheet Tag: 185315
  - 13
    - Writing To Word File Can someone tell me how to write to a word file in vbscript. I can create the object, but can't find the syntax to write or format the text. Any help or direction would be great. Thanks, Stan Tag: Display a value from an Excel worksheet Tag: 185314
  - 14
    - Bug? Date functions get day & month wrong Hi all, I am using the regional date time settings as English(Australian). That means that my date settings will always display as day/month/year I have an app which I'm entering a date. It's written in VB. When I intercept my field after its been entered and use VBScript to display a msgbox to screen I get funny results which seem to be a VB Script bug. I enter 11/01/2006 (which means in my lingo 11th Jan 2006) I then display msgbox DAY(myfield) & MONTHNAME(Month(myfield)) & YEAR(myfield) and lo I get "1Nov2006". I can also use MSGBOX FormatDateTime(myfield,1) and get Wednesday, 1 November 2006 Clearly they are wrong. I need to get, respectively 11Jan2006 and Wednesday 11 January 2006. HOWEVER!!! As soon as the first two characters of my date are 13 or more then it understands correctly what my date is - that's because there's no months greater than 13 so I guess it's assuming that I need the format changed to d/m/y. Then as soon as the first two chars are 12 or less, then it goes back to m/d/y. Is there a fix for this? Tag: Display a value from an Excel worksheet Tag: 185313
  - 15
    - VBS and Excel (Conditional Formatting) Hi I can use VBS to do most things in Excel (copy/paste/create spreadsheets etc), but I cannot get Conditional Formatting to work. I've googled and haven't came up with anything that relates to VBS, only VBA. The code that Excel makes up from a Macro is: Selection.FormatConditions.Delete Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _ Formula1:="80" Selection.FormatConditions(1).Font.ColorIndex = 3 VBS accepts the .Delete line, but if I try to add one, it comes up with errors using the above code. IE The below works Set objXL = WScript.CreateObject("Excel.Application") objxl.Selection.FormatConditions.Delete But objXL.Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, Formula1:="80" doesn't. Does anyone know what syntax I should use to get it to work? Cheers Leon Tag: Display a value from an Excel worksheet Tag: 185310
  - 16
    - Faster than Ping? Is there a way of finding out if a machine is online that is faster than ping? I've been using the WMI technique rather than the .Run method. Regards, Bruce. Tag: Display a value from an Excel worksheet Tag: 185309
  - 17
    - Scripting WINS Is there a means for talking to the WINS servers? My services file mentions wins 1512/tcp #Microsoft Windows Internet Name Service wins 1512/udp #Microsoft Windows Internet Name Service Is there a way of scriptfully interacting with WINS? Regards, Bruce. Tag: Display a value from an Excel worksheet Tag: 185308
  - 18
    - ActiveDesktop and GetObject In my HTA I have a line Set oIADSUser = GetObject( Subst( "WinNT://[1]/[2],user", Array( sDomain, sUsername ) ) ) It was suggested to me that I might want to convert the HTA into an ActiveDesktop object. I tried it but it keeps failing on this GetObject line. Is there a workaround or is this a known limitation? Regards, Bruce. Tag: Display a value from an Excel worksheet Tag: 185307
  - 19
    - Sql query via a form button on a web page. Hi, I have an area of web page that I do query to display display some information. It is basically a Select statement to display everything in the table, which loops around till everything is displayed. That works fine and dandy. I want to create three buttons to display information for "Past 24 Hours", "Past 72 Hours", and "All Entry's" I am not sure the best way to do this, any ideas? OH, the select statement for 24 hours, 72, or all entries I have but the part I am not sure is how to put the code into the buttons. thanks in advance, Tag: Display a value from an Excel worksheet Tag: 185306
  - 20
    - Terminating a script / Content missing from MSDN page I'm trying to terminate a process on my local PC using WMI's .ProcessTerminate method. It's returning a value of 2 ("Access Denied"). I can kill the same process from Task Manager without difficulty. I searched MSDN for this situation and came up with the following page: "Terminate Method of the Win32_Process Class" (http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/terminate_method_in_class_win32_process.asp). This page mentions enabling the SeDebugPrivilege privilege through VBScript to get around this error; however, the the VBScript code that would illustrate how to enable the SeDebugPrivilege privilege seems to be missing from the page! Any idea where this--or similar--code can be found? Tag: Display a value from an Excel worksheet Tag: 185294
  - 21
    - Remote Code Execution I'm in a Windows AD environment that isn't very conducive to running startup scripts to achieve my goal. What I am trying to do is copy a vbs script to a remote client machine, and then execute that script on that machine using my credentials. The script itself, when manually run on a client works perfectly. What I can't get to work is the remote execution of the script. I can start a process for notepad.exe and calc.exe, but I cannot start the script itself. Any ideas? Tag: Display a value from an Excel worksheet Tag: 185293
  - 22
    - Restart script for domain users Hi folks, I'm trying to write a script (still not sure it is the best option though) to allow our end users to restart their PCs each night. Here is our scenario: -users do not have access to the command prompt (blocked by GP) -users do not have access to shutdown or restart the computers (blocked by GP) -users do not have admin rights -we want user's to reboot their systems every night without having the option to shut the machine off Now here are the two options I think we have, I would prefer the first but I'm working on the second at the moment: 1) Use group policy to bock access to Shutdown but allow access to Restart. Alternatively we could do this by a reg hack but I don't have any clue how to do it either way. 2) Create a script that we can place on each user's Start Menu to reboot the computer. This script would need to run with elevated privileges (we have an account we can use which has access to reboot the workstations). I'm really new to scripting so I'm kind of fumbling my way along here but I have managed to write a script (with help from a couple sites) that reboots a test workstation using alternate credentials but the command prompt is not blocked on that system. When I do block it, the script doesn't work - says action blocked by policy. Does anyone have any ideas on how I can go about doing this? Now my second question on this script. As I need to embed the username and password in the file, is there any way to prevent users from being able to view this account information (we have a couple savvy folks). And my last question (I promise) - when I double-click on the script while logged in as a regular user (not power user) it doesn't work but if I launch it from a command prompt it does. When I double click on it as administrator it works with no problems. How do I get around this? Any and all help is greatly appreciated!!!! Thanks in advance, Nancy Tag: Display a value from an Excel worksheet Tag: 185290
  - 23
    - HTML & VBScript -> security problem!? Hello, I am trying to develop an simple desktop background that shows some system information using WMI. A .vbs script is allready working and this script works in an html application too. The problem is that you can't make an .hta your desktop wallpaper and a simple html file with this vbscript causes an error "ActiveX Can't Create Object": Set objWMIService = GetObject("winmgmts:" & "!\\mycomputername\root\cimv2") Has anybody an idea how to adjust security settings to make this work or what else I could try? Kind regards, Sebastian Tag: Display a value from an Excel worksheet Tag: 185279
  - 24
    - Is there a way to get ip address and upload it ? Is there a way to get ip addess from www.whatismyip.com and then upload it to ftp ? Thanks Tag: Display a value from an Excel worksheet Tag: 185277
  - 25
    - Up time Hi, Is there an object.property I can look at that will give me the up time of a system? Thanks in advance, JeffH Tag: Display a value from an Excel worksheet Tag: 185268

I am new to vbscript and am trying to do the following:

I have an Excel worksheet with Column A being a range of dates and
Column B being the backup tape to use on that date. I would like to
run a vbscript that:
(1) Finds today's date from Column A
(2) Reports back the tape number for that row from Column B

Can someone assist me with this?

Thanks.

Top