Open Word Document Based On Date

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
    - gpedit Hi All, it is possible to manipulate "gpedit" saw script or with Visual Basic 6.0? Thank's Tag: Open Word Document Based On Date Tag: 178045
  - 2
    - Script Information PC script to obtain information of SO, name of the PC, memory, verision SO, version IE, etc... Tag: Open Word Document Based On Date Tag: 178029
  - 3
    - Open application and dialog box input Hi, I am new to vbscript. Before an application program can be open - there is a dialog box requesting the user for the password - how do I write the vbscript to indicate the password so that the application program can be automatically visible? Thanks in advance. Tag: Open Word Document Based On Date Tag: 178027
  - 4
    - Parsing html for data Hi, I need to download and pars data from an HTML page from the web. I have tried to use MSHTML but i cant create the HTMLDocument object. Any ideas on how to accomplish this in vbscript? Thanks, Bertrand Tag: Open Word Document Based On Date Tag: 178025
  - 5
    - multi page form submission I have used the following sample code to create a multi page asp form. The form works fine as far as holding the user response variables but I am having trouble submitting the content to a sendmail script. Anyone know how to do this? Is there a way of automating form submission in asp code? <FORM METHOD="post"> <% ' Always use a form post with this technique ' Store user-input in hidden fields Dim sNextStep ' Do preprocessing if necessary to determine next step sNextStep = "1" select case request.form("current") case "1": ' process step 1 ' Conditionally control the next step if request.form("s1_Shipping")<>"" then sNextStep = "2" else sNextStep = "3" end if case "2": sNextStep = "3" case "3": sNextStep = "4" ' Save user's input case "4": ' do nothing case default: sNextStep = "1" end select for each i in Request.Form if left(i,1)="s" then Response.write("<INPUT TYPE=hidden NAME='" & i & "' VALUE='" & Request.Form(i) & "'>") end if next Response.write("<INPUT TYPE=""hidden"" NAME=""current"" VALUE=""" & sNextStep & """>") ' Output form for next step select case sNextStep case "1": ' step 1 %> <TABLE CELLSPACING=0 CELLPADDING=0 BORDER=0 BGCOLOR=#EEEEEE ALIGN=CENTER> <TR><TH COLSPAN=2 ALIGN=CENTER>Your address</TH></TR> <TR><TD>Name</TD><TD><INPUT TYPE="text" NAME="s1_Name"></TD></TR> <TR><TD>Address<BR>City, State</TD><TD><TEXTAREA NAME="s1_haddress"></TEXTAREA></TD></TR> <TR><TD COLSPAN=2><INPUT TYPE=checkbox NAME="s1_Shipping"> Different Shipping Address</TD></TR> <TR><TD ALIGN=CENTER COLSPAN=2><INPUT TYPE=submit VALUE="Next..."> </TABLE> <% case "2": ' Step 2 %> <TABLE CELLSPACING=0 CELLPADDING=0 BORDER=0 BGCOLOR=#EEEEEE ALIGN=CENTER> <TR><TH COLSPAN=2 ALIGN=CENTER>Shipping Address</TH></TR> <TR><TD>Address<BR>City, State</TD><TD><TEXTAREA NAME="s2_saddress"></TEXTAREA></TD></TR> <TR><TD ALIGN=CENTER COLSPAN=2><INPUT TYPE=submit VALUE="Next..."> </TABLE> <% case "3": ' Step 3 %> <TABLE CELLSPACING=0 CELLPADDING=0 BORDER=0 BGCOLOR=#EEEEEE ALIGN=CENTER> <TR><TH COLSPAN=2 ALIGN=CENTER>Payment Information</TH></TR> <TR><TD>Credit Card</TD><TD> <INPUT TYPE=radio NAME=s3_credit VALUE=visa checked>Visa <INPUT TYPE=radio NAME=s3_credit VALUE=Master>MasterCard <INPUT TYPE=radio NAME=s3_credit VALUE=Discover>Discover </TD></TR> <TR><TD>Card Expiration</TD><TD> <SELECT NAME=s3_expire> <% ' Generate expiration years for i=1999 to 2007 response.write("<OPTION VALUE=""" & i & """>" & i) next %> </SELECT> </TD></TR> <TR><TD ALIGN=CENTER COLSPAN=2><INPUT TYPE=submit VALUE="Next..."></TD></TR> </TABLE> <% case "4": ' Step 4%> <P>At this step, we would save all the user's input as shown below:<P> <TABLE ALIGN=CENTER BORDER><TR><TH COLSPAN=2>Information to be Saved</TH></TR> <% for each i in Request.Form if left(i,1)="s" then Response.write("<TR><TD>" & i & "</TD><TD>" & Request.Form(i) & "</TD></TR>") end if next response.write("</TABLE>") end select %> </FORM> Tag: Open Word Document Based On Date Tag: 178013
  - 6
    - Change fax # in AD I am looking for a script that will prompt me for a user name in AD and then allow me to change the Fax#. I have a script that will change all the fax numbers in an OU to one number, but I need to be able to do this on individual accounts. TIA Gavin... Tag: Open Word Document Based On Date Tag: 178011
  - 7
    - Querying AD with the LIKE operator I have a weird problem querying AD for computer accounts. I am trying to query AD for any computer in any OU that contains "server" in the name of the OU. EG: CN=cdecitrix9,OU=CAN,OU=!Citrix,OU=Servers,DC=MyDomain,DC=com CN=abccwrk1,OU=CAN,OU=Servers,DC=MyDomain,DC=com We have several nested OU's that I need to enumerate. Here code that searches the "name" attribute of AD computers: '<><><><><><><><><><><><><><><><><><><><><><> Const ADS_SCOPE_SUBTREE = 2 Set objConnection = CreateObject("ADODB.Connection") Set objCommand = CreateObject("ADODB.Command") objConnection.Provider = "ADsDSOObject" objConnection.Open "Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.CommandText = "Select distinguishedName,Name from 'LDAP://DC=MyDomain,DC=com' where objectClass='computer' and name = '*MyComp*'" objCommand.Properties("Page Size") = 1000 objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE Set objRecordSet = objCommand.Execute objRecordSet.MoveFirst Do Until objRecordSet.EOF Wscript.Echo objRecordSet.Fields("distinguishedName").Value objRecordSet.MoveNext Loop '<><><><><><><><><><><><><><><><><><><><><><> The above looks (starting at the root of the domain) for computers that have the string "MyComp" somewhere in their name. The above script works as expected. If I change the query command to: objCommand.CommandText = "Select distinguishedName,Name from 'LDAP://DC=MyDomain,DC=com' where objectClass='computer' and distinguishedName = '*MyComp*'" It doesn't work. You would think "distinguishedName" would return the same set of computers but it only returns and empty data set. Any ideas? Thanks, Dan Tag: Open Word Document Based On Date Tag: 178009
  - 8
    - Monitor Serial Cable (Wire Leads) I want to create a custom application that monitors if one or more of the cables (one end is plugged into the PC's serial port the other end is cut off exposing the bare wires) on a serial end are connected or disconnected. Is there a way to enumerate what is going on through the serial cable? Tag: Open Word Document Based On Date Tag: 178006
  - 9
    - UPS Rates Online Tools Hi everyone, I am trying to integrate UPS's Online Tools into my classic ASP project. Does anyone have some examples of this that I could look at? I am specifically looking for information on the "Rates and Service Selection" tool. Thanks, Ken. Tag: Open Word Document Based On Date Tag: 178005
  - 10
    - Shortcut to a shared folder Hi, Is there a way that a vbscript can create a desktop shortcut to a shared folder that exists on a server? Thanks in Advance, JeffH Tag: Open Word Document Based On Date Tag: 177999
  - 11
    - Membership... Please help. I would like to remove DOMAIN account from a LOCAL administrators group REMOTELY using vb script. Can anybody either point me the way for more reading material for the subject or present me with the vb script? The following script can remove the member of the Administrators group if the account is a LOCAL account to that computer. If the account is a DOMAIN account, I got the error with message: 'A member could not be added or removed from the local group because the member does not exist'. Dim oDomain,oGroup,sDomain,sGroup,sUser sDomain = "TheRemotePC" 'local host; member of the Active Directory domain sGroup = "Administrators" sUser = "JDow" 'a domain account; not an account to the local pc Set oDomain = GetObject("WinNT://" & sDomain) Set oGroup = oDomain.GetObject("Group", sGroup) oGroup.Remove("WinNT://" & sDomain & "/" & sUser) Tag: Open Word Document Based On Date Tag: 177992
  - 12
    - number formating into a string I'm looking for some equivalent code that will convert a number using a mask and store the result into a string. In VBA: stringvar = Format$(I,"000") returns a 3 digit string. I.E. when I = 1; "001" is the result. Its just like the Text(I,"000") function that excel uses. How is this done in VBScripting? I have tried the FormatNumber() function but the 2nd parm that deals with leading zeroes, is a boolean var parameter that doesn't do what I need. -- Regards, John Tag: Open Word Document Based On Date Tag: 177987
  - 13
    - Script to add additional static ip addresses to machine Does anyone know how to script the addition of static ip address (as in the advanced tcp/ip settings tab of the tcp/ip properties)? I can only find examples for adding a single static ip, netmask, gateway... Thanks, Rich Tag: Open Word Document Based On Date Tag: 177986
  - 14
    - Accessing local group by group SID Hello all, perhaps someone could give me a hint for a small problem I have here. I would like to access local groups based on their well-known SID. Then check the members for the existence of certain groups. Currently I only know how to check the group based on the name. However, there is the problem, that "Administrators" group is not the same name in all languages. Is there any possibility to identify a local group based on the SID. Here's the part of the script that is currently doing the membership check: Set colGroups = GetObject("WinNT://" & strComputer & "") colGroups.Filter = Array("group") For Each objGroup In colGroups ' If objGroup.Name = "Administrators" Then For Each objUser in objGroup.Members If objUser.Name = strCheckMemberName Then bIsMember =True Else ... End If Next End If Next Thanks in advance for the help. Markus Tag: Open Word Document Based On Date Tag: 177982
  - 15
    - Programmatically creating a USB printer port Is it possible to script the creation of a printer that's connected via a USB port? Using "prnadmin.dll" I've been able to add the drivers, and create the print object. However, I'm not able to create the port. After letting Windows XP detect the printer, the port description is "Virtual Printer port for USB." Any insight is appreciated. Thx, Curtis Tag: Open Word Document Based On Date Tag: 177980
  - 16
    - Help with vbs / wmi script Being a bit of a newbie, I'm having trouble getting the script below to work. I'm trying to create a piece of code that will allow me to supply 3 parameters (a computer name, a WMI class and a WMI class property) and get a value returned. For ease of reading I've hard-coded the variable in the example below to make things more obvious. strComputerName = "Myserver" strClass = "Win32_Processor" strProperty = "MaxClockSpeed" Set objWMIService = GetObject("winmgmts:\\" & strComputerName & "\root\cimv2") Set objClass = objWMIService.Get(strClass) For Each objProperty in objClass.properties_ If objProperty.Name = strProperty Then strValue = objProperty.Value WScript.Echo objProperty.Name & " = " & strValue End If Next Any ideas why strValue never gets any value? Tag: Open Word Document Based On Date Tag: 177973
  - 17
    - Extract information from text file I am automating FTP tranfers, and need to read a log file and extract the name of the files transferred. An example line of text is: 150 Opening ASCII mode data connection for testfile.txt(0 bytes). All that I want to extract from the line is "testfile.txt". The following code works - (the wscript.echo is the relevant line): If Left (strline, 3) = "150" then TestString = strline TestArray = Split(TestString , " ",-1, 1) wscript.echo Left(TestArray(7),InStr(TestArray(7),"(")-1) Else 'script not included in example End If However, if the file name is more than one word long 150 Opening ASCII mode data connection for new testfile.txt(0 bytes). The script fails. Can anyone suggest a better way to extract the file name? Thanks Jo Tag: Open Word Document Based On Date Tag: 177972
  - 18
    - Validating dates with regular expressions in a German Windows PC Hi, I have an international vbs application and I am using regular expressions to validate the format of the dates entered by the user. It works fine when running on a English windows PC but it does not recognised valid dates if the PC has the German version of windows. This is the code I am using: Function FormatValRegExp(strValue, strRegExp) Dim re ' Regular Expression object Dim response ' response On error resume next response = "" Set re = new regexp ' Create the RegExp object re.Pattern = strRegExp ' set pattern re.IgnoreCase = true response = re.test(strValue) Set re = nothing FormatValRegExp = response End Function This function wiht the following parameters: strValue: 31.12.1996 strRegExp: \d{1,2}[.]\d{1,2}[.]\d{2,4}$ returns true in an English version of Windows and false in a German windows. Any ideas? Cheers Juan Tag: Open Word Document Based On Date Tag: 177971
  - 19
    - Win32_PerfRawData_RemoteAccess_RASPort I use ZyXEL OMNI ADSL USB modem on my home PC (Windows XP SP2). When I launch the following VBScript, I get nothing! colItems has not objItem. Why? I want to get Bytes Received during current connection with Internet. strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_PerfRawData_RemoteAccess_RASPort",,48) For Each objItem in colItems Wscript.Echo "BytesReceived: " & objItem.BytesReceived Next Tag: Open Word Document Based On Date Tag: 177968
  - 20
    - VBScript to create new users & their Exchange MailBox Hi, I'v been asked to create more than 200 new users account & their exchange mailboxes. I have all the information in Excell file First Name Last Name Initials I wonder if there is any way to write a VBScript whow read the user infromation from the Excell file and create the USER Account & MailBox in our AD. thanks for your help Windows platform is: windows server 2003 & Exchange Server2003 Tag: Open Word Document Based On Date Tag: 177965
  - 21
    - Re: IE automation - how to tell when document is complete? Sorry, I accidently hit send. Hi, I playing with IE automation. Many scripts in this newsgroup show code like the following to open a web page and wait for its completion: Set oIEApp = CreateObject("InternetExplorer.Application") With oIEApp .Visible = True .Resizable = True .FullScreen = False .Height = 600 : .Width = 600 .Top = 50 : .Left = 100 .Navigate("msdn.microsoft.com") Do Until .ReadyState = 4 : WScript.Sleep 100 : Loop MsgBox "Done navigating to msdn.microsoft.com" End With Other scripts listen for the DocumentComplete event. If I count the occurences of the DocumentComplete event, I find that my 'done' message box appears after the DocumentComplete event has fired twice, and that the DocumentComplete event fires once more, perhaps right when msdn.microsoft.com is truely done loading. When just starting IE and navigating to one URL, waiting for a ReadyState of 4 is sufficient. Many of us are not satisfied with navigating to only one URL; we want to go more places. But the ReadyState remains 4 for a hundred or more millisecons after specifying a new URL, then changes to 3, and finally changes back to 4 when the page has loaded. So we need logic like this for the second URL: Option Explicit Dim oIEApp Set oIEApp = CreateObject("InternetExplorer.Application") With oIEApp .Visible = True .Resizable = True .FullScreen = False .Height = 600 : .Width = 600 .Top = 50 : .Left = 100 .Navigate("msdn.microsoft.com") Do Until .ReadyState = 4 : WScript.Sleep 100 : Loop MsgBox "Done navigating to msdn.microsoft.com" .Navigate("aol.com") Do While.ReadyState = 4 : WScript.Sleep 2 : Loop Do Until .ReadyState = 4 : WScript.Sleep 100 : Loop MsgBox "Done navigating to aol.com" End With With this script, most of the time the AOL done message occurs when the page really is loaded. Occasionally, the AOL done message occurs long before the page really is loaded, especially when CPU usage is high. From this I have concluded that neither ReadyState nor the DocumentComplete event are reliable indicators of a web page's being complete. I've monitored how often various events occur by the time the MsgBoxes appear, and I'm currently using the following logic to determine completion. Option Explicit Dim oIEApp Dim iCount_BeforeNavigate2, iCount_NavigateComplete2 Set oIEApp = WScript.CreateObject("InternetExplorer.Application", "event_") With oIEApp .Visible = True .Resizable = True .FullScreen = False .Height = 600 : .Width = 600 .Top = 50 : .Left = 100 .Navigate("msdn.microsoft.com") Do Until .ReadyState = 4 : WScript.Sleep 100 : Loop Do Until iCount_BeforeNavigate2 = iCount_NavigateComplete2 WScript.Sleep 100 Loop MsgBox "Done navigating to msdn.microsoft.com" .Navigate("aol.com") Do While.ReadyState = 4 : WScript.Sleep 2 : Loop Do Until .ReadyState = 4 : WScript.Sleep 100 : Loop Do Until iCount_BeforeNavigate2 = iCount_NavigateComplete2 WScript.Sleep 100 Loop MsgBox "Done navigating to aol.com" End With Sub event_BeforeNavigate2(objBrowser, strURL, Flags, _ TargetFrameName, PostData, Headers, bCancel) iCount_BeforeNavigate2 = iCount_BeforeNavigate2 + 1 End Sub sub event_NavigateComplete2(objBrowser, strURL) iCount_NavigateComplete2 = iCount_NavigateComplete2 + 1 End Sub This seems like overkill. Does anyone have a simpler way to reliably detect document complete? Thanks, -Paul Randall Tag: Open Word Document Based On Date Tag: 177952
  - 22
    - How to access files from CIM_DirectoryContainsFile I'm trying to process files that are placed in a mapped network folder. Once a file is copied into the folder, I would like to check the filename against a list of known files, move it, rename it and process it. I was trying to get this example to work for me: strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\cimv2") Set colMonitoredEvents = objWMIService.ExecNotificationQuery _ ("SELECT * FROM __InstanceCreationEvent WITHIN 10 WHERE " _ & "Targetinstance ISA 'CIM_DirectoryContainsFile' and " _ & "TargetInstance.GroupComponent= " _ & "'Win32_Directory.Name=""c:\\\\scripts""'") Do Set objLatestEvent = colMonitoredEvents.NextEvent Wscript.Echo objLatestEvent.TargetInstance.PartComponent Loop But the objLatestEvent.TargetInstancePartComponent seems to be a string rather than an object. In other words, I can't do objLatestEvent.TargetInstance.PartComponent.Name , etc... Any ideas? TIA, Chester Tag: Open Word Document Based On Date Tag: 177947
  - 23
    - need to get AD attributes using vbscript. please help i need a simple(?) script that will take an AD user as an argument and create a list of ALL AD attributes that apply to users, and if the attribute is used also list the value of the attribute. if the attribute is empty i still have to list it, but there will just be no value. can anyone point me in the right direction? thank you Tag: Open Word Document Based On Date Tag: 177946
  - 24
    - ReadAll and RegExp Hello Everyone, I'm new to posting in this group and was hoping that I might be able to get some assistance with an issue that I'm having. Basically, what I'm doing is capturing AS/400 data with a software called PlanetPress Watch and when I get this data I need to run it through a VBScript to look for Index Values that will be grabbed and passed to a variable, then eventually using the variables to create delimited data file with path to a PDF, i.e. "field1"~"field2"~"field3"~@@path\pdf.pdf. My problem is that I've changed the script from using SkipLine and Skip, just in case an extra CRLF or something appears in the data, which would throw off the entire script in the fact that my Index values would be blank. I've recently discovered the power of RegExp and have been researching it over the past week to try and get a handle on it. I think I'm to the point of understanding it, but am having some issues with getting it to work in a VBScript. Part of my problem, other than being a self-taught programmer, is reading in the data file and passing it to a variable with the .ReadAll command. I think I may have the .ReadAll command now, but it's the RegExp pattern that isn't matching or something, even though it should match this: "CR\LF ACLU5801S2341380", that is CR LF Space String. Here's my code: '************************************************************** Option Explicit Const ForReading = 1, ForWriting = 2 Dim x Dim objFSO Dim objInputFile, objOutputFile, objIn Dim strTempName, strTempPath Dim strLine, strLineBack1, strLineBack2 Dim ContainerNo, insertValue Dim PhxRef, locationNumber, statementDate, counter, TypeBrokerage, TypeBreakbulk Dim DocNoP1, DocNoP2, DocNoP3, DocNoP4, DocNoP5, DocNoP6 Dim ShipperNo, ConsigneeNo, HAWBNo, AgentNo, AWBDate, MBillNo, HBillNo Dim DocNoP11, DocNoP22, DocNoP33, DocNoP44, DocNoP55, DocNoP66 Dim fcount, lncount, skipln, strData, objIntro, strLineIn, DataLine Set objFSO = CreateObject("Scripting.FileSystemObject") '***NOTE: PW_GetJobFilename is a special function for PPW, that gets the tempFileName of the datafile Set objInputFile = objFSO.OpenTextFile(PW_GetJobFilename, 1) strTempPath = objFSO.GetFile(PW_GetJobFilename).ParentFolder.Path strTempName = objFSO.GetTempName Set objOutputFile = objFSO.GetFolder(strTempPath).CreateTextFile(strTempName) Dim ss, re, rv, objMatch, ColMatches, StrReturnStr Set re = New RegExp re.Pattern = "(\r\n\x20)([A-Z\d]{12,18})" 're.Pattern = "c." re.Global = True re.IgnoreCase = True 'Set objInputFile = objFSO.OpenTextFile(PW_GetJobFilename, 1) Do While objInputFile.AtEndOfStream <> True strData = objInputFile.ReadLine '***NOTE: Watch.ShowMessage is a special function for PPW, like MsgBox 'Watch.ShowMessage(strData) Set ColMatches = re.Execute(strData) Loop For Each objMatch in ColMatches StrReturnStr = objMatch.value Watch.ShowMessage(StrReturnStr) Next 'Loop Watch.SetJobInfo 1, Chr(34) & "INV" & Chr(34) & Chr(126) & Chr(34) & DocNoP1 & DocNoP2 & DocNoP3 & DocNoP4 & DocNoP5 & DocNoP6 & Chr(34) & Chr(126) & Chr(34) & ShipperNo & Chr(34) & Chr(126) & Chr(34) & "ConsigneeNo" & Chr(34) & Chr(126) & Chr(34) & "BOLNo" & Chr(34) & Chr(126) & Chr(34) & "AgentNo" & Chr(34) & Chr(126) & Chr(34) & "Date" & Chr(34) & Chr(126) & Chr(34) & "DocNo2" & Chr(34) & Chr(126) & Chr(34) & "ContainerNo" & Chr(34) & Chr(126) & Chr(34) & HAWBNo & Chr(34) & Chr(126) & Chr(34) & HBillNo & Chr(34) & Chr(126) & Chr(34) & MBillNo & Chr(34) & Chr(126) & Chr(34) & "EntryNo" & Chr(34) & Chr(126) & Chr(34) & "CustAcctNo" & Chr(34) & Chr(126) & Chr(34) & "ImporterNo" & Chr(34) & Chr(126) & Chr(64) & Chr(64) & "D:\DocImport\INV\" & Watch.GetJobInfo (9) & ".pdf" objInputFile.Close objOutputFile.Close objFSO.DeleteFile PW_GetJobFilename, true objFSO.MoveFile strTempPath & "\" & strTempName, PW_GetJobFileName '************************************************************** Any suggestions that you could give would be greatly appreciated. Thanks in advance. --Ken Stulce Tag: Open Word Document Based On Date Tag: 177944
  - 25
    - scripting uninstalling device drivers Anyone know of a method for uninstalling a device driver via vbscript? Such as a NIC. Tag: Open Word Document Based On Date Tag: 177943
- Next
  - 1
    - RUNAS+.exe Does anyone know where I can get this. This is a scriptable runas that microsoft provides for free. Thanks Tag: Open Word Document Based On Date Tag: 177940
  - 2
    - IE automation - how to tell when document is complete? Hi, I playing with IE automation. Many scripts in this newsgroup show code like the following to open a web page and wait for its completion: Set oIEApp = CreateObject("InternetExplorer.Application") With oIEApp .Visible = True .Resizable = True .FullScreen = False .Height = 600 : .Width = 600 .Top = 50 : .Left = 100 .Navigate("msdn.microsoft.com") Do Until .ReadyState = 4 : WScript.Sleep 100 : Loop MsgBox "Done navigating to msdn.microsoft.com" End With Other scripts listen for the DocumentComplete event. If I count the occurences of the DocumentComplete event, I find that my 'done' message box appears after the DocumentComplete event has fired twice, and that the DocumentComplete event fires once more, perhaps right when msdn.microsoft.com is truely done loading. When just starting IE and navigating to one URL, waiting for a ReadyState of 4 is sufficient. Many of us are not satisfied with navigating to only one URL; we want to go more places. But the ReadyState remains 4 for a hundred or more millisecons after specifying a new URL, then changes to 3, and finally changes back to 4 when the page has loaded. So we need logic like this for the second URL: Option Explicit Dim oIEApp Set oIEApp = CreateObject("InternetExplorer.Application") With oIEApp .Visible = True .Resizable = True .FullScreen = False .Height = 600 : .Width = 600 .Top = 50 : .Left = 100 .Navigate("msdn.microsoft.com") Do Until .ReadyState = 4 : WScript.Sleep 100 : Loop MsgBox "Done navigating to msdn.microsoft.com" .Navigate("aol.com") Do While.ReadyState = 4 : WScript.Sleep 2 : Loop Do Until .ReadyState = 4 : WScript.Sleep 100 : Loop MsgBox "Done navigating to aol.com" End With With this script, most of the time the AOL done message occurs when the page really is loaded. Occasionally, the AOL done message occurs long before the page really is loaded, especially when CPU usage is high. From this I have concluded that neither ReadyState nor the DocumentComplete event are reliable indicators of a web page's being complete. I've monitored how often various events occur by the time the MsgBoxes appear, and I'm currently using the following logic to determine completion. Thanks, -Paul Randall Tag: Open Word Document Based On Date Tag: 177939
  - 3
    - How do I include/reference functions in another file? Simple question, as I build up my little library of some useful functions I want to keep all of these in a "myfuncs.vbs" script. Then when I write a quick new script I just want to be able to call funtions located in "myfuncs.vbs". How do I do this? Thanks for your help in advance! Regards, Craig. Tag: Open Word Document Based On Date Tag: 177933
  - 4
    - Listing user name and other values http://www.rlmueller.net/Programs/CreateUserList2.txt I'm new to AD and have done some work with VB Script. I've been trying to modify the above to give me back a list of all the users as well as some of the values, say phone #, that is listed in AD. So far I've had very little success on this. Someone willing to point me in the right direction? -- Thanks Wayne Sepega Jacksonville, Fl Enterprise Library Configuration Console Module Generator http://workspaces.gotdotnet.com/elccmg "When a man sits with a pretty girl for an hour, it seems like a minute. But let him sit on a hot stove for a minute and it's longer than any hour. That's relativity." - Albert Einstein Tag: Open Word Document Based On Date Tag: 177931
  - 5
    - Script Remote Access I am trying to find information on clients cpu and the script will only run on a few clients and not all. why is this? Tag: Open Word Document Based On Date Tag: 177930
  - 6
    - RUNAS+.exe Does anyone know where I can get this? It supposed to be free from Microsoft yet I can't find it anywhere. It a scriptable runas utility. Thanks Tag: Open Word Document Based On Date Tag: 177928
  - 7
    - Determining Win95 machines via login script I am needing to deploy some software to workstations that are Windows 95 (this is not a typo). What I have done so far is define a BAT file in AD for the User Login Script that uses the START \\myvbScript.vbs. The vbScript then tries to make a WINMGTS: connection and when it fails (Err.Number = 432, Class does not exist) it calls my 9xInstall.BAT file. For the most part this works since we do not have the WMI Core Environment out there but I'd rather be checking for the OS specifically, since that is what I really need to know. Unfortunately, I cannot find a way to do this without using WMI. Is there an object I can use to get the OS in vbScript or even a command in the BAT file that I can rely on? As always, thanks. Bart Perrier Tag: Open Word Document Based On Date Tag: 177927
  - 8
    - Adding a Security group to Workstations I need to add a new security group to several workstations at two different facilities. The group to be added is different for both locations. I thought I would be easy to just query AD for the machines in eat locations OU and then just use a script that would then loop through that list and add the group. Sadly my scripting skills are still in their infancy and I'm having troubles finding the info I need to query AD in a manner I can understand. What I need to know is how to pull something out of a subfolder in an OU that may be 3 levels deep. I have found several scripts but Iâ??m not sure exactly what Iâ??m looking at. Does anyone know of an idiotâ??s guide so to speak for pulling things from AD? Tag: Open Word Document Based On Date Tag: 177923
  - 9
    - Enable "Show Quick Launch" Is there any one that have a vbscript to enable ""Show Quick Launch" on Windows Xp clients. /Andreas Tag: Open Word Document Based On Date Tag: 177919
  - 10
    - VBS, WSH scripting authoring tools Hello: We are currently looking for some of the top tools to do VBS and/or WSH scripting. Basically we are looking for authoring tools that have pre-defined functions, that are gui-based, for easy ability to create logon scripts, etc. So far we only know of Microsoft's own free tools (Scriptomatic, Tweakomatic), and we are looking for something a little better (commercial products are fine). Can anybody suggest some of the top tools that are out there now? Thanks a lot for all feedback... -- Chris Tag: Open Word Document Based On Date Tag: 177915
  - 11
    - Converting CR to CR/LF Hi there I'm a very small newbee, and looking for an easy way to convert a text-file. Sinece the textfile came through ftp it has only lf at the end of the line, but I need an cr/lf. Thanks in advance for any help. Best regards Ralf Tag: Open Word Document Based On Date Tag: 177904
  - 12
    - USER NAME ACCESS Hi All I am using connection manager administration kit to create a Windows VPN connection for all home users. I've written a batch file to map the users home drive once connected to the VPN net use H: \\Server\%username% The problem with the above, the Variable %USERNAME% takes the name from the user who is logged onto the local computer not the user who is connecting to the VPN. Does anyone know how I can get the name of the user how is logged onto the VPN connection into the %username% rather than the user who is logged onto the local computer. wayne PS I am not a scripter I am just learning starting with basic batch files Tag: Open Word Document Based On Date Tag: 177903
  - 13
    - Microsoft.XMLHTTP I want to download file using "Microsoft.XMLHTTP" object. My URL is http://qqqqq.com/oo.php?52152 How to determine a real name of downloaded file? With CreateObject("Microsoft.XMLHTTP") .Open "Get", "http://qqqqq.com/oo.php?52152", False .Send Response = .ResponseBody With CreateObject("ADODB.Stream") .Type = 1 .Open .Write Response .SaveToFile RealFileName, 2 < - ???? End With Uka. Tag: Open Word Document Based On Date Tag: 177899
  - 14
    - Date confusion Hi, I am developing a webpage in conjunction with MS access. I use dates as a primary attribute to search for data. However, on somedays the program will work with the date format mm/dd/yyyy and other times it is dd/mm/yyyy and sometimes it will work with both. When it works with both this causes the most confusion. In some parts of the program the application will work with the mm/dd/yyyy format and some other parts with dd/mm/yyyy. However other parts of the program will crash because it is of the wrong format. My question is... Is there some way of making it conssitent throughout the application? My regional settings is set to Australia. Thanks in Advance Tag: Open Word Document Based On Date Tag: 177897
  - 15
    - Scriptomatic 2 fails @ line 452 I'm running Windows XP/SP2 and when I run Scriptomatic 2.0 and select an WMI_Class, I get a script error on line 452 where it's trying to create an "WScript.Network" object. This works fine if I issue the same commands from an VBS file. Do I need to do something special to make HTA's work on my PC? I disabled my antivirus software just in case (wasn't getting an error there), tried changing my security level for local intranets to LOW, nothing seems to work. The program works just fine under Win2k. Tag: Open Word Document Based On Date Tag: 177888
  - 16
    - Adding method to response object Is it possible to add or override any of the methods in the Response object? I'd like to change how Response.Write works a little bit... -- J.B.Moreno Tag: Open Word Document Based On Date Tag: 177887
  - 17
    - Domain information through vbs Good afternoon, Here is what I would like to achieve but do not know how! I would like to create a script that 1- run dos command "net group GROUPNAME /domain" and write it to a textfile 2- Using the textfile of users, run the dos command "net user USERNAME /domain" (using 1 by 1 the user from the textfile in 1) and write it to another textfile 3- Go through the textfile created in 2 and validate certain parameter such as "logon script". Can someone run me through this or point me to a web site that can provide me with the basics on how I can do this type of script. One of my main problem is how I can use the text file created in 1 in 2 since it is output in a tabular format (3 columns) and vbs will read it 1 line at a time. How can I transform the dos output into a valid format to use in 2? Thank you for any help! Daniel Tag: Open Word Document Based On Date Tag: 177886
  - 18
    - Accessing Outlook Subfolders I'm trying to add/remove a user form a folders' ACL. This code works fine on a single folder: Set oInbox = oSession.GetDefaultFolder(CdoDefaultFolderInbox) Set oACLObject = CreateObject("MSExchange.ACLObject") oACLObject.CDOItem = oInbox Set oACEs = oACLObject.ACEs How do I change this to do the same for folders under the Outlook Inbox? Thanks! Tag: Open Word Document Based On Date Tag: 177883
  - 19
    - Capture screen output of Telnet using vbscript Is there any way to capture the screen output of a telnet session to a text file? Code to do it would be very much appreciated as I'm on a short time limit. However, an explaination of how to do it will also suffice. I currently use a 3rd party program to do this however I am trying to accomplish this task with only what Windows 2000 Professional comes with (including WSH 5.6). I have tried to do this with batch files but was unable to do so. I wrote vbscript to send commands to telnet but can't find a way to capture the screen output to a text file. Thanks in advance, Chris Tag: Open Word Document Based On Date Tag: 177880
  - 20
    - change mouse to hourglass? How can I change the mouse to an hourglass? Tag: Open Word Document Based On Date Tag: 177875
  - 21
    - Copy folder with permisions intact I need to migrate users home folders to a new server. About 60 GB in all. So they need to be copied or moved with permisions and hopefully any share permisions intact. Can this be done with objFolder.CopyHere? or objFolder.Copy? Or would it be easier/better to use xcopy or something? Thanks Tag: Open Word Document Based On Date Tag: 177870
  - 22
    - List OU's in an OU using VBS Hi I am new to VBscript and would like to be able to query an OU for it's contents (which is more OU's) and then display the results in the text field on an inputbox. This is so that the user can enter the name of one of the OU's listed into the inputbox input field. Hope this makes sense. Thanks in advance Keith Tag: Open Word Document Based On Date Tag: 177867
  - 23
    - Writing xml.ResponseText to file Hello, I'm having some problems writing out xml.ResponseText to a text file. I can send it to a web browser using Response.Write, but I can not write it out to a text file. It's not a permissions issue, the file gets created without a problem and if you write a line of plain text to the file, it works perfectly. I tried casting xml.ResponseText to a string, but that did not work either. Is there anyway I can do this? <% Const ForWriting = 2 Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set xml = Server.CreateObject("Microsoft.XMLHTTP") xml.Open "GET", "http://xxxx", False xml.Send set tfile=FSO.CreateTextFile("c:/pathtofile.asp", true) 'response.write xml.ResponseText <--- Works 'tfile.WriteLine "Hello World" <---- Works tfile.WriteLine(test) tfile.close set fso = nothing %> Tag: Open Word Document Based On Date Tag: 177862
  - 24
    - Using Replace with wildcard How can I use replace to replace a dynamic string that is sent over to my broswer using a wildcard? Here is a snip of my code, extract = Replace(extract, "href", "") for example here is what the browser sees, href="javascript:show('1','http://server/page.asp=FDR2dmwjDE%3Byt2q%26FDT7w% 7Cq612d4 but I want it to look like " " instead after the 'href' is a long string that is dynamically changed each time the page is viewed, how can I use Replace to remove anything following the 'href' but nothing below that line of code? Thanks in advance.. Tag: Open Word Document Based On Date Tag: 177859
  - 25
    - Newbie: Small Script to Delete files Hi Group, Hope your all well? I wonder if somebody could give me some help on this one, or maybe some Examples? I have a Directory call C:\HFSWIN\ In here I have around 90 files, with vereous file formats. I would like to be able to delete all files files that end with *.lbl, *.lbv, & *.lbb. Except these 9 files: Jordans1.lbl Jordans2.lbl Jordans3.lbl Jordans1.lbv Jordans2.lbv Jordans3.lbv Jordans1.lbb Jordans2.lbb Jordans3.lbb Is this possible? Many Kind Thanks Regards Simon Tag: Open Word Document Based On Date Tag: 177853

Hello,

Can someone point me in the direction of sample code that will open a
Word document based on date?

We do daily logs and save them in this format:

C:/Logs 05/Jul/Jul23.doc.

So I would love a icon on the desktop called "Open Daily Log" that
opens the log file based on the date.

Thanks in advance.

Brian

Top

Re: Open Word Document Based On Date by Torgeir

Torgeir
Sun Jul 24 13:54:21 CDT 2005

bdaoust@yahoo.com wrote:

> Hello,
>
> Can someone point me in the direction of sample code that will open a
> Word document based on date?
>
> We do daily logs and save them in this format:
>
> C:/Logs 05/Jul/Jul23.doc.
>
> So I would love a icon on the desktop called "Open Daily Log" that
> opens the log file based on the date.
>
> Thanks in advance.
Hi,

Something like this should work:

'--------------------8<----------------------

dDate = Now

sYear = Right(100 + Year(dDate), 2)
sMontName = MonthName(Month(dDate), True)
sDay = Right(100 + Day(dDate), 2)

sFileName = "C:\Logs " & sYear & "\" _
& sMontName & "\" & sMontName & sDay & ".doc"

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject("WScript.Shell")

If oFSO.FileExists(sFileName) Then
' Open the file in MS Word
oShell.Run "winword.exe " & sFileName
Else
MsgBox "Non-existing file: " & sFileName, _
vbSystemModal+vbInformation, "Open Daily Log"
End If

'--------------------8<----------------------

WSH 5.6 documentation (local help file) can be downloaded from here
if you haven't got it already:
http://msdn.microsoft.com/downloads/list/webdev.asp

--
torgeir, Microsoft MVP Scripting and WMI, Porsgrunn Norway
Administration scripting examples and an ONLINE version of
the 1328 page Scripting Guide:
http://www.microsoft.com/technet/scriptcenter/default.mspx

Top