VBA to VBScript difficulty

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
    - Script needed to change permissions on folder structure in users home area! Woody May 25, 1:19 pm show options Newsgroups: microsoft.public.scripting.vbscript From: "Woody" <TOSCA...@YAHOO.CO.UK> - Find messages by this author Date: 25 May 2005 05:19:54 -0700 Local: Wed,May 25 2005 1:19 pm Subject: Re: Create folder structure inside current folder. Reply | Reply to Author | Forward | Print | Individual Message | Show original | Remove | Report Abuse I am going to be cheeky now and ask if you can help me with this script dilema i have before i create another post in the group. I am using this script below to create the permissions on the users Home Area which gives them Full Control, Administrator Full Control and Staff Modify. What i want to be able to do with a new script is only give read access to the root of the pupils home directory but full control of the folders (and subfolders which they will be able to create themselves) of the folder structure i have created for them. I currently use this. Const ForAppending = 2 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile ("c:\sec.bat", ForAppending, True) REM ******************************************************************************** Set objOU = GetObject ("LDAP://ou=ENTRY 97,OU=PUPILS,DC=LIB,=UK") REM ******************************************************************************** For each objuser in objOU REM ******************************************************************************** commandtorun = "CACLS "&chr(34)&"D:\HOMEDIRS\entry97\"&objUser.SAMAccountName&chr(34)&" /T /C /P "&chr(34)&objUser.SAMAccountName&chr(34)&":F administrator:F STAFFG:C <c:\y.txt" REM ******************************************************************************** Set WshShell = CreateObject("WScript.Shell") REM WshShell.Run commandtorun, 1, TRUE objTextFile.WriteLine(commandtorun) objTextFile.WriteLine(attribcommand) REM This will make the account not expire DO NOT USE IF WANT USER TO CHANGE PASSWORD WHEN LOG ON Next objTextFile.Close REM RUN VBS FILE Set WshShell = CreateObject("WScript.Shell") WshShell.Run "c:\sec.bat", 1, TRUE REM objFSO.DeleteFile("C:\sec.bat") Wscript.Echo "User Security has been set" Tag: VBA to VBScript difficulty Tag: 175229
  - 2
    - Create folder structure inside current folder. I have very little knowledge of scripting so please bear with me. I currently have 1500 users who each have ther Homepath via user account in AD. They all have a home directory folder on the a server. What we need to do is create a folder structure inside the individual users folder. ie: folder called Bill already exits. i want to add a folder structure that looks like this. Bill \maths \english \french \german Can this be done via a logon script or a script that is run locally on the server which hosts the home directories. We are trying to put the folder structure in place to try and encourage users to be more organised.They already have files and folders in hteir directory so we want to add these folder and encorage them to re arranged. We are a educational establishment and some of the kids are not too organised. Tag: VBA to VBScript difficulty Tag: 175221
  - 3
    - wake on lan Hello I'm trying to create a script to do a wake on lan, but can't find much information on how to create the magic packet or how to use the winsock any information is appreciated. RT Tag: VBA to VBScript difficulty Tag: 175214
  - 4
    - Execute Remote Process visible hi there, I am having trouble getting this script to popup notepad on the remote XP screen, it will start the Notepad.exe process but will not make the window visible. can anyone help? Thanks Const WINDOW_STATE = 5 strComputer = "RemoteMachineName" Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set objStartup = objWMIService.Get("Win32_ProcessStartup") Set objConfig = objStartup.SpawnInstance_ objConfig.ShowWindow = WINDOW_STATE Set objProcess = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2:Win32_Process") errReturn = objProcess.Create("Notepad.exe", null, objConfig, intProcessID) Tag: VBA to VBScript difficulty Tag: 175212
  - 5
    - two tables with same column names I have a select statement - SELECT tblone.FirstName, tblone.LastName, tbltwo.FirstName, tbltwo.LastName, tblthree.Meet FROM tblone, tbltwo, tblthree WHERE tblthree.VID = tbltwo.ID AND tblone.CID = tblthree.CID tblone and tbltwo both have FirstName and LastName columns Normally I would just write <%=rs.fields("FirstName")%> but then it only gives me the tblone FirstName. I tried <%=rs.fields("tbltwo.FirstName")%> but that just errors. How do I call both tables First and Last Names? -- Olivia Towery Tag: VBA to VBScript difficulty Tag: 175205
  - 6
    - date/time -vbscript I am creating a log file and need to make sure the log files created is unique. How can I get the following: strFilePrefix= strYear & strMonth & strDay & "-" &strHour & strMinute & strSecond Tag: VBA to VBScript difficulty Tag: 175204
  - 7
    - Set Local group policy or Import I am responsible for many stand alone laptops that are never attached to domain. I already have a login script on these machine that silent merges s .reg file to ensure settings remain the way I want them. Several settings are only available using MMC and the group policy snap in. I need to know how to ensure those don't get changes either. If needed I should be able to export a known good policy template, but how do I automate importing it, or better yet handle this taks soley within vbs It is neccesary for my users to be local admins, so yes, they do have the rights to changes things. However with the login script we have reduced problems greatly Tag: VBA to VBScript difficulty Tag: 175194
  - 8
    - Access doc from web I know how to open a document from the web like so: Set doc1 = objWord.Documents.Open("http://my.site.com/path/to.doc") My problem is I need a way to use this document in a method call that needs the filename in the form of a string. Of course, the first thing I tried was putting in the entire URL as a string like in the Open call, but this particular method (.Merge or .Compare) doesn't seem to like the 'http://' reference. I also tried referencing the document object that I already opened. If I use 'doc1.FullName', it still throws the same error saying, "The document name or path is not valid". Is there a way to use the object that has already been opened? Maybe point to whereever the temporary file is being stored? Any help would be GREATLY appreciated. Chris FYI. I'm trying to use either Word's '.Compare' or '.Merge' method to difference 2 documents from the web without saving them locally. Tag: VBA to VBScript difficulty Tag: 175191
  - 9
    - XP Desktop icons Whenever I log into a Windows XP pc as a new user I always have to add My Computer, My Network Places and Internet Explorer icons to the desktop. Is there a way to do that with a vbscript? Thanks in advance. Russ Tag: VBA to VBScript difficulty Tag: 175190
  - 10
    - Simple VB Script Can someone explain why this fails as a SQL job? Thanks '********************************************************************** ' Visual Basic ActiveX Script '************************************************************************ Function Main() dim fs,f set fs=CreateObject("Scripting.FileSystemObject") set f=fs.GetFile("e:\slxdbs\Recycle.csv") f.Copy"e:\slxdbs\New_Recycle.csv",true set f=nothing set fs=nothing Main = DTSTaskExecResult_Success End Function Tag: VBA to VBScript difficulty Tag: 175187
  - 11
    - Automate window fonts installation I need to install new font on all the 200+ PC's in the Windows 2000 domain. All stations are Windows XP SP1/SP2. I there any way to install new fonts either with login script or policies, using vbscript or freeware app? Thank you Tag: VBA to VBScript difficulty Tag: 175181
  - 12
    - Scientific Notation Is there an equivalent in VBScript to JScript's "toExponential" method? I need to display a number in exponential format and haven't found a means to do that yet. Thanks, Karen Tag: VBA to VBScript difficulty Tag: 175174
  - 13
    - Whats Wrong with this Uninstall Script? I need to uninstall one application from every computer on the network. I found the script below, which is meant to perform just that, but have had no luck in testing. Does anyone know what I am doing wrong, an improved script, or another approach? The program is 'WRQ Reflection for UNIX and OpenVMS 11.0' installed on Windows XP. Thanks in advance strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colSoftware = objWMIService.ExecQuery _ ("Select * from Win32_Product Where Name = 'WRQ Reflection for UNIX and OpenVMS 11.0'") For Each objSoftware in colSoftware objSoftware.Uninstall() Next Tag: VBA to VBScript difficulty Tag: 175168
  - 14
    - Announcement: New Archive API - looking for betatesters Dear Developers, Archive Component 1.0 is a new API designed to integrate archiving and file compression into windows applications. Archive Component supports COM-objects and .NET-classes. The Archive Component reads data from ZIP, JAR, GZIP, TAR, Z and ARJ-files and writes to the same file formats except ARJ. You can see the complete Programmers Reference including examples in VBS and C# online at: http://www.edcomponents.com/EDComponents/Programmers%20Reference/Archive A free beta-version including the Programmers Reference and examples can be downloaded at: http://www.edcomponents.com We have taken great care to simplify the usage as much as possible. Now we are looking for beta testers to help us verifying and further improve our component. Everybody, who sends us a useful report or comments, will receive a free developer-license after the public beta period has ended in the middle of June. We appreciate your feedback and would like to know about problems, opinions and usability. If you have further questions, please feel free to mail to: ArchiveSupport@EDComponents.com. Best Regards, Carsten Neubauer ED Components CNeubauer@EDComponents.com Tag: VBA to VBScript difficulty Tag: 175160
  - 15
    - Images and boot menu Hello all I just created a USB key, I can boot with a little menu with some options such as: Win98, Ghost, WinXP (disk installation). The quesiton is: Can I use the images (.iso, .ima, others) and call them from a menu batch? Thanks a lot henpat Tag: VBA to VBScript difficulty Tag: 175154
  - 16
    - Reading and processing a EDI File I have a urgent need to for processing some EDI files to be loaded into SQL Server and also outputting data in SQL Server to EDI. Can somebody kindly share a sample EDI file and an scripts you have built to process this file I would greatly appreciate the help. Also, please clarify are there any addons we need to help in EDI processing from VB Script. Thanks Karen Tag: VBA to VBScript difficulty Tag: 175151
  - 17
    - ZIP can i use windows XP built-in ZIP by vbscript? any info. thx. tony Tag: VBA to VBScript difficulty Tag: 175150
  - 18
    - how to capture events in a brower? I have been running afoul with either security or Anti-virus block when I use CreateObject("Scripting.FileSystem") inside an HTA The HTA is just capture some user input and button action. Is there a way I can change the hta to html and let an vbs script take of the button click events? Tag: VBA to VBScript difficulty Tag: 175146
  - 19
    - a question of vbscript hi,i find this document about the excel workbook object http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dv_wrcore/html/wrgrfexcelworkbookobject.asp and now i want to know how to implement it in vbscript. i mean when i click a button on http://localhost/test.html file i want to set the file "c:\test.xls" passowrd "123" and save it as "c:\test2.xls". i am so sorry to bother you and appreciate your help!!! Tag: VBA to VBScript difficulty Tag: 175139
  - 20
    - Assigning functions to keystrokes Hi! I have an application with three frames. I want to assign custom functions to different combinations of keystrokes. For instance I want to display a popup window if the user presses F1 (keycode 112). I have placed this proc in "leftFrame - Nav.htm" and it only works for "Nav.htm": Sub KeyFunctions() Select Case window.event.keyCode Case 112 ... End Select End Sub <body onkeydown="KeyFunctions()"> I have two questions: 1. Where do I put the procedure so that it works across all frames regardless which frame has focus? 2. How can I override the default behavior of IE showing the Help wizard when pressing F1 or prevent IE from doing other things when pressing an already built in key combination? Regards PO Tag: VBA to VBScript difficulty Tag: 175137
  - 21
    - Please help - Creating a simple web service I would like to create a simple web service and consume it in VB Script please can any of you share the code to create a web service and how to consume it. Also, please advice what additional software needed to use the web service. Thanks Karen Tag: VBA to VBScript difficulty Tag: 175135
  - 22
    - vbscript creating xml file Below is a vbscript that reads in a xml file and outputs the information. I m astruggling with how to take the information and create an xml file. Second, is for each CLASS there are a number of properties I would like to gather. I don't know when to write a closing tag. For example, the LCD class has two properties I would like to gather. Once I have pulled infomration I continue to the next class. I don't know how to create the closing tag between classes. CODE ' ************************************************************************* ' Set objPortal=CreateObject("posPortalLib.posPortal") Const SigName ="expsig061509" objPortal.Open("pptp://10.128.189.51") isOnline=(objPortal.ResultString) WScript.Echo(isOnline) 'Main Sig() Function Sig() '************************************************************ ' Name: Sig ' Purpose: ' Inputs: None ' Returns: None '************************************************************ Const StoreXML_DROPOFF_DIR = "C:\" Const StoreXML_FileName = "NewXML.xml" Set objFSO = CreateObject("Scripting.FileSystemObject") Set xml = CreateObject("Microsoft.XMLDOM") XML.async = False XML.load StoreXML_DROPOFF_DIR & StoreXML_FileName Set classes = XML.selectNodes("//SIGInventoryData/Class") For Each pclass In classes className=pclass.Attributes.getNamedItem("CName").value 'WScript.Echo (className) For j = 0 To pclass.childNodes.Length - 1 sPropName = pclass.childNodes(j).selectSingleNode("@PName").Text WScript.Echo(j) 'WScript.Echo className & Space(1) & sPropName strValue=objPortal.GetVar("config."& className & "." & sPropName) WScript.Echo className & "." & sPropName & "=" & strValue Next Next End Function OUTPUT LCD.brightness=32 LCD.backlight=1 Audio.volumelevel=2 XML FILE READING INFORAMTION FROM <SIGInventoryData> <Class CName="LCD"> <Property PName="brightness"/> <Property PName="backlight"/> </Class> <Class CName="Audio"> <Property PName="volumelevel"/> </Class> </SIGInventoryData> Tag: VBA to VBScript difficulty Tag: 175134
  - 23
    - MYSQL Database in the Internet Hi there, I'd like to connect to a MySQL Database in the Internet with a vbscript. Is that possible? If yes, can you give me a hint how? Thanks in advance Klaus Tag: VBA to VBScript difficulty Tag: 175125
  - 24
    - query missing some columns Why would the following not return the same number of columns I see if I run "New Crosstab" inside the Access Database? It should return 5 columns but I only get 3 in my vbscript. Does it have something to do with "TRANSFORM" and a crosstab query? const ConnectString = "Provider= Microsoft.Jet.OLEDB.4.0;Data Source=\\...\Status.mdb" sql = "select * from [New Crosstab]" Set rs = CreateObject("ADODB.Recordset") rs.CursorLocation = adUseClient rs.open sql, ConnectString, adOpenKeyset, adLockReadOnly rows = rs.GetRows thanks LJB Tag: VBA to VBScript difficulty Tag: 175124
  - 25
    - Table issue Here is my simple html code that list users in a table format: <html><B>User List</B><table border=1 cellpadding=0 cellspacing=1> <TR><TD>Name</TD><TD>Age</TD><TD>Gender</TD></TR><BR> <TR><TD>Joe</TD><TD>21</TD><TD>M</TD></TR><BR> <TR><TD>Mary</TD><TD>33</TD><TD>f</TD></TR><BR></Table</Html> The problem is: There is a big gap (several blank rows) between the line 'User List' and the table when display in html. (It appears that the more <TD> entries I make in the code, the wider the gap.) What code would need to be added to the coding in order to have the table listed just one line below the line "User List"? I appreciate your help. Fan Tag: VBA to VBScript difficulty Tag: 175119
