Scrolling text ?

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
    - Save As Dialog Can't be Automated - ExecWB The Save As dialog cannot be automated using VBScript in WSH. There are at least three problems with this dialog when using ExecWB. 1. The dialog will always be visible and require intervention of the user: OLECMDEXECOPT_DONTPROMPTUSER is broken and does nothing. 2. The path to the file is in all circumstances ignored. You may as well use NULL. 3. There is no way to change the file type to be saved. The only input parameter is supposed to be for the file name and path, which as I said is completely broken. The only way to get a dialog with all applicable file types present is by using OLECMDEXECOPT_DONTPROMPTUSER. Here is my code. Sub MHT_Save() 'TODO: Remove hard-coded file path 'OLECMDID_SAVEAS = 4 (from MSDN "OLECMDID" topic) 'Also OLECMDEXECOPT_DONTPROMPTUSER = 2 'Save the file using InternetExplorer.Application ExecWB method App.ExecWB _ OLECMDID_SAVEAS, _ OLECMDEXECOPT_DODEFAULT, _ "C:\\Documents and Settings\\quell\\Desktop\\MHT Project\\MHT File Output", _ NULL WScript.Echo("Saving file...") WScript.Echo(Now()) Do While App.ReadyState <> READYSTATE_COMPLETE WScript.sleep(1000) Loop state = SAVED End Sub Tag: Scrolling text ? Tag: 157373
  - 2
    - computer startup script I am trying to write a computer startup script that will be pushed out through group policy. I want to check if a key exist in the registry. If it does then exit if not add the key. I can run this from my desktop and it works but it doesnt have the if statement. Dim WshShell Set WshShell = WScript.CreateObject("WScript.Shell") WSHShell.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Office\11.0\Outlook\ForceFormReload", 1 ,"REG_DWORD" I tried adding this for the if statement but its not working Dim WshShell Set WshShell = WScript.CreateObject("WScript.Shell") IF RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Office\11.0\Outlook\ForceForm Reload") <> "" Then END IF ELSE WSHShell.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Office\11.0\Outlook\ForceFormReload", 1 ,"REG_DWORD" I am new to vbscript so this is a beginner question Any help would be great thanks.. Tag: Scrolling text ? Tag: 157365
  - 3
    - objIE.Writeln from 2nd script From VBScript/WSH I creat an IE window for outputting script status. Problem is, my script calls other script and I want to output script status from those scripts into the same IE window. How do I bind to the IE instance from a script which did not originally create the IE application? Here is the code I created to start the original IE application window in script a.vbs... Set objIE = CreateObject("InternetExplorer.Application") Set objDoc = objIE.Document objIE.Navigate "about:blank" objIE.Visible = TRUE objIE.RegisterAsBrowser = TRUE Do While (objIE.Busy) Loop objDoc.Writeln "<html><head><title>My Project " &_ WScript.ScriptName & " Status" &_ "</title></head><body bgcolor='white'>" objDoc.Writeln "<font face=Arial size=1>" &_ Now & " - </font>" &_ "<font face=Verdana size=2><b>" &_ WScript.ScriptFullName &_ " Script Execution Started" &_ "</font></b><br><br>" Again, I want to bind to this IE instance from, say, b.vbs and output to the same IE window. Can I do this? Thanks, Marty Tag: Scrolling text ? Tag: 157361
  - 4
    - Manipulating Word 2000 from VBSCIPT script (WSH 5.6) We need to automate the creation of word documents from the command line. We taught about creating a vbscript script that would take command line arguments and create the word document according to those parameters. For some reason, certain things work, otheres do not. When we try to call some word.application or word.document methods, the script interpreters gives an error. Ex: Trying to run the following script by double clicking on its .vbs file gives the following error (Translated from french): Script: C:\insert.vbs Line: 12 Caract: 33 Error: ')' expected Code: 800A03EE Source: MS vbscript compilation error Sub FindBMark() Dim wordApp ' As Word.Application Dim wordDoc ' As Word.Document Dim wordRange ' As Word.Range Set wordApp = CreateObject("Word.Application") Set wordDoc = wordApp.Documents.Open("C:\MyDoc.doc") wordApp.Visible = True wordRange = wordDoc.Goto(What:=wdGoToBookmark, Name:="City") wordRange.InsertAfter "Quebec" wordDoc.Save wordApp.Quit Set wordApp = Nothing End Sub Call FindBMark() The script finds a bookmark called "city" in the document and insert the word "Quebec" there... If I code the script in a VBA macro (By uncommenting the 'AS word.applicaton, etc), it works just fine. But the problem with the VBA macros is that I can't seem to be able to call them from the command line or pass parameters to them unattended. I tried replacing the wdGoToBookmark by its value but it did not work either Tag: Scrolling text ? Tag: 157360
  - 5
    - Submit vbscript array contents in form Hi I have a page with a form and a results page. My form: <form name = "theform" action="results.asp" method="post"> Part of the form is 5 dropdown boxes, which the user selects a value from and clicks a button. Clicking the button adds the 5 values to a 2 dimensional array, and each line of the array is then displayed in a select box with each element seperated with || such as 1||2||3||4||5. My array: redim preserve empnum(5,z) empnum(0,z)=document.theform.injured.value empnum(1,z)=document.theform.mechanism.value empnum(2,z)=document.theform.agency.value empnum(3,z)=document.theform.bodypart.value empnum(4,z)=document.theform.nature.value empnum(5,z)=document.theform.treatment.value The results page is a check for the user before they submit the data to the database. I have the rest of results from the form displaying on the results page, but how can I display the contents of the array on the results page??? A little help would be much appreciated. Tag: Scrolling text ? Tag: 157357
  - 6
    - XP start menu and removing items from list Hey all When using sysprep, after the image has been pushed and initialized, when you log in the first time some things are set back to default that I don't want There are about 6 items in the start menu that we remove, disable file and print sharing, add a check box to "Use this connection's DNS suffix in DNS registration" and a couple of other odd and ends Can someone give me some insight on how to script this so that I don't have to do it a 100 machines when I image them Thank Matt Tag: Scrolling text ? Tag: 157356
  - 7
    - Writing a file that contains double Quots as content In vbscript I'm trying to write a string that contains double quots as part of the content. Ex: "SqlServer2000" My vbscript is as follows: dim String1, String String2 = "SqlServer2000 String1 = """ & String2 & "" WriteLine(String1 The results that I'm getting are: " & String2 & ". What I wanted is: "SqlServer2000". the quots are included as part of the variabel content. How do I make this work for me? thank Loui Tag: Scrolling text ? Tag: 157347
  - 8
    - Strange Characters in file I'm using vbscript to create a flat file. At the beginning of the file a hex '255'. What should be there is teh beginning of my data. I've used both Write and WriteLine to output the data. I'm trying to create the following command osql -U sa -P xxxxx -S xxxxx The line contains the following: x255osql -U sa -P xxxx -S xxx Why is the first character being created? Thank Louis Tag: Scrolling text ? Tag: 157339
  - 9
    - scripting mapped shares **** Cross posted from DFS **** We are moving a few of our file servers behind DFS and would like to remap the drives on our systems with a script. something like: enumerate drives into an array. Parse each array object mapped drive for \\fileserver1\share if exist remove mapping and remap with \\domain\dfsroot\share I know I cant be the first one to run across this. Mike Tag: Scrolling text ? Tag: 157335
  - 10
    - RSLinx and asp. I need a help (either pointers to where to post this message,or actual pointers on my problem). I'm getting very frustrated in here. I decided to write the interface between RSLinx and microsoft IIS. It seems that every time I'm almost there I stumble on yet another ?GOT YOU !!!'. I'm beginning to think that it is simply impassible to create the .asp page which will be able to post or get the data to and from RSLinx. (all the processing to be done on the web server) There are a dozens of activex components that could be utilized for this function, but to me it looks like those components have no right to work insight the .asp page this is why (and please correct me if I'm wrong pointing me to the resource o the web which proves it ) : 1.OPC is riding on top of the DDE. 2.Every call made from the asp page is running in it's own memory space without the actual application space. Which means that it can not communicate with the DDE or OPC server running under the different memory space. (even if it runs as the service) I think that most of the ActiveX components are designed to interface with the DDE/OPC servers running and accessible from within the same program and application space. And because of that, all of them are functioning perfectly well when called from within the client application running on the desktop with the forms, and text boxes behind. I have not seen one single working example on the call from within the asp page running on the Microsoft server which has the OPC/DDE server installed on it. I have created a simple DDE to RSLinx ActiveX control using the VB6 build DDE support . Worked fine on the client did not work in the asp. Then I created the ActiveX control that talks to the RSLinx over the DDE using the DDClient controls ? no problem works fine as the client VB application, refuses to work as the asp. So at the end I have build the VB6 ActiveX dll which was using the RSLinx objects. Again the same problem ? goes ?belly up' if called from within the asp, perfectly fine from the application running on the console. Before I waste any more time and invest any $ for the third party components that claim to work I would like to ask the ?world' to prove me that I'm wrong and interfacing RSLinx to the WWW is realy passible. (some simple working and tested code will be much appreciated) I'm willing to start a new project and distribute the code under the GPL if needed. And please reply to the post and only if you know that the information is corect. What I found is that there is a lot of the answers to the usenet groups which are not productive. /Babak babak at op.pl PS. I want to let you know that I even went as far as reconfiguring the account under which my IIS is running so it is not I_USR anymore. I even made the new www service account as the administrator of the box, I logged in to the server with that account ( so the registry is populated for that user). In my activex component class I also created a basic function that returns some values ? in order to test the correct component registration. I can still make the ADO and FS references but every time any type of the reference to RSLinx or DDE happens it goes belly up. I have no $ to spend on the RSLinx SDK, and quite frankly I'm affrait that even if I spend those $ I will still be in the same point which I'm in right now. Tag: Scrolling text ? Tag: 157333
  - 11
    - Identifying Platform at logon Does anyone know of a way to identify that the PC being logged on to is a Windows NT 4.0 server? We have VB scripts that we do not want running at logon whenever the PC is a Windows NT (or Windows 2000) server. Is there something in the registry, for example that can be read that will identify the PC as a server Russell-S Tag: Scrolling text ? Tag: 157332
  - 12
    - tool to show all sql from Access DB (ADO)? Does anyone have vbscript to report all the Query names and full sql statements in an Access DB? I'm not particularly interested in any report related sql just for those found in the query window. I have many Access databases and sometimes need to document what they contain or to look for queries using certain tables. Access also can contain stored procedures. Is it possible to read this sql also? Even though the database may contain some it doesn't appear to be visible anywhere. thanks LJB Tag: Scrolling text ? Tag: 157328
  - 13
    - Excel Script for Data Porting (please advise) I am going to attempt to write a script that can pull data and enter it into another program with drop down boxes, radios, fill ins etc. My question is three part 1.IS THIS POSSIBLE? 2.WHAT DO I NEED TO ACCOMPLISH THIS (in terms of source for the database into which I want to post the data, as in object names of boxes/radios etc) 3. What is the best language to use to do this in. If it is not VBscript. Basically I have been handed this huge Excel document and been asked to enter it into a database by hand. I want to avoid this at all costs as it will take weeks of work and the amputation of at least 2 fingers to accomplish. If anyone can help please shoot me any comments that may help at all. Anything. My sincere thanks in advance to anyone who has any input on this issue. Justin__devine@hotmail.com Tag: Scrolling text ? Tag: 157323
  - 14
    - Runtime error Error below: C:\scripts\lcompbydom.vbs(104, 2) Microsoft VBScript runtime error: Object required: 'DOMAIN1' Here is what I'm trying to do. 1. Read in file with entries including valid domain names. Each line has 1 entry. DOMAIN1 DOMAIN2 DOMAIN3 2. Each line is read and added to the array. 3. Then I want to find each computer in each domain which is an entry in the array. 4. Get the error on the first entry. Here is the section with the lines referenced in the message 'Open INPUT file for reading selected domains Set objFSO = CreateObject("Scripting.FileSystemObject") strInFullName = objFSO.BuildPath(strInPath, strDataInFileName) Set objInputFile = objFSO.OpenTextFile (strInFullName, FOR_READING) Do Until objInputFile.AtEndOfStream Redim Preserve arrDataInput(Index) arrDataInput(Index) = objInputFile.Readline Index = Index + 1 Loop objInputfile.Close ' The next line is #104 For DataItem = LBound(arrDataInput) to UBound(arrDataInput) Step 1 objDomain = arrDataInput(DataItem) Set objUseDomain = GetObject("WinNT://" & objDomain.Name) objUseDomain.Filter = Array("Computer") ParseComputers Next Thanks! Tag: Scrolling text ? Tag: 157321
  - 15
    - ASP Treeview SQL Server - URGENT NEED! Hello. I am trying to find a NON .NET answer to using a treeview control with ASP. I am able to use this contror without issue in VB but ASP presents an entirely different set of isssues. I can get the treeview to populate based upon my recorset pulled from the SQL Server but cannot get the value of the clicked node to appear in the test input box. (This is the prelude to the actual working of the click of the node. Once I capture the value on the page - the processing can begin.) I also cannot seem to get my picture/icon to show at the apptopriate node level. This is mostly because I don't seem to be able to get the imagelist control to work properly. <sigh> I could really use a simple, working example. All of the examples I found are using .NET which is not an option for me here. Thanks David Tag: Scrolling text ? Tag: 157314
  - 16
    - Encryption Functions that don't generate special characters? Hi, Does anyone have an encryption function that doesn't generate special characters? (ok, I know it's not really encryption). I've taken a look at the RC4 and XOR examples but these both generate special characters that are causing me problems. thanks david Tag: Scrolling text ? Tag: 157312
  - 17
    - DCom security properties changing with vbscript? I'd need to remove access from "everyone" from a bunch of servers (more than 200) from couple of services. Is there a any information available on how-to do this with vbscript? It doesn't need to be vbscript if a batch compatible program exists for this purpose, but I was thinking this might be possible with vbscript... I tried googling a bit but didn't come up with anything I really wanted :/ Any help would be appreciated. Thanks. Tag: Scrolling text ? Tag: 157310
  - 18
    - FTP-script? I need to create a script that would do the following: 1. connect to a remote computer using FTP. The remote computer uses IIS 2. download a file from the remote computer 3. upload a response based on the downloaded file How can I do this without using any 3rd party programs? Tag: Scrolling text ? Tag: 157309
  - 19
    - user rights and copy hi i have to write a little .vbs ! the script have to set the user rigths from "only read" to "read & write"! then i will copy a directory from the server to my harddisk.. after this, i will set the user rights back! can someone help me? sry for my bad english :) thx Tag: Scrolling text ? Tag: 157302
  - 20
    - Random generation of items in given proportions Good grief, that's a terrible subject header. I have no idea how else to summarize this, though. The point of this post is to solicit alternative methods for what I'm doing. Let's say I want to randomly generate items in given proportions. For example: dogs: 400 cats: 200 pigeons: 0 frogs: 0 ducks: 100 "Select" is out. This needs to work for lists of arbitrary length. What follows is seminal (ignoring the list items themselves), just to show how I'm approaching this. I enter 400,200,10,0,100 when prompted: | arrOne = Split(InputBox("Enter data points"),",") | redim arrTwo(UBound(arrOne),3) | Randomize | | total = 0 | For j = 0 To UBound(arrOne) | arrTwo(j,0) = arrOne(j) | total = total + arrTwo(j,0) | Next | | For i = 1 To total | fud = 0 | test = Rnd() | test2 = 0 | For j = 0 To UBound(arrTwo) | arrTwo(j,1) = (arrTwo(j,0)+fud)/total | fud = fud + arrTwo(j,0) | If test > test2 And test < arrTwo(j,1) Then arrTwo(j,2) = arrTwo(j,2) + 1 | test2 = arrTwo(j,1) | Next | Next | | For i = 0 To UBound(arrTwo) | WScript.Echo arrTwo(i,2) | next A typical result: ------ 427 181 11 91 ------ Note that the number of iterations just happens to be the total; what I'm after isn't so much the number of items on completion, rather I'm after an average rate that's proportionate as this thing runs. Any other, simpler ways of doing this kind of thing? -- Scott Almost summer! http://snipurl.com/trebuchet Tag: Scrolling text ? Tag: 157299
  - 21
    - NAV def file version Hi there, I need to determine what the latest version of Norton Anitvirus definition files are installed on a bunch of machines. We run versions 7.5, 7.61 and 8 (or something like that). Anybody tackled this problem? Any hints, clues or ideas...? Cheers in advance... Tag: Scrolling text ? Tag: 157292
  - 22
    - vbscript for IIS OK, there are probably alot of you out there that think this question is dumb, but I can't figure it out.. How do i get vbscript installed on IIS (Or wherever) so that I can write vbscript on my ASP webpages? Its driving me friggin nuts! Please, let me know Rye Tag: Scrolling text ? Tag: 157286
  - 23
    - Total size of a directory? Is there a simple way, in vbscript, to determine the total space occupied by a directory and its subdirectories, or am I going to have to recurse through it and add up all the file sizes? -- Michael A. Covington - Artificial Intelligence Ctr - University of Georgia "In the core C# language it is simply not possible to have an uninitialized variable, a 'dangling' pointer, or an expression that indexes an array beyond its bounds. Whole categories of bugs that routinely plague C and C++ programs are thus eliminated." - A. Hejlsberg, The C# Programming Language Tag: Scrolling text ? Tag: 157278
  - 24
    - Domain Migration (NT4 to W2k3) I am working on a script which will remove a computer from an NT 4.0 domain and add it to a new W2k3 Active Directory domain. Microsoft has a sample script (http://www.microsoft.com/technet/community/scriptcenter/compmgmt/scrcm31.ms px) which shows how to join the workstation to a domain, but I believe I have to remove the account from the old domain before adding to the new. The return code I get after running this script above (of course changing the necessary variables) is 2691. And the result is the computer is still in the old NT 4.0 domain and no account added to the new AD. Any help would be appreciated... Chris Tag: Scrolling text ? Tag: 157277
  - 25
    - proxy settings in script Hello; We have just put up a proxy server and all HTTP traffic must go through it. We need to modify a VB Script, that access a web page directly, to use the proxy settings. Can anyone tell me how do to this? Thanks john beck Tag: Scrolling text ? Tag: 157272
- Next
  - 1
    - Never-ending Loop HELP !!!! I read the newsgroups and figured out my little problem with reading a text file. I have two entries in my text file, it reads the first line, write the data OK when it does the second line over and over again. I have to end task to make it stop. What am I missing? Const ForReading = 1 Const ForWriting = 2 Dim System, FSO, fs1, rs1, rf1 Set fso = CreateObject("Scripting.FileSystemObject") Set fs1 = fso.OpenTextFile("c:\test\testfile.txt", ForReading) set rf1 = fso.OpenTextFile("c:\test\results.txt", ForWriting, true) do while not fs1.eof rs1 = fs1.readline winmgmt1 = "winmgmts:{impersonationLevel=impersonate}!//"& rs1 &"" Set SNSet = GetObject( winmgmt1 ).InstancesOf ("Win32_BIOS") for each SN in SNSet rf1.write rs1 & " " & SN.SerialNumber rf1.writeline(1) Next fs1.movenext loop fs1.close rs1.close Thank you Tag: Scrolling text ? Tag: 157268
  - 2
    - Read Text File I am trying to read the first line of the text file it is not working? Any ideas? Dim System, FSO, fs1, rs1 Set fso = CreateObject("Scripting.FileSystemObject") Set fs1 = fso.OpenTextFile("c:\test\testfile.txt", ForReading) rs1 = fs1.readline msgbox rs1 Tag: Scrolling text ? Tag: 157266
  - 3
    - Issues with Running VBS Script during Login for Users I'm fairly new to VB Scripting and am just seeing how far I can push it. I've created a script that will help my co-workers and I update the IP information on about 1500 computers in our corporation. To make the automation fully complete, we'd like to add it to run in the Novell Login script that runs when each user logs in. The problem is the user won't have admin rights to make the necessary updates. I'm looking for suggestions on ways to get around this. I've thought of a couple ways, and have done some research into it...but not found a solid solution to make this work. We're hoping to make it a free solution as well. The best way I can think of is to use a 3rd Party (freeware) "Run As Different User" (that's a scriptable version of the Microsoft "RunAs" - The problem with this is the program can't see the network drive that the Script is Mounted on (because its mounted as "Limited User", and the script is running as an "Admin User") I have yet to figure out the work-around for this. Other drawbacks to this is the admin password is out there in an (encrypted) file... its not a big worry for us, but it is a vulnerability. Any suggestions, inputs, or criticisms would be appreciated. Thank-you, Eric Heaton New Media Designer Tag: Scrolling text ? Tag: 157265
  - 4
    - vbscript for enumerating users and permissions assigned to a network folder? Our department consists of around 50 users who have access to many, many directory folders on the network. Some folders they have read-only permission, some have read-write. I need to create an inventory of these files and would like to write a script that shows all folders a user has permission to write to on the network. Is that possible? Tag: Scrolling text ? Tag: 157261
  - 5
    - outlook folders hi, does anyone has a script to close and reconnect outlook personal folders? thanks Tag: Scrolling text ? Tag: 157260
  - 6
    - Get NT network id when connected via Microsoft VPN Set WshNet = WScript.CreateObject("WScript.Network") NTId = WshNet.UserName This works fine when logged in locally on the LAN. However, it returns the local PC's user id when run on a PC when connected to the network via a Microsoft VPN connection (PPTP). This may or may not be the same as the NT Id. How do I get the NT Id when connected via VPN? JPL Tag: Scrolling text ? Tag: 157255
  - 7
    - file search hi do you know that is there any script that i can run it for all computer in my domain (by sms deployment) to search a file and collect information for that file ex: exist or not. thanks Tag: Scrolling text ? Tag: 157254
  - 8
    - Help with sctipt Hi, Can anyone help creating a script to: Ex: read txt file with two columns "username", "telephone" search ad for the username if find write de telephone else skip Tanks Pedro Tag: Scrolling text ? Tag: 157247
  - 9
    - Checking a password protected word doc We have an automated system that converts word etc to HTML, we are having a problem with it failing on password projected word documents. (web upload, backend processing and web delivery) We have tried many options with no sucess, what we would like is a wsh script / asp or other that can look at a word document and just return a yes or no as to whether it is protected, we can then refuse to upload it, until the user has removed the protection. Thanks John Tag: Scrolling text ? Tag: 157243
  - 10
    - VB SQL Error? Set rs = Server.CreateObject("ADODB.Recordset") rsstatm = "SELECT * FROM F4105C" rs.Open rsstatm, ConnSQL rs.movefirst do while not rs.eof Set rs1 = Server.CreateObject("ADODB.Recordset") rs1statm = "SELECT * FROM F4105 WHERE COITM =" rS("COITM")" AND COMCU = "rS("COMCU")" AND COLEDG = '02'" AND COLEDG = '02'" rs1.Open rs1statm, ConnAS400 //====================================================================== // Why this SQL Statement is error? "SELECT * FROM F4105 WHERE COITM =" rS("COITM")" ...? // Where is the error? How to solve? //====================================================================== rs.movenext loop rs.close Set rs = Nothing Tag: Scrolling text ? Tag: 157241
  - 11
    - detect and redirect I-mode users Dear readers/posters, I'm not very familiar to vbscript at all. That's to say, I haven't got so far as to give it a try in programming. I know a thing or two abou VB(a). and a little about HTML. My problem/ request is the following. I have a site, which uses frames. Nothing for I-mode, which cannpot cope with that. I wonder weather it is possible in a script, to detect an I-mode user and redirect him/her to the I-mode part. (which is under construction) Anyone willing to write a trick for this, or give me a link where to find it. My Service provider does not support php or cgi or asp. (@home Netherlands) Take a look at my site if interested: http://members.home.nl/bedlam Thanks for your help. Tag: Scrolling text ? Tag: 157238
  - 12
    - RegExp question Im only a novice at regex so go easy on me ! Im having a problem with some irish email names and domain names,. is the ' an allowed character in email address. Does anyone know of an regexp editor I can use to create validations like this as is is not one of my strong points. Here is my validation, does can anyone see any characters I have not allowed and should do Private Function isEmailAddr(ByVal mailaddress) 'Checks for a valid email address Dim objRegExp , AmIValid, sCleanEmail Set objRegExp = New RegExp '// All on one line objRegExp.Pattern = "^([a-zA-Z0-9_'\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0- 9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$" '// End all on one line AmIValid = objRegExp.Test(mailaddress) If not AmIValid Then isEmailAddr = False Else isEmailAddr = True End If End Function Tag: Scrolling text ? Tag: 157237
  - 13
    - Set the time?? Is it possible to synchronise the time of the local machine via VBS - like the command "NET TIME \\SERVER /SET /Y" Cheers. Danny Tag: Scrolling text ? Tag: 157230
  - 14
    - Setting the time? Is it possible o sync the time with another machine via VBZ - like the NET TIME command?? Danny Tag: Scrolling text ? Tag: 157229
  - 15
    - Is it possible to set the system time from the web browser? I need to synchronize the system time on the client computer with a server by the web browser Is it possible to do by some VBScript or is it possible to run such script in a WSH launched by the web browser? Tag: Scrolling text ? Tag: 157228
  - 16
    - Create a Simple List of AD Users to .csv File I need to create a list of users: FirstName; LastName; PhoneNumber; Department for an OU. I need to be able to filter that PhoneNumber is <>Null I know that I did this last year - but .... Thanks Niel Tag: Scrolling text ? Tag: 157227
  - 17
    - Detecting Blank CD-RW The following code results in "Drive D: is not read (no media present)" whenever a BLANK (brand new) CD-RW is in the drive. How can I detect that a blank CD-RW is in the drive? There is no "IsBlank" property that I can find. I'm trying to determine if there is anything on the media and, if there is, the script erases the media (using CreateCD). Note that there is nothing wrong with the media (I've tried several disks, and can write on them fine. Once I've written on them, my script detects the media in the drive) '*** Make sure CD-RW drive read TestDrive = "D: Set TestDriveObject = fso.GetDrive(TestDrive If Not TestDriveObject.IsReady the PromptStr = "Drive " & TestDrive & " is not ready (no media present) PromptStr = PromptStr & CrLf & "Script terminated due to error PromptButtons = vbOKOnly + vbCritica ScriptExitCode = 9 TerminateScrip End if Tag: Scrolling text ? Tag: 157219
  - 18
    - Opening a new browser, not a window I have a need to open OWA in a new browser, not a new window. How can I programatically open a new browser session to a web page below http:\\<servername>\exchange\<userid I need this to be in a new browser, not another page, because the password and userid get cached in the browser session. If I open in a new page, the credentials get saved until that session is closed. If I open in a new browser, then when that session/Page is closed, the credentials are cleare I'm not a programmer and could not find anything about this on the Microsofts help page Thanks in advanc Gordo Tag: Scrolling text ? Tag: 157218
  - 19
    - Error en script .vbs Hola, saludos. He hecho dos scripts en vbs para borrar dos grupos de carpetas (folders) El primero funciona correctamente, pero al ejecutar el segundo se genera un error en línea 2, caracter 1, error "permiso denegado", código de error 800A0046, y origen "error de Microsoft VBScript en tiempo de ejecución". Los scripts son los siguientes: Set BorraRuntime = CreateObject("Scripting.FileSystemObject") BorraRuntime.DeleteFolder "D:\Incredimail\Datos de Incredimail\IM\Runtime\*.*" Set BorraAttachments = CreateObject("Scripting.FileSystemObject") BorraAttachments.DeleteFolder "D:\Incredimail\Datos de Incredimail\IM\Identities\{F7E4AEE0-8C88-4707-BA5E-680B32381A99}\Message Store\Attachments\*.*" ¿Cuál puede ser el error? Se trata simplemente de borrar dos grupos de carpetas, pero no he conseguido hacerlo. Gracias por la ayuda. Tag: Scrolling text ? Tag: 157216
  - 20
    - CreateObject("Microsoft.XMLhttp") Hi to all, does anyone know where to find a referende-guide for the "Microsoft.XMLhttp"-object? and how to save a picture-file from a (knowen) internet-address? thank's to all for helping. Marcus Tag: Scrolling text ? Tag: 157209
  - 21
    - createobject("adodb.command") Hello, Can some one tell me where I am going wrong. I am trying to execute a stored procedure using vbscript. I can execute them in vb6, but cant get it to work using active server pages. The problem is : Each time i try to create a command object I get the error - Activex cant create object ADODB.command. When I create an ADODB.recordset the compiler passes this. i.e **************************************************************************** ******** PAGE1. ASP **************************************************************************** ********   <SCRIPT LANGUAGE = VBSCRIPT> sub cmdButton1_onclick test() end sub </SCRIPT> <HTML> <% Response.write "<INPUT TYPE = button Name = cmdButton1 Value = Add>" %> </HTML> **************************************************************************** ******** PAGE2.ASP **************************************************************************** ********  <SCRIPT LANGUAGE="VBSCRIPT" > Function test() dim objCommand Dim adoStreamQuery 'Pass this ok Set obJRs = CreateObject("ADODB.Recordset") 'Fail - Error: Activex component can not create object ADODB.command Set objCommand = CreateObject("ADODB.Command") end function </script> Thanks... Tag: Scrolling text ? Tag: 157203
  - 22
    - mandatory fields When creating new objects in ADSI from a class, I can see what properties are mandatory by browsing AD with ADVW, by use of the schema management tool, or by refering to MSDN Library. MSDN does provide the most information. Still, it is not clear to me how one can tell, when instantiating a new object, which of the mandatory fields must be populated by the script writer and which the system will populate (such as Object-SID). Are there any general guidelines I might share with a student? Thanks, JB Fields Tag: Scrolling text ? Tag: 157199
  - 23
    - Unicode OpenTextFile and Search Problem I have written a script in vbs that basically opens a set of selected files, performs a search on each file and replaces each occurrence of a string with a different string. This works fine on ASCII files. However the original files that I will be searching are Unicode files. With these files, even though I have stated in the OpenTextFile command that the files are to be opened as Unicode, the search finds nothing. I have confirmed that the files are unicode by checking the first two characters are ASCII 255 and 254. If I copy the contents of the Unicode file to a new text file the search works fine. What is my problem? Do I have to have a search string that is written in Unicode? I'm using RegExp to do the search. I do not want to save or convert the original files. I thought I'd find a solution in the newsgroups quickly on this one. But have had no success yet. Please help as the script is fully functional except for this "simple" problem. Thanx in advance. Rob Tag: Scrolling text ? Tag: 157197
  - 24
    - Help with script I would like to determine if a machine is a workstation or a server. I am running the script below, but it keeps erroring out, by saying "<machine> does not have wmi installed" ' Specify NetBIOS name of the computer strComputer = "\\image1 ' Trap the error if WMI is not installed, or if the compute ' is off line On Error Resume Nex Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" If Err.Number <> 0 The On Error GoTo Wscript.Echo strComputer & " does not have WMI installed Els On Error GoTo Set colComputers = objWMIService.ExecQuery ("SELECT * FROM Win32_ComputerSystem" For Each objComputer In colComputer intRole = objComputer.DomainRol Select Case intRol Case strRole = " is a standalone workstation Case strRole = " is a member workstation Case strRole = " is a standalone server Case strRole = " is a member server Case strRole = " is a backup domain controller Case strRole = " is a primary domain controller End Selec Wscript.Echo strComputer & strRol Nex End I Tag: Scrolling text ? Tag: 157195
  - 25
    - Find Particular Shortcut The following code displays all shortcuts on a PC along with the path and target. How can I modify this to find a specific shortcut? I can't seem to find any documentation on this. Set colItems = objWMIService.ExecQuery("Select * from Win32_ShortcutFile",,48) For Each objItem in colItems Wscript.Echo "Name: " & objItem.Name Wscript.Echo "Target: " & objItem.Target Next Tag: Scrolling text ? Tag: 157193

Hi
I have a problem and I cant find a solution anywhere,
I have a page of text I need to put in a label or text box it is to b
used in an "About" page, the text is too big and I need to make i
scroll , does anyone know how to put scrolling text on a page

Also how do you word wrap text in a text box

Top

Re: Scrolling text ? by McKirahan

McKirahan
Fri Apr 30 07:59:17 CDT 2004

"ThePainter" <steven.a@blueyonder.co-dot-uk.no-spam.invalid> wrote in
message news:#CbRxVoLEHA.2396@TK2MSFTNGP12.phx.gbl...
> Hi,
> I have a problem and I cant find a solution anywhere,
> I have a page of text I need to put in a label or text box it is to be
> used in an "About" page, the text is too big and I need to make it
> scroll , does anyone know how to put scrolling text on a page ?
>
> Also how do you word wrap text in a text box ?
>

<form>
<textarea cols="60" rows="8">Your text goes here...</textarea>
</form>

I'd call it "scrollable" text as "scrolling" has a different meaning.

Top