Getting Word Application Instance -

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
    - Account DISABLED date tracked in AD? Hello, Is there a way to obtain the date (and time if possible) that an account in AD was Disabled? Thanks, Troy Tag: Getting Word Application Instance - Tag: 170146
  - 2
    - removing the "password never expires" setting from AD accounts Hello, I have a script which goes through local accounts (on member servers and professional workstations) and ensures the password never expires option in NOT set. Now I'm trying to convert this script to work on domain controllers with active directory accounts. Basically the script enumerates all the accounts in Active Directory and then attempts to unset any password never expires options. Where I'm having problems is the conversion between the WINNT and LDAP providers. Line 8 (which is commented out) in the script below is from the working, local accounts, version of the script. Line 9 is my attempt to translate line 8 for use with Active Directory accounts. Lines 13-18 are directly from the other script too. Line 9 is broken; any help anyone can provide with regard to the proper syntax is greatly appreciated. 1. Const ADS_UF_DONT_EXPIRE_PASSWD = &H10000 2. Dim usrFlagsValue 3. 4. set objContainer = GetObject("LDAP://cn=Users,dc=mydomain,dc=local") objContainer.Filter = Array("User") 5. 6. For Each objLocalUser In objContainer 7. strUser = objLocalUser.sAMAccountName 8. ' Set objUser = GetObject("WinNT://" & strComputer & "/" & strUser & ",user") 9. Set objUser = GetObject("LDAP://cn=" & strUser & ",dc=mydomain,dc=local") 10. 11. usrFlagsValue = objUser.Get("UserFlags") 12. 13. ' Check to see if the bit for password never expire is set; 14. ' The Xor operator toggles any "on"s to "off"s 15. If (usrFlagsValue AND ADS_UF_DONT_EXPIRE_PASSWD) <> 0 Then 16. usrFlagsValue = usrFlagsValue XOR ADS_UF_DONT_EXPIRE_PASSWD 17. objUser.Put "userFlags", usrFlagsValue 18. objUser.SetInfo 19. End If 20. Next Tag: Getting Word Application Instance - Tag: 170145
  - 3
    - error when working with CDOEXM to retreive data from remote Exchange Hi, I desperetly seek for help here. I'm running this script from my local machine (2003 server) and try to connect to the exchange on a different server. I have all the CDO obejcts installed: 1 Set iExs = CreateObject("CDOEXM.ExchangeServer") 2 iExs.DataSource.Open "inquire-exch" 4 For Each storegroup In iExs.StorageGroups 5 Next As a result, I'm getting the following error on line number 4: C:\a.vbs(5, 1) (null): There is no such object on the server. Facility: LDAP Provider ID no: 80072030 Microsoft CDO for Exchange Management when running the script on the exchange serveri itself, no problem occur. I also have administrator priviliges on the exchange server. Any idea what could be the problem here? Thanks! Alon Tag: Getting Word Application Instance - Tag: 170144
  - 4
    - Empty file problem Hello all, I created a cheap download script to download files. It works great on almost ever user we have, except for a few. I think there is some type of configuration problem on the server or browser, but I wanted to check with you guys first. Here is the script. Set objXML = Server.CreateObject("Microsoft.XMLHTTP") objXML.Open "GET", FilePath, False objXML.Send '// SafeFullFileName is the file we are downloading. We check to be sure it exists, right format, etc. Response.AddHeader "content-disposition","attachment;filename=" & SafeFullFileName Response.ContentType = "application/" & SafeFullFileName Response.BinaryWrite objXml.ResponseBody Set objXml = Nothing Thanks for the help. Tag: Getting Word Application Instance - Tag: 170142
  - 5
    - Loop through dictionary object I am writing a script that reads and test file, and then creates a dictionary based on set criteria. Each key that is added to the dictionary is appended with a number. This bit works OK. What I then need to do is output the data held in the dictionary, based on the first letter of the dictionary key. I need to do some sort of loop through the dictionary, that will look for all intances starting with "1", then all starting with "2", until it reaches the end of the dictionary. This piece of script will echo each key starting with "1", but I then need it to loop and show "2" etc etc. I have tried adding a Loop function, with an incremental counter i.e. n=0, n=n+1, but it's not quite doing what I need. Set objDictionary = CreateObject("Scripting.Dictionary") Set objDictionary = CreateObject("Scripting.Dictionary") objDictionary.Add "1_file.txt", "1" objDictionary.Add "2_file.txt", "2" objDictionary.Add "3_file.txt", "3" colKeys = objDictionary.Keys For Each strKey in colKeys if Left (strKey,1) = n then Wscript.Echo mid(strkey,InStr(strKey,"_")+1) Next colItems = objDictionary.Items For Each strItem in colItems if Left (strItem,1) = "1" then Wscript.Echo strItem Next Tag: Getting Word Application Instance - Tag: 170132
  - 6
    - User Generated Content I need to setup a webpage that generates links to documents based on the persons locally logged on username. The script below does the job, however I need the text "Please Click Here" to be hyperlinked to another page, I have tried doing a normal a href tag but this would not work. Any Ideas....... <script type="text/vbscript"> function greeting() i=UserName If i = administrator then document.write("Hello Administrator! Please click here") elseif i = sysadmin then document.write("Hello Sys Admin!") elseif i = Guest then document.write("Hello Guest!") elseif i = Internet then document.write("Hello Internet!") else document.write("You are not an authorised user") end if end function </script> Any help would be appreciated Tag: Getting Word Application Instance - Tag: 170131
  - 7
    - How to use vbscript to copy a header from one Word document to another I'm having trouble figuring out how to use vbscript to copy a header from one Word document to another. The code below generates an error message telling me that the requested object doesn't exist i.e., the error is produced by this line: Set objSourcRange = objSourcDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range.text However, the document does have two sections, and each section does have a header. So, I'm stumped. Any suggestions (preferably with explanation, or a clue where I can learn what I'm doing wrong, etc.) would be much appreciated. Thanks, marceepoo Here's the code: Dim sSourcDocFulnam, sTargetDocFulnam sSourcDocFulnam = "C:\Apps\test.speedText.doc.dot" sTargetDocFulnam = "C:\Apps\New Microsoft Word Document.doc" ' Set objWord = CreateObject("Word.Application") ' Set objSourcDoc = objWord.Documents.Open(sSourcDocFulnam) Set objSourcRange = objSourcDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range.text ' Set objTargetDoc = objWord.Documents.Open(sTargetDocFulnam) Set objTargetRange = objTargetDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range.text ' objTargetRange = objSourcRange Tag: Getting Word Application Instance - Tag: 170129
  - 8
    - ReDim + 2 Dimensional arrays = Errors! I have an annoying problem where my array is unable to redim whilst in a loop. I cant seem to see what the problem is, the code below shows that the array is originally redim'd at the beginning creating a 2 dimensional array. In the loop I want to increase the size of the array by 1 so I can add an extra item in the array Here is my code: dim myarray() redim myarray(1,2) for i = 0 to 10 myarray(i,0) = i+1 myarray(i,1) = i*100 response.write myarray(i,0)&"<br>" response.write myarray(i,1)&"<hr>" redim preserve myarray(i+1,2) next My result with error: 1 0 -------------------------------------------------------------------------------- 2 100 -------------------------------------------------------------------------------- Microsoft VBScript runtime error '800a0009' Subscript out of range /test2.asp, line 19 Any help would be appreciated, John Watson Tag: Getting Word Application Instance - Tag: 170127
  - 9
    - Telnet object Does anybody know of any good telnet class or objects?(ocx) We need to configure a many pieces of hardeware and it will take about an hour per unit and of course human error will happen. It would be nice to promatically configiure. Tag: Getting Word Application Instance - Tag: 170123
  - 10
    - Sending a Fax I am using the VB Script below to send an XLS file to a fax number, the problem is there is no cover page or information to say where the fax is from, who it is for etc, so all the recipient recives is the XLS (Excel)file. Can multiple files be faxed so that I can specify a cover page file as well as the main file that I want to send? or is there a way of entering more code to the example below to create some kind of header to the fax? Set doc=CreateObject("FaxComEx.FaxDocument") Set server=CreateObject("FaxComEx.FaxServer") Dim JobID server.Connect "mhsmngbntsa14" doc.Body="MY XLS FILE" doc.DocumentName="Sample Fax" doc.Recipients.Add "FAX NUMBER" doc.Priority = 1 JobID = doc.ConnectedSubmit(server) Im not a VB programmer so any feedback will have to be in baby talk! Thanks. Tag: Getting Word Application Instance - Tag: 170122
  - 11
    - WMI Timeout on Remote Computer Hi, I am having problems with running WMI query against a few remote Windows 2000 computers. Although the computer is turned on, the script just seems to hang for ages. Is there any way I can set a timeout so if no values are returned within a certain timeframe, the script will go on to the next computer? Thanks for any help... Tag: Getting Word Application Instance - Tag: 170121
  - 12
    - convert VB script code to vb application This is a multi-part message in MIME format. ------=_NextPart_000_0032_01C51447.56A8BE20 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Hi, I am wondering is there a way to convert a vbscript code to vb code and = compile to be an .exe? and the exe would allow arguments.=20 thanks Frank ------=_NextPart_000_0032_01C51447.56A8BE20 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Diso-8859-1"> <META content=3D"MSHTML 6.00.2800.1491" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT face=3DArial size=3D2>Hi,</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>I am wondering is there a way to = convert a vbscript=20 code to vb code and compile to be an .exe? and the exe would allow = arguments.=20 </FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>thanks</FONT></DIV> <DIV><FONT face=3DArial size=3D2>Frank</FONT></DIV></BODY></HTML> ------=_NextPart_000_0032_01C51447.56A8BE20-- Tag: Getting Word Application Instance - Tag: 170111
  - 13
    - Dropdown (<select></select>) z-index problem I know there is a problem. But what will be the solution? Mydiv is the 1st z-indexed element. But at the back ground there is a <select> element and they are overlapping visually. any suggestions? Tag: Getting Word Application Instance - Tag: 170110
  - 14
    - Registry question Hope someone can help, I want to be able to search the registry for a particular SubKey, if that key is found then I want to delete the key... I have put together a script that will enumerate the subkeys, but I am stuck at this point... can someone help. Option Explicit Dim WSH Dim strComputer Dim objReg Dim strKeyPath Dim arrSubKeys Dim SubKey '########################################################################### ######################################### Const HKEY_LOCAL_MACHINE = &H80000002 Const DELETE = &H00010000 strComputer = "." Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\default:StdRegProv") strKeyPath = "Software\Network Associates\ePolicy Orchestrator\application plugins" objReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys 'For Each Subkey In arrSubKeys 'WScript.Echo SubKey what I would like to do next is after the Keys are displayed I want to check for a particular SubKey and if it exists I want to delete it. Thanks Gavin... Tag: Getting Word Application Instance - Tag: 170096
  - 15
    - Client Side Scripting Question. As I'm new to ASP and VBscript, could someone explain (or point me to) how client side VBscript works on an ASP page. In particular, I have an ASP page that has a body with a form. I need to create a function to return the value of a text field. I would like to call the function with the onsubmit event. But alas, i get all kinds of errors (such as invalid call etc). Any direction would be helpful. Also, when an ASP page loads with a form element and VBscript code, which executes first? The script or the form? TX... Tag: Getting Word Application Instance - Tag: 170094
  - 16
    - Questions Regarding Windows Scripting Note: I am cross-posting this to microsoft.public.scripting.vbscript. I apologize in advance if only part of the message is relevant to that group. Hi, I have a few questions regarding use of the Microsoft Windows Scripting engine in a Visual Basic (classic) application. I am writing an application in VB6 Pro. that will be widely distributed (Windows 98 and up). Some parts of the application make use of the Microsoft Script Control (msscript.ocx). I understand that it is possible for end-users to disable the "Windows Scripting Host" and that it is a somewhat common thing to do due to security issues. This brings up a few questions: 1) Is this the only way possible to disable scripting on the system? If not, what else should I look out for? 2) If scripting is disabled, will the code executed by the Microsoft Script Control fail to run? Or is the Script Control independent of that system setting? 3) Is there any way to programmatically find out if scripting has been disabled? I realize that I could find out some of these answers myself if I had access to a test system where scripting was disabled. What steps can I follow in order to disable scripting on my test machine? Finally, is the Microsoft Script Control dependent on any other files? I scanned the file with Dependency Walker and could not find anything. Also, I found the following post by Randy Birch on June 8 of last year, that states: "It can be redistributed, as stated in MSKB article Q190978 (talking about a missing dependency error when using the package & deployment wizard to include msscript.ocx. Specifically, it states "RESOLUTION: In the case of a control such as MSSCRIPT.OCX, which does not need any additional files to be distributed with it, the message regarding "Missing Dependency Information" may be safely ignored." But, I would like to make sure that this is really the case. Thanks in advance, George Tag: Getting Word Application Instance - Tag: 170087
  - 17
    - Test for a group without members Hello, Is there an easy way to test an AD group for "no membership"..? Thanks, Troy Tag: Getting Word Application Instance - Tag: 170084
  - 18
    - vbs logon script I'm looking for a simple (vbs) logon script that I'll use in a workgroup with a windows 2003 standard server without a domain controller. It has to do this: map network drives with different usernames/passwords. I mean: network drive //fileserver/files needs to be drive H: on the workstation and needs to be mapped with username 'myself' and password 'secret'. If possible the drive H: needs to be named 'FILES'. Anynone? Tag: Getting Word Application Instance - Tag: 170083
  - 19
    - AD Group members without knowing full DN Hello, I have a deeply nested AD OU structure... I have a need for a script to list group membership.... The script will not know the full DN of the group name.. Is there an easy way to simply query AD for a group name match?? Troy Tag: Getting Word Application Instance - Tag: 170077
  - 20
    - Convert to NTFS Anyone have a script that automatically sets the computer to schedule a convert to NTFS at next reboot without user interaction? Tag: Getting Word Application Instance - Tag: 170076
  - 21
    - Building Array and Retrieve Data I've been struggling with retrieving data from an array. I want to search the array against "dataX" and if a match is found retrieve the corrosponding "datapropertyX" value. Dim arrDataSet(1,1) arrDataSet(0,0) = "data1" arrDataSet(0,1) = "dataproperty1" arrDataSet(1,0) = "data2" arrDataSet(1,1) = "dataproperty1" Can someone point me in the right direction? ~Randy Tag: Getting Word Application Instance - Tag: 170073
  - 22
    - Excel graph to Word I am trying to (with vbscript) copy a number of Excel graphs from Excel into Word but I cannot figure out how to do it. It would be nice to copy them as Excel objects but it would also be ok to just copy them as images. I would also like to adjust the size of the images/objects. Does anyone know how to do this? I use Office 2003. Thanks Anders Sneckenborg Tag: Getting Word Application Instance - Tag: 170072
  - 23
    - ie.Navigate can't deal with certain types of addresses If I put the simple code below into a .vbs file and run it, it should bring up a new IE window, put up an alert box, then change IE's title. And it does on my (gasp) unpatched Win 2K Pro system. However, if I run the same script on my patched Win XP Pro system, IE disappears, but fast, when the ie.navigate is hit. I'm the sole owner/operator with administrative privileges on both machines. Now I figure this is a security issue since if I write the long string that js contains directly into (the XP) IE's address bar, it is fine with that. So if that's the case, how do I get IE to allow me to programatically muck with it? In particular, what I'm asking is: given that I manually start a specific program (myProgram.vbs in this case, but it could just as well be PHP acting on myProgram.php) how can I designate that I want other programs to treat it as my fully empowered, authorized agent? Thanks, Csaba Gabor from Vienna set ie = WScript.CreateObject("InternetExplorer.Application") ie.visible = true hdr = "<head><title>Starting title</title></head>" onload = "alert(\'Title\\\'s going to change\');document.title=\'Title changed\';" bdy = "<body onload=""" & onload & """>Hi Mom</body>" js = "javascript:'<html>" & hdr & bdy & "</html>'" msgbox js ie.navigate(js) tmp=ie.readyState 'to alert us if ie prematurely disappears I've broken the generated string into three lines. Join them as one string to see the manual version in action: javascript:'<html><head><title>Starting title</title></head> <body onload=""alert(\'Title\\\'s going to change\'); document.title=\'Title changed\';"">Hi Mom</body></html>' Tag: Getting Word Application Instance - Tag: 170069
  - 24
    - vb6.0 + SC IDE Debugger Subject: vb6.0 + SC IDE Debugger I want to debug some vbs code (thru script control) by VB6.0, Is there any MS IDE Debugger tools for me to debug it step by step ? Thanks. Tag: Getting Word Application Instance - Tag: 170068
  - 25
    - How to press OK to a popup dialog box in IE? Hello, In my organisation, we need to do some logout on a webpage to really log off the internet. I'm thinking about trying to write a script to do this automatically and make this the logout/shutdown script. I've now got the following script which is listed below. I know that after clicking on the logout icon, a pop up will come up and ask me if I want to close the IE window, and there will be an OK and a Cancel buttons. How do I mimic clicking on the OK or the Cancel button? I want to know about both for the sake of learning. Or can I just code it such as with IE.close to close it whatever I'm presented? Thanks. Herbert ======================= Set IE=CreateObject("InternetExplorer.Application") If Err.number <> 0 Then MsgBox "There was a problem starting Internet Explorer." wScript.Quit End If IE.Visible=1 IE.Navigate "some internal link" do while IE.busy: loop Call NavigateLink(IE.document, "javascript:logout()") <I need something here> 'IE.Quit set IE=nothing Function NavigateLink(Doc, Contains) Dim colLinks Dim iIndex Dim oLink Set colLinks = Doc.links For iIndex = 0 To colLinks.length - 1 Set oLink = colLinks(iIndex) If InStr(oLink.href, Contains) > 0 Then Call oLink.click() ' Or maybe IEObject.navigate oLink.href depending on what you need NavigateLink = True Exit Function End If Next NavigateLink = False End Function ================================= Tag: Getting Word Application Instance - Tag: 170067
- Next
  - 1
    - modify INI file with IP address is it possible to do a silent change of an INI file into each workstation just by using their IP address? If someone can give me an idea of a sample script, it will be appreciated. TIA! Bob Tag: Getting Word Application Instance - Tag: 170061
  - 2
    - Enumerate GPO links on an OU? Hi, Does anyone know if it is possible to enumerate the GPO links on an OU from VBScript/LDAP? I have searched high and low but have struck out on this one. Some pages (fx http://www.rallenhome.com/books/adcookbook/code.html) have somthing about assigning a new GPO link to an OU, but nothing about listing the names of the existing GPO's assigned to a specific OU... Any help will be greatly appreciated! Thanks, Nicolaj P.S.: If anyone can help, I wouldn't mind a Cc: by mail if possible :) Tag: Getting Word Application Instance - Tag: 170059
  - 3
    - Var example... Is it possible? dim a, b a = "one" b = "two" I would like to dinamically create a new var which name is ab i.e. --> (a+b) that is the union of the names of the previous two vars. Any help appreciated. Regards. -- Fabri (Lattepiù chi può darti di più?) Tag: Getting Word Application Instance - Tag: 170052
  - 4
    - Client Side Validation on Textbox I have the following textbox in the footer of a Datagrid and I'd like to try and add some client side code too take out all the spaces which the user might enter by accident. The textbox is used to enter forename text so basically I need the code to strip out any spaces a user may enter. At the moment I have two validators and my html code looks as follows: - Can someone help me enter the code I need to achieve this. Thanks very much for your help <FooterTemplate> <asp:TextBox ID="add_Forename" Columns="5" Runat="Server" /> <asp:RequiredFieldValidator id="rvForename" runat="server" ErrorMessage="A Forename is required" ControlToValidate="add_Forename" Font-Size="Small">* </asp:RequiredFieldValidator> <asp:regularexpressionvalidator id="revlLengthLetter" ForeColor="Red" Font-Size="Small" runat="server" ErrorMessage="Forename must be more than 2 and less than 25 characters and has to be a letter" ControlToValidate="add_Forename" ValidationExpression="^[A-Za-z]{2,25}$">* </asp:regularexpressionvalidator> </FooterTemplate> Tag: Getting Word Application Instance - Tag: 170051
  - 5
    - ADO and VBScript Do anybody know if there is a web site which contains an overview of ADO? I've done some searching, but I'm not satisfied with what I've found so far. I want to use ADO much the same way as Scriptomatic does. In addition I want to do a bit of searching of the recordset. I want to understand what I do. So I need some documentation. Any suggestions will be appreciated. greetings, Tag: Getting Word Application Instance - Tag: 170050
  - 6
    - FileExists Method hi, can the FileExists Method check for file existance in a web folder ? eg. http://server1/xxx%20xxx/xxx%20xxx.doc pls advise. thanks Tag: Getting Word Application Instance - Tag: 170047
  - 7
    - Returning value from .VBS Is there any way to call one vbscript from another vbscript and be able to return a value from the called vbscript to the calling vbscript? Thanks, dra Tag: Getting Word Application Instance - Tag: 170045
  - 8
    - SQl query results into an array What I would like to do is have the results of my query go into an array. Here is my abridged code snippit. The output I get is the last record of the query I run, not the full results of query (which I want). --- code starts here ---- Const adOpenStatic = 3 Const adLockOptimistic = 3 Const adUseClient = 3 Set objConnection = CreateObject("ADODB.Connection") Set objRecordset = CreateObject("ADODB.Recordset") strConnectionString="Driver={Oracle ODBC Driver};DBQ=My_Database;UID=My_Username;PWD=My_Password" objConnection.Open = strConnectionString objRecordset.CursorLocation = adUseClient '* SQL Query objRecordset.Open "SELECT STORE_NUMBER, STORE_TYPE FROM STOREMAST.STORE WHERE STORE_TYPE LIKE 'Franchise' ORDER BY STORE_NUMBER" , objConnection, adOpenStatic, adLockOptimistic objRecordSet.MoveFirst Do While Not objRecordSet.EOF strStoreNumber = objRecordSet("STORE_NUMBER") srtStoreList = (srtStoreList + (strStoreNumber & ",")) objRecordSet.MoveNext Loop objRecordset.Close objConnection.Close arrStoreList = Split(strStorelist, ",") For Each strStore in arrStoreList WScript.Echo strStore Next Tag: Getting Word Application Instance - Tag: 170035
  - 9
    - Can't delete user from AD. works if I enter the name directly. Can anyone help as to why this doesn't work? It will work if I put the exact name in quotes, but If I put the variable in quotes it doesn't UserName=Chr(34) & UserObj.Name & Chr(34) UserObj.Delete "user", UserName Tag: Getting Word Application Instance - Tag: 170034
  - 10
    - MSDN KB 301464 - Error I am trying to implement a password based security on my website based on the KB 301464. But there seems to be an error in the Logon.asp file within the FORM tags. I am new to asp and anny help to trouble shoot this problem will be appreciated. Here is the complete link to the Article: http://support.microsoft.com/default.aspx?scid=kb;en-us;301464 Thanks, Raktim Tag: Getting Word Application Instance - Tag: 170033
  - 11
    - setting variable to 0 or nothing I have a variable that is repeated in a script over and over and I want to make sure its not carrying the value over to the next loop. whats the best way to initialize a variable to nothing or 0 value Thanks Ryan Tag: Getting Word Application Instance - Tag: 170031
  - 12
    - email script Is it possible to use vbscript to loop through all my messages in inbox and print the from: fields? tia. Tag: Getting Word Application Instance - Tag: 170027
  - 13
    - Compact files in Windows 2003 Hi. I would like to write a script to compact certain files on a Windows 2003 server. This server has no zip utilities installed so, I am considering the built-in features of Windows 2003. Can anyone point me to an article or any kind of material that could help me? Thanks, Robert Scheer Tag: Getting Word Application Instance - Tag: 170026
  - 14
    - Delaying on server side Hi, I would like to achieve the equivalent of META REFRESH but without the HTML meta refresh and without JavaScript. In other words, on server side I would like to wait some seconds, then redirect the page. Is there any way to do this? Tag: Getting Word Application Instance - Tag: 170017
  - 15
    - Change local Administrator account name? Hi, Is it possible to change the Administrator account name on a remote machine using script? TIA Tag: Getting Word Application Instance - Tag: 170010
  - 16
    - Listing local group users with WMI I have to list users of local groups with WMI. OS is Windows XP. VBScript is as follows: 'On Error Resume Next ' connect to WMI set oSvc = GetObject("winmgmts:root\cimv2") ' loop through each user strQuery = "ASSOCIATORS OF {Win32_Group.LocalAccount = True} WHERE ResultClass = Win32_UserAccount AssocClass = Win32_GroupUser" set Users = oSvc.ExecQuery( strQuery,, 48 ) for each user in Users wscript.echo user.name next The script terminates with error 0x8004103A "Invalid object path". Can anyone help me? Tag: Getting Word Application Instance - Tag: 170007
  - 17
    - How to generate a click on a cell in a table (II) Yes i saw the last posts for this question. But the point of this was: how to generate a mimic click when the focus is on a cell, if user hit the "enter" key. There are rows and coloumns on the table. (for example 4x4 cells) user surfing on the cells by tabbing (via tabindex set). And cells symbolize active links. How, if he hits enter when the focus is on the 3,3 cell, mimical click action appears. And how can we handle where the link goes... Thanks (sorry for my poor English) Caglar Tag: Getting Word Application Instance - Tag: 170006
  - 18
    - Suppress reload Hi I use the following Sub to show the .asp document in "rightFrame" in full screen: Sub FullScreen() window.open document.location.href,"","resizable=yes,toolbar=no,status=yes,left=0,top=0, menubar=no,scrollbars=no,width=" & _ screen.availwidth-5 & ",height=" & screen.availHeight-45 End Sub Is there a way to suppress the page from reloading itself? All the data is already displayed before the user clicks the Full Screen button. Regards PO Tag: Getting Word Application Instance - Tag: 170004
  - 19
    - Ordering files by part of the name I have a directory which contains several files that I will move through SQL DTS and I need to order them by a number that is part of the file name. For example sqldts20050201.txt, sqldts20050202.txt, sqldts20050203.txt, sqldts20050204.txt. What I'm looking to do it pull out the numbers and sort them in a sequence. Then move the files based on the minimum numeric value. BTW - The numbers represent a date. Any thoughts, LP Tag: Getting Word Application Instance - Tag: 170002
  - 20
    - Net user problems I am developing a wndows shell script to automate user creation on a 2 node active directory domain. The NET USER command does not populate the Full Name "firstname lastname" correctly (column 1 in mmc plugin). Also, the User Comment does not show up in the gui either. Is there vbscript solution to this problem? Thanks in advance. Bill Tag: Getting Word Application Instance - Tag: 170001
  - 21
    - How does Logon work and can U REALLY Delete the SWAPFILE? Firstly I must mention that this is for a stand alone PC, no network backbone. When the PC starts up I have a couple of vbs scripts that run, one is for turning the NumLock on and I have tested 2 solutions. Both the recommended MS solution of applying NUMLOCK using... WshShell.SendKeys "{NUMLOCK}" and the second one using KLOCK, using the KLOCK +n parameter in a RUN function, work reasonably well. The second script is one that is a personal tweak and applies icons to the partitions and drives on the PC. Writes to.. HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\C\DefaultIcon HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\C\DefaultLabel providing an icon and a label for the partition/drive. What I am experiencing is a failure to fully deploy the drive icon script and intermittent delivery of the Numlock script. The problem exists when i logoff as the user and later log back on as that same user. No shutdown has occurred. I have tried delivery of the scripts via the GPEDIT.MSC and adding them into the STARTUP area - this only seems to work on startup. I have added the scripts into the STARTUP (AllUsers) area and again only seems to work on initial startup. The only thing i can think of is that once the system starts up these scripts are passed to the SWAPFILE and thus remain here and so the system might be led into falsely believing that they have been correctly deployed. If so then does this leave a security loop hole? I believe so. Which brings me to my next question, does anyone know how to delete the SWAPFILE on system bootup. And i don't mean clean/purge the swapfile on shutdown. It actually takes longer to purge the swapfile than it does to delete it and recreate itself on startup by about 70%-80%. Is there a way to actually delete the swapfile prior to startup which is my preference, or even on shutdown. Now i don't want to go and use a boot floppy to 98 or similar, as that is not a real solution if the system is logged on and off several times a day. Any ideas would be most welcome. jm Tag: Getting Word Application Instance - Tag: 169999
  - 22
    - atendofstream checking input stream [in fact its end] with "atendofstream" it happens to me, when stream is dynamic [so its length is not known, but depends on characters arrive in the meantime], script simply blocks. i should expect that script is perfectly aware of input buffer content, and how much chars are left unread, and when buffer is empty and new characters arrive, so i should expect that "atendofstream" changes from "true" to "false" but, instead, when checking "wshell.exec.stdout.atendofstream", at the position "last+1", not existant character, system simply blocks! is it expectable, or i miss something? thanks. Tag: Getting Word Application Instance - Tag: 169996
  - 23
    - scheluded script message Hi all I use a scheluded vbs to check system parameters every 30 minutes and then, if something goes wrong, send a message box or popup. The vbs has to be launch with administrator rigths, but if there is logged a different user, a normal user, the popup fails and the script hangs. How I can send messages to users logged from a script launched with other credentials? thks for all -- aelpalomo Tag: Getting Word Application Instance - Tag: 169994
  - 24
    - cscript.exe DOS window.... Anyone have any idea how to stop this window popping up?. Put simply, the problem only occured after I followed some MS instructions for securing IIS. It asked if I wanted cscript to be the new VBScript translator.... I selected Yes, and since then, this stupid window has kept popping up every few minutes (it's irrirating the life out of me now). TIA. -- Regards Steven Burn Ur I.T. Mate Group www.it-mate.co.uk Keeping it FREE! Tag: Getting Word Application Instance - Tag: 169990
  - 25
    - Display Message and Wait In vbscript, is there a way to display an informational message, wait for a period of time and then have the message box disappear and the script continue running? TIA Ernie Tag: Getting Word Application Instance - Tag: 169982

How can I use VBScrtipt to determine wheather a particular Workd Instance is
running on my computer, that has been created by the Script. For example
Set oAppWord = CreateObject("Word.Application")

1. Before I execute the statement I would like to check if an instance is
allready running on the client computer
2. I want to save the ProcessID and close if an error occurs in the program

Thanks in advance

Chris Andreou

Top