- Next
  - 1
    - extracting numbers from a text field Field is like this 1,3,15,99 or 10,4,24 and I want to extract the first number. How do I do this? -- Olivia Towery Tag: VBA to VBScript difficulty Tag: 175118
  - 2
    - How to create a "Array of Bytes" in VBScript? Hello everybody out there, I need to create an "array of bytes" in VBScript. If I try something like: === dim Test5() for j=0 to 10 redim preserve Test5(j) Test5(j) = CByte(j) next === Result: Though: vartype(Test5(1)) = 17 = Byte there is: vartype(Test5) = 8204 = array of variant Has anybody an idea how to create the correct data type? Thanks a lot Arno Tag: VBA to VBScript difficulty Tag: 175108
  - 3
    - Quick Launch Bar Would anyone be willing to give me a script I can use to turn a users Quick Launch Bar on by default the first time they log into the system? Bonus points if you can show me how to script a specific width (7 icons wide). Thanks Tag: VBA to VBScript difficulty Tag: 175106
  - 4
    - CreateObject in VBscript The following code is in a web page and results in an error on the CreateObject line. <SCRIPT language=VBScript> Sub OpenPowerPoint() Dim oPP ' Create a Powerpoint application Set oPP = CreateObject("PowerPoint.Application") oPP.Visible = True ... The following code is a Visual Basic 6 program on the same PC and works successfully Sub OpenPowerPoint() Dim oPP As Object ' Create a Powerpoint application Set oPP = CreateObject("PowerPoint.Application") oPP.Visible = True ... Is there some restriction on using CreateObject() in VBScript in web pages? Can someone explain the difference between CreateObject() in VBscript and Visual Basic? In both cases I would like to open PowerPoint on the client PC. Thanks for any help given. -- Steve Walton Tag: VBA to VBScript difficulty Tag: 175087
  - 5
    - Logon script & Citrix Metaframe. Hi. Hope this is the right forum for this problem. We have a logon script in our AD enviroment which runs in IE shell. Now when users try to logon to Citrix Metaframe there's only cscript window but nothing happens. The cscript window stays there as long as you want to watch it. When you close it you are able to log on normally. If I change the default script host to wscript.exe the script will never load and the user cannot log on to metaframe. Normally that script is run by wscript (without metaframe). I have looked that when the script is run that wscript.exe and iexplore.exe processes start ok. Now if I test logon with administrator rights the script loads and runs fine with both cscript and wscript. Metaframe "Power Users" experience the same problem. Hmm.. I tested this script and it works fine: wscript.echo "I suck 'cause I can't get it work :(" I don't know what would be the best solution, but could I run a different script in terminal sessions? That would solve my problem, maybe... /Arsi Tag: VBA to VBScript difficulty Tag: 175086
  - 6
    - Using a text file as database Hi, Is it possible to use a text file as a database and parse it using VBScript? For example, let us assume that I have a text file with following entries: Identification No Name Date xpern21 Bob 05/21/05 I want query this file using the Identificaiton number, which will be unique, and get the remaining details like name & date. Can I do this using VBScript? If so, can you point me to some example code to learn this concept? Thanks for your time, Ravi Tag: VBA to VBScript difficulty Tag: 175085
  - 7
    - Parsing text into web page table entries? I have a bunch of files (Playlist files for media player) and I am trying to create an automatically generated web page that includes the last 20 or 30 of these files. The files are created every week and are named XX-XX-XX.ASX where the X's represent the date i.e. 05-22-05.asx The files are a specific format and will always contain tags like the following: <TITLE>My media file title</TITLE> <AUTHOR>Media file author</AUTHOR> <Ref href = "mms://media.mydomainname.com/2005/05-01-05.wma" /> I would like to parse these files for the info in the tags, Title, Author, and Date and then add them to a table on a web page, but I have had no luck creating the parsing on my own. Can anyone give me a good start in the right direction using vbscript to get this going. I especially have trouble pulling the date out since it is at the end of a tag.. Though I suppose the filename could be used if that could be converted into a properly formatted date i.e. May 1, 2005 Help? Tag: VBA to VBScript difficulty Tag: 175082
  - 8
    - Count Letters Is there a script out there that will read a text file and then give totals for each letter found, a-z Tag: VBA to VBScript difficulty Tag: 175071
  - 9
    - i need a script to search the hard drive Hello everyone i need a script to search the hard drive including all sub folders for certain files (.xls .mdb .doc .pst .ect ect) find these files that i request create a folder named after the computer and put a copy of these files in the folder, then i will copy the folder to the network location, this is insurance that no files are lost during a migration Please help if you can Bob Tag: VBA to VBScript difficulty Tag: 175068
  - 10
    - File search please Hello everyone i need a script to search the hard drive including all sub folders for certain files (.xls .mdb .doc .pst .ect ect) find these files that i request create a folder named after the computer and put a copy of these files in the folder, then i will copy the folder to the network location, this is insurance that no files are lost during a migration Please help if you can Bob Tag: VBA to VBScript difficulty Tag: 175067
  - 11
    - turn on vbscript option in IE I read somewhere that I need to turn on the vbscript (script?) option in order for script debugger to work. Where do I check whether I turned on or off vbscript option in IE 6? Thanks Daniel Tag: VBA to VBScript difficulty Tag: 175066
  - 12
    - WinWrap Basic? Visual Basic for Applications? I am playing with Dragon NaturallySpeaking (Naturally Speaking) Advanced Scripting capabilities. According to the documentation, it is "Visual Basic for Applications compatible". It also mentions WinWrap Basic, once. I own Microsoft's Visual C++ NET 2003. Can I buy and use Visual Basic for a Visual Basic for Applications programming environment? Is Visual Basic for Applications a language by itself, or is the syntax, keywords, and stuff dependent on the application? Thank you. I sense that the timing of command input is very good, but the documentation has lots of errors. For what its worth, here is what the syntax for some (SendInput in C++) functions look like. Seems to be a mixture. SendKeys Keys$[, Wait] SendSystemKeys "keystroke text" [, speed] SendDragonKeys "type this" Tag: VBA to VBScript difficulty Tag: 175062
  - 13
    - Excel Server Object won't overwrite I am using the CreateObject("Excel.Application") to create a workbook from three separate tables in a sql db. This works great and compiles three separate sheets to one workbook. The following lines name and add the workbook to the directory: fName = "" & strfile & ".xls" xls.ActiveWorkbook.SaveAs server.MapPath(".") & "\" & fName xls.Application.Quit What do I need to add to make the object overwrite the existing file? -- Olivia Towery Tag: VBA to VBScript difficulty Tag: 175056
  - 14
    - Looking for a VB Script Programmer We are Jumping Bean Studios [url]www.jumpingbeanstudios.com[/url] a new, multi-national team of artists, designers, animators and musicians dedicated to producing fun, non-violent, educational adventure and roll playing games for children of all ages. We are presently looking for a VB Script Game Programmer. We are looking for someone who has experience with or is willing to learn Adventure Maker. AM?s website is - [url]www.adventuremaker.com[/url] the programming language used by AM is VB Scripting (easy to learn I am told). This is not a full-time or even part-time position at this point. We are looking for a special person to volunteer a few hours per week to start. You will get the chance to work alongside other talented people and develop and express your skills. You can work out of your home anywhere in the world. If you have the right attitude and enjoy working as a team, we would be willing to offer you a percentage of the profits. If you have the right skills and show that you are truly ?Bean Team Material? we would be willing to offer you a partnership in the company. When you apply please show us your portfolio, games you have worked on if any. Also tell us about yourself including age, where you live, occupation, a short biography and the number of hours per week you can volunteer. Submit your portfolio to me at futographer@cox.net Thank you for your interest Please forward this to anyone who you think might be interested. Patrick Ellis Artistic Director Jumping Bean Studios -- Futographer ------------------------------------------------------------------------ Posted via http://www.codecomments.com ------------------------------------------------------------------------ Tag: VBA to VBScript difficulty Tag: 175053
  - 15
    - VBS Script vs In-use files I want to automate the backing up of an important database via a vbs script on a small LAN. The problem is, how can I be sure that the database isn't open and in use? Waiting until, say 2 am when the activity is likely nil, is unacceptable because the machines are shut off after everyone has gone home. Does anyone have a suggestion as to how I could determine (via scripting) if any users have the database open? All machines are XP SP2. Dick Tag: VBA to VBScript difficulty Tag: 175048
  - 16
    - How to import a XSD and XML file into a SQL table I have the dump of a Access table in the form of a .XML and .XSD file and I want to take this .XSD and .XML file and define a SQL Server 2000 table and upload this data. I heard there is a SQLXML bulk load that can be called from VBScript can somebody please share the code for the same. Thanks Karen Tag: VBA to VBScript difficulty Tag: 175042
  - 17
    - Script that reads "to" line and forward to users In a certain Outlook 2002 (Exch2003), imagine I want to read "to:" line and then forward such e-mail message to whoever is on the "to:" line. Can you point me to such script or tell me what type of objects I should use to accomplish this ? If you can show me the script that would be a great help, since I have lots of false-positive e-mail that were caught by our anti-spam filter and now I need to forward to users. Thanks ! Tag: VBA to VBScript difficulty Tag: 175038
  - 18
    - attaching running document to the script debugger I have difficulty in attaching a running document to the script debbugger. I am running an html document using IE 6. No document shows up in the running document window in the debugger. Any help would be appreciated. Daniel Tag: VBA to VBScript difficulty Tag: 175037
  - 19
    - Need help parsing XML from an HTTP_POST I am using MS InfoPath to create a survey. I am posting it to an ASP (not .NET) page. InfoPath says that it sends the data as XML using HTTP POST. How can I process the posted xml data? With an HTML form, I would just do Request("formobj"), but that does not seem to work with XML. I know the data is being posted because I have a test If Request.ServerVariables("REQUEST_METHOD") = "POST" Then I write a simple text file just to see if the page is being submitted to. If this is not the write forum, please re-direct me. I tried the InfoPath forum, and they are just a bunch of Marketing and HR users with no programming knowledge. Thanks! Tag: VBA to VBScript difficulty Tag: 175035
  - 20
    - handle CreateObject failure? I'd like to call CreateObject, but handle failure of this function by running regsvr32.exe (with WshShell.Run) and trying again. Alternatively, I'd like a way to test if an object is registered, so I can call regsvr32.exe before CreateObject if necessary. Does VBScript have some kind of try/catch mechanism or similar way to achieve this? TIA, Steve Tag: VBA to VBScript difficulty Tag: 175033
  - 21
    - Filling Html table hi, I have a comma delimited file contains contacts. I would like to fill the html table with the data from the file instead of hard-code them to the html table by using vbscript in-beded in html code. The html entry maybe like this one. Could someone help me how to automate the process? <tr> <td>Joe</td> <td>(111) 111-1111Cell</td> <td>Accounting Dept Cell</td> </tr> Fan Tag: VBA to VBScript difficulty Tag: 175029
  - 22
    - Run MBSA tool as administrator? Hi folks, I have a logon vbscript to run the MBSA tool, but it apparently needs to be ran with admin privledges. I know there are 3rd party utilities that can help do this, but I'd rather just incorporate the necessary info into my script. I've seen people mention how to do this, but I'm a little confused about how to incorporate this into my script. Here's my script: Sub run_mbsa Set oShell = WScript.CreateObject ("WSCript.shell") return = oShell.Run("""C:\Program Files\Microsoft Baseline Security Analyzer\mbsacli.exe"" /c %computername% /o %C%.%D%.com.xml /f c:\output.txt", 0, true) Set objFSO = CreateObject("Scripting.FileSystemObject") xmlfiles = oShell.ExpandEnvironmentStrings("%userprofile%") + "\securityscans\*.xml" objFSO.CopyFile xmlfiles, "\\servername\foldername" , True objFSO.DeleteFile xmlfiles Set oShell = Nothing Set objFSO = Nothing End Sub Can someone tell me how to run this as an admin? Thank you, Ed Tag: VBA to VBScript difficulty Tag: 175025
  - 23
    - manipulating tables in ms word I want to create tables in ms word through vbscript and manipulate them such as removing lines between certain cells and creating another table within a table cell, putting some text in a cell, etc. Any help would be appreciated. Daniel Tag: VBA to VBScript difficulty Tag: 175018
  - 24
    - disabling view source option in IE through vbscript Is there a way to diabling view source option in IE through vbscript? Thanks Daniel Tag: VBA to VBScript difficulty Tag: 175016
  - 25
    - How to invoke a SQL stored procedure from a logon script. Hi I'm trying to put together a logon script which retreives some data from the local system an inserts it into a SQL server database using a stored procedure. The stored procedure is called "Add_Clients" which takes the input @ComputerName and @UserName and inserts it into a table called "Clients". How do I write the code to invoke the stored procedure? Regards Wayne Tag: VBA to VBScript difficulty Tag: 175014

Hi All
The following vba line works in vba but not in vbscript.

Workbooks("123.xla").Sheets(2).Copy After:=ActiveWorkbook.Sheets(1)

vbscript apparently doesn't like the 'After' phrase.

How do I achieve the required functionality in vbscript?

TIA

Top

Re: VBA to VBScript difficulty by y

y
Wed May 25 09:15:43 CDT 2005

"Dash" <dshave@houston.rr.com> wrote in message news:evLdDCTYFHA.2128@TK2MSFTNGP15.phx.gbl...
> Hi All
> The following vba line works in vba but not in vbscript.
>
> Workbooks("123.xla").Sheets(2).Copy After:=ActiveWorkbook.Sheets(1)
>
> vbscript apparently doesn't like the 'After' phrase.
>
> How do I achieve the required functionality in vbscript?
>
You can't use named parameter in vbs.
You must specify parameters in sequence.
This script create new book and move Sheet1 after Sheet3,
then move Sheet3 before Sheet2.

Set XL = CreateObject("excel.application")
XL.Visible = True
XL.Workbooks.Add
With XL.ActiveWorkbook
.Worksheets("Sheet1").Move , .Worksheets("Sheet3") '<=Second parameter mean after
.Worksheets("Sheet3").Move .Worksheets("Sheet2") '<=first parameter mean before
End With

Y Sakuda from JPN

Top