Logging WScript.Timeout Event

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
    - How to get the parent / starting process? Hello How can I get from a running process the parent process or by which process it has been started? A full example or hints into the right direction would be great. Many thanks in advance regards Mark Egloff Tag: Logging WScript.Timeout Event Tag: 198816
  - 2
    - Newbie - moving files to another folder Hi, I'm trying to write a vbscript that, when run, will create a new folder with a unique timestamp and move the files in one folder, into the new folder. I keep getting an error when I run the script and I can't figure out why... if anyone can have a look it would be greatly appreciated! Thanks in advance, MJ Option Explicit ' Create the File System Object Dim FSO Set FSO = CreateObject("Scripting.FileSystemObject") Dim errorFolder errorFolder = "C:\errors" Dim ef Set ef = FSO.GetFolder(errorFolder) '''''''''''''''''''''''''''''''''''''' 'Create Unique Destination Folder '''''''''''''''''''''''''''''''''''''' Dim datetoday, timetoday Dim strMonth, strDay, strHour, strMinute, strSecond Dim strDirectory datetoday = now strMonth = Month(datetoday) strDay = Day(datetoday) strHour = Hour(datetoday) strMinute = Minute(datetoday) strSecond = Second(datetoday) if len(strMonth) = 1 then strMonth = "0" & strMonth end if if len(strDay) = 1 then strDay = "0" & strDay end if if len(strHour) = 1 then strHour = "0" & strHour end if if len(strMinute) = 1 then strMinute = "0" & strMinute end if if len(strSecond) = 1 then strSecond = "0" & strSecond end if datetoday = YEAR(datetoday) & strMonth & strDay timetoday = strHour & strMinute & strSecond strDirectory = "c:\archive\" & datetoday & "_" & timetoday FSO.CreateFolder(strDirectory) Dim f For Each f in ef.Files ' Copy the file to the archive folder FSO.MoveFile f, strDirectory Next Tag: Logging WScript.Timeout Event Tag: 198808
  - 3
    - Please Help (Script Control) All I want to do is put a little script into my VB application. I downloaded Script Control (which I believe is the right thing to use), made a reference to it in VB, but there's no Script Control icon in the tools menu (like Microsoft said there'd be). Do I need to download it to a certain folder? I'm going crazy here. Am I even going about this in the right way? There doesn't seem to be any documentation anywhere. Somebody please please please help. Tag: Logging WScript.Timeout Event Tag: 198802
  - 4
    - Posting Data to pages using VBA (Microsoft.XMLHTTP and MSXML2.ServerXMLHTTP.4.0) Hi, I'm trying to pull some data from htm pages but am having some issues with the POST method. I would like to navigate between these pages and post/retrieve data in the same session. For example, testA.htm would have a couple of text boxes, radio buttons, etc. The code would populate the objects by modifying the HTML to add in the attributes (alternatives to this method would be welcome), then move along to testB.htm when the form is posted. The script would then gather data from testB.htm, modify the HTML, rinse/rather/repeat... I'm currently stuck between the post of testA.htm to testB.htm. I would like to see testB.htm in the responseText when I post testA.htm. If I use Microsoft.XMLHTTP, the page just refers back to itself when I look at the responseText. If I use MSXML2.ServerXMLHTTP.4.0, I get one of two messages- "You are not authorized to view this page" or "Page cannot be displayed" Below is the VBA: Set xmlHTTP = CreateObject("Microsoft.XMLHTTP") 'Set xmlHTTP = CreateObject("MSXML2.ServerXMLHTTP.4.0") xmlHTTP.Open "POST", "http://server/testA.htm", False xml.Send strResponse = xml.responseText Below is the HTML: <FORM name=testA action="http://server/testB.htm" method=post><input type=text name="Text0" value="PopulateSample"></input> <input type=submit value="Move to TestB" /> </FORM> Any input would be greatly appreciated; thanks in advance! -Harry Tag: Logging WScript.Timeout Event Tag: 198798
  - 5
    - Firefox & Session Vars Hi, I have an application process where users enter info into fields, go on to step 2, when this happens the user info is loaded into the session and then the user is redirected Function SaveCookies() Session("apptype") = Request.Form("apptype") Session("pgmtype") = Request.Form("pgm_type") Session("branch") = Request.Form("branch") Session("guarantors") = Request.Form("gtors_count") Session("references") = Request.Form("refs_count") Session("biztype") = Request.Form("biztype") Session("ref") = Request.Form("external_ref") Session("customerCode") = Request.Form("customer_code") Session("companyName") = ReplaceSpecialCharacters(UCASE(Request.Form("company_name"))) Session("dbaName") = ReplaceSpecialCharacters(UCASE(Request.Form("dba_name"))) Session("address1") = ReplaceSpecialCharacters(UCASE(Request.Form("address1"))) Session("address2") = ReplaceSpecialCharacters(UCASE(Request.Form("address2"))) Session("city") = ReplaceSpecialCharacters(UCASE(Request.Form("city"))) Session("state") = UCASE(Request.Form("state")) Session("zipcode") = Request.Form("zipcode") Session("county") = Request.Form("county") Session("ctname") = Request.Form("contact_tname") Session("cfname") = ReplaceSpecialCharacters(Request.Form("contact_fname")) Session("clname") = Request.Form("contact_lname") Session("ctitle") = Request.Form("contact_title") Session("cphone") = Request.Form("contact_phone") Session("cext") = Request.Form("contact_ext") Session("cfax") = Request.Form("contact_fax") Session("cemail") = ReplaceSpecialCharacters(LCase(Request.Form("contact_email"))) Session("fedid") = Request.Form("federal_id") Session("yrsinbiz") = Request.Form("yrs_in_biz") End Function Say I need to change one of the fields entered in step 1, I hit Previous button, change the info, continue on, but when I go back to see if my change persisted, I find that the field changed back to its original value. This doesn't happen in IE, I am wondering how Firefox caches here?! Tag: Logging WScript.Timeout Event Tag: 198795
  - 6
    - Firefox & Session Vars Hi, I have an application process where users enter info into fields, go on to step 2, when this happens the user info is loaded into the session and then the user is redirected Function SaveCookies() Session("apptype") = Request.Form("apptype") Session("pgmtype") = Request.Form("pgm_type") Session("branch") = Request.Form("branch") Session("guarantors") = Request.Form("gtors_count") Session("references") = Request.Form("refs_count") Session("biztype") = Request.Form("biztype") Session("ref") = Request.Form("external_ref") Session("customerCode") = Request.Form("customer_code") Session("companyName") = ReplaceSpecialCharacters(UCASE(Request.Form("company_name"))) Session("dbaName") = ReplaceSpecialCharacters(UCASE(Request.Form("dba_name"))) Session("address1") = ReplaceSpecialCharacters(UCASE(Request.Form("address1"))) Session("address2") = ReplaceSpecialCharacters(UCASE(Request.Form("address2"))) Session("city") = ReplaceSpecialCharacters(UCASE(Request.Form("city"))) Session("state") = UCASE(Request.Form("state")) Session("zipcode") = Request.Form("zipcode") Session("county") = Request.Form("county") Session("ctname") = Request.Form("contact_tname") Session("cfname") = ReplaceSpecialCharacters(Request.Form("contact_fname")) Session("clname") = Request.Form("contact_lname") Session("ctitle") = Request.Form("contact_title") Session("cphone") = Request.Form("contact_phone") Session("cext") = Request.Form("contact_ext") Session("cfax") = Request.Form("contact_fax") Session("cemail") = ReplaceSpecialCharacters(LCase(Request.Form("contact_email"))) Session("fedid") = Request.Form("federal_id") Session("yrsinbiz") = Request.Form("yrs_in_biz") End Function Say I need to change one of the fields entered in step 1, I hit Previous button, change the info, continue on, but when I go back to see if my change persisted, I find that the field changed back to its original value. This doesn't happen in IE, I am wondering how Firefox caches here?! Tag: Logging WScript.Timeout Event Tag: 198794
  - 7
    - Text File Create date problem... Situation: I've got a vbscript that creates a logfile during processing. At the beginning of the script I check to see if the log already exists - if so, I rename it (move) then create a new log (CreateTextFile) for the current execution. Here's the code 1 Set objFSO = CreateObject("Scripting.FileSystemObject") 2 If objFSO.FileExists(myLogFile) Then 3 Set objFile = objFSO.GetFile(myLogFile) 4 objFile.Move(myLogFile & <a suffix containing the last modified date>) 5 End If 6 Set objLogFile = objFSO.CreateTextFile(myLogFile, True) The Problem: The "DateCreated" attribute value seems be carried over from the previous logfile (line 2) to the new logfile (line 6)... but the date modified last accessed values are updated correctly. Why is the date created value not getting the current date and how can I fix this problem? Any feedback on this would be appreciated... celoftis Tag: Logging WScript.Timeout Event Tag: 198786
  - 8
    - AD User Account email Address All: Looking for a VB script to retrieve AD users account email address. tia DemoDog Tag: Logging WScript.Timeout Event Tag: 198778
  - 9
    - Help moving users folders to a new machine Hi everyone! I'm a newbie to scripting(especially related to Active directory) and I figure this would be a good starting point to learn. Here is the situation. I am installing a new server, and I would like to move all my users shares to the new server. Tasks that I think will need to happen in the process in no specific order. 0) Create a share on Machine2 called users, and set it to not inherit permissions. 1) Copy all users shares from Machine1 to Machine2 2) Set NTFS attributes on each individual share on Machine2 to the following %USERNAME% (depending on the user) Modify, Read&Execute, List, Read, Write Administrators Group Full Controll 3) Modify Active Directory entries of home folder(Connnect U drive) to show the new path of \\Machine2\Users\%username% 4) Remove all the old shares on Machine1(figure I'd do this manually at a later date incase/when I screw up :-> I have some novice level programming experiance in C# and VB so you can get a little technical...Maybe a sample script that I can modify to meet my needs or a direction to some good resources. Thanks Josh Martin Tag: Logging WScript.Timeout Event Tag: 198775
  - 10
    - How run a Script with high privileges?? Hi I have a Script to install a software, but this software need that user was local admin privileges. i need execute this script in the login to domain (AD). How can do it??? thanks, Daniel Tag: Logging WScript.Timeout Event Tag: 198772
  - 11
    - does anyone have a snipped handy for this? I need to search all files in the local computer for files owned by a specific user and delete all files of a specific type. I think I have some code to do this that does a select from CMIv2 for all files in the local computer. I do not see a property of the objFile that shows who the owner is. The second requirement is for all *.lnk files (I can easily find these files using the Extension property) I need to force the WorkingDirectory to a specific path. I have only been able to find CreateShortcut and DeleteShortcut methods. I have not found a ChangeShortcut method. Does such a method exist? Mike Tag: Logging WScript.Timeout Event Tag: 198770
  - 12
    - CanonicalName Query Hi There Im trying to develop a VB script whereby an Input Box asks me to Enter the name of a Active Directory Security Group and then writes the CanonicalName of each member of that Group to a text file on my C: Drive. Can anyone help me on this. I really need it for determining where users are located throughout our network. Cheers Des Tag: Logging WScript.Timeout Event Tag: 198768
  - 13
    - CDO - Access several Mailboxes Hi I=B4m relatively new to CDO and cant seem to wrap my head around the procedure of Session.Logon. I have a number of resources (cars) set up as Mailboxes in Exchange. These are put into a resource group and I have user-account that has full access to this group of mailboxes. Now I would like to be able to log on to the Exchange server as this "full-access-user" from a website. Can this be done? It seems to me the only way to log on to Exchange is to specify a certain Mailbox through the Session.Logon method. Fine, but how do i control who has access-rights? The only thing supplied is the mailaddress or alias, and the servername... How do I identify myself? I do not want to allow an anonymous_user-account or the everyone-account full access to every mailbox I have. Sorry if I seem a bit confused, but that=B4s because I am.... Thanks! Tag: Logging WScript.Timeout Event Tag: 198767
  - 14
    - CDO - Access several Mailboxes Hi I=B4m relatively new to CDO and cant seem to wrap my head around the procedure of Session.Logon. I have a number of resources (cars) set up as Mailboxes in Exchange. These are put into a resource group and I have user-account that has full access to this group of mailboxes. Now I would like to be able to log on to the Exchange server as this "full-access-user" from a website. Can this be done? It seems to me the only way to log on to Exchange is to specify a certain Mailbox through the Session.Logon method. Fine, but how do i control who has access-rights? The only thing supplied is the mailaddress or alias, and the servername... How do I identify myself? I do not want to allow an anonymous_user-account or the everyone-account full access to every mailbox I have. Sorry if I seem a bit confused, but that=B4s because I am.... Thanks! Tag: Logging WScript.Timeout Event Tag: 198766
  - 15
    - Zeile in File mit VB-Script austauschen Hallo Zusammen, ich habe eine Anzahl von Files, die alle die gleiche Endung haben (=2Etxt) In diesen Files, gibt es eine Zeile (irgendwo), die folgenden String enth=E4lt: FGxx.xx.xx,20:00:00 In diesem Sting sollen die x durch das aktuelle Tagesdatum ersetzt werden. Da sich die Files ab und an =E4ndern scheidet eine einmalige Bearbeitung aus. Ich hoffe mir VBScript-Anf=E4nger kann jemand weiterhelfen. Viele Gr=FC=DFe, Nick St=F6cker P=2ES. habe schon diverse Foren und Newsgroups durchsucht, ohne nennenswerten Erfolg Tag: Logging WScript.Timeout Event Tag: 198761
  - 16
    - command script Hi i have a batch file that goes like this if not exist c:\scripts\howto\ xcopy \\192.168.20.2\netlogon\scripts\howto\*.* c:\scripts\howto\ /y this runs perfectlay but for some reseon i can get the file to exicute in a script vbs file i have tryed Public Function data() dim objShell set objShell = WScript.CreateObject("Wscript.Shell") sCommand = "cmd /c if not exist c:\scripts\howto\ xcopy \\192.168.20.2\netlogon\scripts\howto\*.* c:\scripts\howto\ /y" objShell.run sCommand, 0, true Wscript.DisconnectObject objShell Set objShell = Nothing end function can anyone help please i iam not sure where i should add " & Chr(34) & " in the vbs thanks -- Juan Bredenkamp Tag: Logging WScript.Timeout Event Tag: 198754
  - 17
    - Enabling RDP via a login script Hi, I want to enable RDP on all my workstations so I added this chunk of code to my login script. ' ****************************************************************** ' This part will enable RDP on the workstation ' ****************************************************************** Dim objReg, strKeyPath Const HKLM = &H80000002 strKeyPath = "SYSTEM\CurrentControlSet\" _ & "Control\Terminal Server" Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") objReg.SetDWORDValue HKLM, strKeyPath, _ "fDenyTSConnections", "0" '0 enables RDP; 1 disables RDP I receive no errors but it just doesn't work! Can any one see anything wrong with the above code? Thanks. Tag: Logging WScript.Timeout Event Tag: 198753
  - 18
    - Include all files in subfolders Hi Everyone. I have developed a script that will display the name and creation time of files listed in a directory, but I need to display all files in all subfolders as well. So for example, if I were looping through the local disk (C:) drive, I would like a list of all files in all subfolders beyond c:/. I don't need any folder names, just the file names and creation times. Here's the script i've come up with so far and a sample of the output is below as well. --------------------------------------SCRIPT---------------------------------------------------------- Set objLogParser = CreateObject("MSUtil.LogQuery") Set objInputFormat = CreateObject("MSUtil.LogQuery.FileSystemInputFormat") objInputFormat.Recurse = 0 Set objOutputFormat = CreateObject("MSUtil.LogQuery.NativeOutputFormat") objOutputFormat.rtp = -1 strQuery = "SELECT Name, CreationTime INTO output.txt FROM 'C:\*.*' " & _ "WHERE NOT Attributes LIKE '%D%' ORDER BY CreationTime" objLogParser.ExecuteBatch strQuery, objInputFormat, objOutputFormat --------------------------------------END SCRIPT--------------------------------------------------- ----------------------------------------OUTPUT------------------------------------------------------- Name CreationTime -------------- ----------------------- NTDETECT.COM 2004-08-03 21:38:34.0 ntldr 2004-08-03 21:59:34.0 pagefile.sys 2006-06-13 11:20:23.166 boot.ini 2006-06-13 11:25:48.544 AUTOEXEC.BAT 2006-06-13 15:38:36.500 IO.SYS 2006-06-13 15:38:36.500 CONFIG.SYS 2006-06-13 15:38:36.500 MSDOS.SYS 2006-06-13 15:38:36.500 ptdebug.txt 2006-06-14 09:28:37.199 test1.csv 2006-06-15 14:23:30.981 tmp.drf 2006-08-04 01:53:32.731 sqmnoopt00.sqm 2006-09-26 13:20:59.183 sqmdata00.sqm 2006-09-26 13:20:59.183 sqmnoopt01.sqm 2006-09-26 14:33:36.575 sqmdata01.sqm 2006-09-26 14:33:36.595 sqmnoopt02.sqm 2006-09-27 08:15:13.800 sqmdata02.sqm 2006-09-27 08:15:14.922 sqmnoopt03.sq 2006-10-02 08:17:45.566 sqmdata03.sqm 2006-10-02 08:17:45.616 ----------------------------------------END OUTPUT--------------------------------------------------- If anybody has any suggestions, it would be greatly appreciated. Thanks so much. Justin Fancy Tag: Logging WScript.Timeout Event Tag: 198751
  - 19
    - VBS INPUTBOX IN MODAL WAY Hi everyone, I have developed a simple inputbox in vbscript that runs when Win2000 starts. This inputbox acts as an authentication box. I wish that this inputbox is modal so that I cannot interact with system (e.i. I cannot use desktop, start button and so on...) until I input a good code.It is possible? Thanx in advanced. Lorschi Tag: Logging WScript.Timeout Event Tag: 198749
  - 20
    - How running multiple commands in a script Hi (New and still trying learn vb scripting) I have created a vb which runs a command that I need to automate, this works fine. But I now need to run the same command with different options after it has completed (Its just the way the command runs, its like a db query), when I do this the command starts to run in parallel and which causes errors, as the command is trying to access the programs services at the same time. I have tried to put the Wscript.sleep, thinking this would wait, but this does not work,any sugesstions? '*********************** dim Wshell dim StrCmdNormal dim StrCmdWarning StrCmdNormal="c:\test.exe -o -t" StrCmdWarning="c:\test.exe -o -z " set Wshell = wscript.createobject("wscript.shell") Wshell.run StrCmdNormal Wscript.sleep 60 Wshell.run StrCmdWarning Wscript.sleep 60 Wscript.echo StrCmdNormal Wscript.echo StrCmdWarning '************************** --- Dee Tag: Logging WScript.Timeout Event Tag: 198744
  - 21
    - help with vbscrip and error (its a purge script) Hi All. here is the code and i put it into a for each it comes up with an error on line 47 this is line 47 sub SelectFiles(sPath,vKillDate,arFilesToKill,bIncludeSubFolders) Code: -------------------- ' folder to start search in... path = "c:\zip\"& line ' delete files older than 7 days... killdate = date() - 7 arFiles = Array() set fso = createobject("scripting.filesystemobject") ' Don't do the delete while you still are looping through a ' file collection returned from the File System Object (FSO). ' The collection may get mixed up. ' Create an array of the file objects to avoid this. ' SelectFiles path, killdate, arFiles, true nDeleted = 0 for n = 0 to ubound(arFiles) '================================================= ' Files deleted via FSO methods do *NOT* go to the recycle bin!!! '================================================= on error resume next 'in case of 'in use' files... arFiles(n).delete true if err.number <> 0 then wscript.echo "Unable to delete: " & arFiles(n).path else nDeleted = nDeleted + 1 end if on error goto 0 next 'msgbox nDeleted & " of " & ubound(arFiles)+1 _ & " eligible files were deleted" sub SelectFiles(sPath,vKillDate,arFilesToKill,bIncludeSubFolders) on error resume next 'select files to delete and add to array... ' set folder = fso.getfolder(sPath) set files = folder.files for each file in files ' uses error trapping around access to the ' Date property just to be safe ' dtlastmodified = null on error resume Next dtlastmodified = file.datelastmodified on error goto 0 if not isnull(dtlastmodified) Then if dtlastmodified < vKillDate then count = ubound(arFilesToKill) + 1 redim preserve arFilesToKill(count) set arFilesToKill(count) = file end if end if next if bIncludeSubFolders then for each fldr in folder.subfolders SelectFiles fldr.path,vKillDate,arFilesToKill,true next end if end sub -------------------- if i just run this bit of the code it works Code: -------------------- Set objFSO = CreateObject("Scripting.FileSystemObject") filename = "c:\list.txt" Set objFile = objFSO.OpenTextFile(filename) strContents = objFile.ReadAll for each line in split(strContents, vbnewline) 'wscript.echo "line is: " & line ' folder to start search in... path = "c:\zip\"& line ' delete files older than 7 days... killdate = date() - 7 arFiles = Array() set fso = createobject("scripting.filesystemobject") ' Don't do the delete while you still are looping through a ' file collection returned from the File System Object (FSO). ' The collection may get mixed up. ' Create an array of the file objects to avoid this. ' SelectFiles path, killdate, arFiles, true nDeleted = 0 for n = 0 to ubound(arFiles) '================================================= ' Files deleted via FSO methods do *NOT* go to the recycle bin!!! '================================================= on error resume next 'in case of 'in use' files... arFiles(n).delete true if err.number <> 0 then wscript.echo "Unable to delete: " & arFiles(n).path else nDeleted = nDeleted + 1 end if on error goto 0 next 'msgbox nDeleted & " of " & ubound(arFiles)+1 _ & " eligible files were deleted" sub SelectFiles(sPath,vKillDate,arFilesToKill,bIncludeSubFolders) on error resume next 'select files to delete and add to array... ' set folder = fso.getfolder(sPath) set files = folder.files for each file in files ' uses error trapping around access to the ' Date property just to be safe ' dtlastmodified = null on error resume Next dtlastmodified = file.datelastmodified on error goto 0 if not isnull(dtlastmodified) Then if dtlastmodified < vKillDate then count = ubound(arFilesToKill) + 1 redim preserve arFilesToKill(count) set arFilesToKill(count) = file end if end if next if bIncludeSubFolders then for each fldr in folder.subfolders SelectFiles fldr.path,vKillDate,arFilesToKill,true next end if end sub next -------------------- the reason for this is to purge through my backups. and the way the backup works is i have a folder "zip" in this folder i have random generated folder then inside each of the random folder i have my backups. so i first have to grab a list folder then open one and run the purge script then move onto the next folder. cheers aron. -- aron ------------------------------------------------------------------------ Posted via http://www.codecomments.com ------------------------------------------------------------------------ Tag: Logging WScript.Timeout Event Tag: 198743
  - 22
    - DropDown box in worksheet Hello, How to create dropdown box with vbscript in excel worksheet? Thanks, for answers... Tag: Logging WScript.Timeout Event Tag: 198742
  - 23
    - Implementation or reference for HMAC-SHA1 signature in VB Hi, I need to implement the HMAC-SHA1 signature in my ASP/VBScript website. Does anyone have an implementation or reference for such hashing algorithm? Thanks, Gabi. Tag: Logging WScript.Timeout Event Tag: 198738
  - 24
    - Implementation or reference for HMAC-SHA1 signature in VB Hi, I need to implement the HMAC-SHA1 signature in my ASP/VBScript website. Does anyone have an implementation or reference for such hashing algorithm? Thanks, Gabi. Tag: Logging WScript.Timeout Event Tag: 198737
  - 25
    - vbscript to split up pst file I have a number of clients who have pst files that are WAAAAAAAAAY too big. I created the following vbscript create a new PST file according to quarter. I have been able to create the new pst file but cannot figure out how to copy over the folder strcture and emails within the given dates from the source pst to the newly created destination. Can somone give me a hint as to where I can go from here? I'm pretty good at batch scripting but vbscript is a whole new world to me. so go easy on me :) What I have so far - Option Explicit On error resume next Dim objOutlook, objNameSpace, oBQ, oEQ, oYEAR, oSOURCE, oDEST oBQ = inputbox ("Enter beginning quarter") if (oBQ<1 or oBQ>4) then wscript.echo "The number " & oBQ & " does not signify a quarter. You are a dork." wscript.quit End if oEQ = inputbox ("Enter ending quarter") if (oEQ<1 or oEQ>4) then wscript.echo "The number " & oEQ & " does not signify a quarter. You are a dork." wscript.quit End if oYEAR = inputbox ("Enter the year") if (oYEAR<1990 or oYEAR>2020) then wscript.echo "The number " & oYEAR & "is either before 1990 or after 2020. Either way, you are a dork." wscript.quit End If oSOURCE = inputbox ("Enter the name of the source .pst file. Note: file must be in the c:\email folder. <e.g. 'jsim' NOT 'jsim.pst'>") Set objOutlook = CreateObject("Outlook.Application") Set objNameSpace = objOutlook.GetNamespace("MAPI") objNameSpace.AddStore "C:\email\" & objNameSpace.CurrentUser & "_Q" & oBQ & "- Q" & oEQ & "_" & oYEAR & ".pst" Set objNameSpace = Nothing Set objOutlook = Nothing Tag: Logging WScript.Timeout Event Tag: 198724
- Next
  - 1
    - Creating Macintosh Shares Is there a way to create a VB Script that will create Macintosh shares on a Win2K Adv server running File and Print services for Mac? Alex Tag: Logging WScript.Timeout Event Tag: 198720
  - 2
    - Webpage which can Authenticate via Active Directory Hello We have various web scripts and in each one we have to store all the users in a seperate database. It would simplify things a lot if we could show a webpage where users enter their Windows username and password and the form would authenticate via active directory and either fail if incorrect or set some variable to allow users to access the rest of the script. I was hoping to be able to write this in VB Script as this is what all the scripts are written in. Thanks for any help Robin Tag: Logging WScript.Timeout Event Tag: 198718
  - 3
    - Script Error *Help Please* Hello All, Hope someone can help with this, below I have pasted the script that I am using: <OBJECT language="vbscript" ID="MsRdpClient" CLASSID="CLSID:9059f30f-4eb1-4bd2-9fdc-36f43a218f4a" CODEBASE="msrdp.cab#version=5,1,2600,1095" WIDTH=<% resWidth = Request.QueryString("rW") if resWidth < 200 or resWidth VIEWASTEXT VIEWASTEXT VIEWASTEXT> 1600 then resWidth = 1024 end if Response.Write resWidth %> HEIGHT=<% resHeight = Request.QueryString("rH") if resHeight < 200 or resHeight > 1200 then resHeight = 768 end if Response.Write resHeight %>> </OBJECT> When launching this asp I receive the following error: Microsoft VBScript compilation error '800a03f9' Expected 'Then' /TSAC_XP.asp, line 46 if resWidth < 200 or resWidth VIEWASTEXT VIEWASTEXT> 1600 then Looking forward to a response. Thanks Tag: Logging WScript.Timeout Event Tag: 198716
  - 4
    - Batch file would appreciate valuable help in setting up a batch file to perform the following steps on w2003 server. 1.Stop service 2.backup c:\application folder\ to networked drive (share/map) 3.start service 4.ftp file to mainframe host Thanks AQ Tag: Logging WScript.Timeout Event Tag: 198707
  - 5
    - Script Not Totally Working in Scheduled Tasks Hello, I have a script here that runs every 5 minutes in scheduled tasks. The script checks to see if the pc has a certain ip address and if it does it disables the dhcp client and displays a message. The problem is I have the task scheduled to run w/ the administrator's credentials. And unless the administrator is the one signed in to the pc, the dhcp client will disable but the message box does not display on the screen. It will give the message beep however. Then the task continually says "running" because it is waiting for the user to hit "ok", yet the user can not see the message box. What am i missing? Any help will be greatly appreciated. Tag: Logging WScript.Timeout Event Tag: 198706
  - 6
    - Multilingual (UTF-8) support in HTML/URL Encoding/Decoding Hi, I have a multi-lingual website, especially with English and Hebrew chars and using codepage 65001 (UTF-8). I use the Server.HTMLEncode or Server.URLEncode with Hebrew chars when needed. But, when decoding them back - I get garbage. For example, a Hebrew string after Server.URLEncode and a following URLDecode: "P&&&&& "&&&&&&&DAD" 2DAD9D9D9D!" When used with English chars - all is OK. The URLDecode function I'm using is: Function URLDecode(str) str = Replace(str, "+", " ") For i = 1 To Len(str) sT = Mid(str, i, 1) If sT = "%" Then If i+2 <= Len(str) Then sR = sR & _ Chr(CLng("&H" & Mid(str, i+1, 2))) i = i+2 End If Else sR = sR & sT End If Next URLDecode = sR End Function I copied this function from somewhere. It's probably the problem. Isn't it? What should I use to enable URL/HTML Encoding/Decoding that supports UTF-8 as well? Thanks, Gabi Tag: Logging WScript.Timeout Event Tag: 198705
  - 7
    - Removing " in user input Hi, I am writing a internal website for my company and need some help. I need to remove (or escape it) the " and ' from the user input so it can be put in a SQL database. Currently what i have been doing is this input = Replace(Request.form("input"), "'", "") and that gets rid of the ' just fine, but how do I work with "? Can I escape it with a \ or anything so it can go in my SQL database? Thanks very much for your help! Tag: Logging WScript.Timeout Event Tag: 198693
  - 8
    - how to inherit mailbox permissions ? Hi, I'm currently trying to set permissions on a mailbox I create via a script. I can easily set those permissions for a certain user but I want to be able to apply inheritance to that mailbox so that the permissions are equal to those of a mailbox created via the "Active Directory Users and Computers" snap-in. Does anyone know how to achieve that (providing it's possible at all) ? Thanks in advance, Kevin Tag: Logging WScript.Timeout Event Tag: 198686
  - 9
    - Excel Macro Hi I have a folder with a large list of files. I need a macro that goes through each file and searches for a specific number ( a clients FNN). I then need it to copy all of the information from this row into a new document and then paste the information. The information from each file needs to be on a new line. Is it possible to write this in VBS? Thanks in advance Tag: Logging WScript.Timeout Event Tag: 198672
  - 10
    - Excecute script parts synchron Hi, Is it possible to execute parts of a script synchron, so as if two or more scripts run parallel, but in one script, not in different scripts how you can do it with shell.run. Manfred Tag: Logging WScript.Timeout Event Tag: 198671
  - 11
    - Version of Office Hi! How can I check what language version of MS Office is installed on the machine (with vbscript)? Tag: Logging WScript.Timeout Event Tag: 198665
  - 12
    - Error Checking in AD Query Hello I've been trying to query AD to return the truncated domain name from a list of users in a text file, based on the 'name' of the user. I'm very new to scripting so at this stage I just piece together other's hard work and try to make it happen! I seem to be able to return the domain name o.k., but I'm missing around 40 names in a list of over 700, consequently I can't match up each username with a domain name, so the result is next to useless. I suspect that some of the usernames may be invalid, but without an error checking routine I'm can't be sure. Does anyone have a way of error checking the results of an AD query? I've posted my script here, apologies if it's a bit scrambled, I've had several attempts. Any help appreciated. Const ADS_SCOPE_SUBTREE = 2 Const ForWriting = 2 Const ForReading = 1 LogFile = "C:\query\fso_initial.txt" FinalFile = "C:\query\fso_final.txt" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile(LogFile, ForReading) Set objConnection = CreateObject("ADODB.Connection") Set objCommand = CreateObject("ADODB.Command") objConnection.Provider = "ADsDSOObject" objConnection.Open "Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.Properties("Page Size") = 1000 objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE ' *** Open input text file and read through values strLine = objFile.ReadAll objFile.Close arrDN = Split(strLine, vbCrLf) For x = 0 To UBound(arrDN) strLine = Trim(arrDN(x)) Next ' *** End Text File Read Set objFile = objFSO.OpenTextFile(FinalFile, ForWriting) For Each strItem In arrDN ' *** AD Query objCommand.CommandText = _ "SELECT distinguishedName FROM 'GC://dc=SOMEDOMAIN,dc=net' WHERE objectCategory='user' " & _ "AND name = '" & strItem & "'" On Error Resume Next Set objRecordSet = objCommand.Execute Do Until objRecordSet.EOF strDN = objRecordSet.Fields("distinguishedName").Value objUser = Right(objRecordSet.Fields("distinguishedName").Value, 29) ' *** Write back to Text File objFile.Writeline objUser objRecordSet.MoveNext Loop Next objFile.Close Tag: Logging WScript.Timeout Event Tag: 198662
  - 13
    - HTML Progress Bars Regarding this thread: http://groups.google.com/group/microsoft.public.scripting.vbscript/msg/272e4296c1d80aef Great thread btw, I used this as part of my recent login script. I tried all 3 of these this with the new beta of IE 7 and it takes on the full screen... any html experts that can look at this or is this just bleeding edge MS?? Thanks! Tag: Logging WScript.Timeout Event Tag: 198658
  - 14
    - install Flash Player 9.class doesn't support automation: 'GetObject' My Team uses vbscript to install Flash Player 9 on 1000 user's pc. A few get back to me getting the error :" class doesn't support automation: 'GetObject' " . Any1 has any clue on what happens Little Apple A very very junior SA Tag: Logging WScript.Timeout Event Tag: 198656
  - 15
    - AD distribution list attribute query Hi all, Not sure if this is the right group to post this to, but here goes:) I'm wondering if there is any distribution list attribute I can query that will tell me when a mail was last sent to a group. Many thanks, in advance, for your time. Lew Tag: Logging WScript.Timeout Event Tag: 198650
  - 16
    - How to return a sting of numbers from a longer string Let's say I have a string like this, which I'll call docAddress. http://www.website.com/cgi-bin/mt/mt.cgi?__mode=view&_type=entry&id=003322&blog_id=1 I want to return the six digit string inside it, which in this case is 003322, but it could be any six digit number, and I'll call it EntryNum. Is there a way to do that with a .vbs file? The split function won't work for this situation because the number is not simply located between two separators. I could do this easily in with a Word macro, but I'm less sure about VB script. Tag: Logging WScript.Timeout Event Tag: 198649
  - 17
    - Dynamic Group List All, I am looking for a way to populate a drop down box of an HTA with all groups within a specific OU. Does anyone have a way for me to do this by chance?? Thanks!! Ryan Tag: Logging WScript.Timeout Event Tag: 198646
  - 18
    - Removing network printers via login script I am trying to remove all network printers, then readd the correct printers via a login script. here is what I have below: Dim j Set objPrinters = objNetwork.EnumPrinterConnections For j = 0 To objPrinters.Count - 1 Step 2 ' Remove only networked printers If Left(objPrinters.Item(j +1),2) = "\\" Then Line 158 ---> objNetwork.RemovePrinterConnection objPrinters.Item(j +1),True,True End If Next I am getting an error when the script runs: Line: 158 Char: 3 Error: This network connection does not exist Code 800708CA Source: WSHNetwork.RemoveNetworkDrive I am confused at where this error is coming from... Any help would be greatly appreciated. Tag: Logging WScript.Timeout Event Tag: 198645
  - 19
    - Local to Remote switch for retrieving file ownership in XP I have an .hta script that works locally, but will not work remotely. I've created the same path as I'm checking locally on a remote server and changed the "." to the name of the remote device. I get error 80041002 on line 32 (the For Each objItem In colItems). I looked up the error and it appears to be a problem retrieving my object information. Any clues? Thanks!!!: <html> <head> <title>GridAC - List Folder Sizes</title> <HTA:APPLICATION ID="GridAC" APPLICATIONNAME="GridAC" SCROLL="yes" SINGLEINSTANCE="yes" > </head> <SCRIPT LANGUAGE="VBScript"> Sub Window_OnLoad() Window.ResizeTo 300, 600 Window.moveTo (screen.width-240)/2, (screen.height-600)/2 End Sub Sub FileOwner strComputer = "." strFolder = "C:\Tools\Scripts\" Set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set fso = CreateObject("Scripting.fileSystemObject") Set aFolders = fso.getFolder(strFolder) For Each strFile in aFolders.files strHTML = strHTML & "File Name:," & strFile.name & "," set colItems = objWMI.ExecQuery _ ("ASSOCIATORS OF {Win32_LogicalFileSecuritySetting='" & strFile & "'}" _ & " WHERE AssocClass=Win32_LogicalFileOwner ResultRole=Owner") For Each objItem In colItems strHTML = strHTML & "File Owner:," & objItem.ReferencedDomainName & "\" & objItem.AccountName & "<br>" Next Next passHTML.innerhtml = strHTML End Sub </SCRIPT> <body> <input type="button" value="Run Script" name="run_button" onClick="FileOwner"><p> <p> <span id="passHTML"></span> </body> Tag: Logging WScript.Timeout Event Tag: 198641
  - 20
    - echo message should popup set WshShell = CreateObject("WScript.Shell") WshShell.Echo "Hello" I would like this to popup with a message box, but it only displays text in the command line. How can I modify the VBS code to have a popup. This will need to work on multiple machines, without altering environment settings etc. Thanks Nick Tag: Logging WScript.Timeout Event Tag: 198639
  - 21
    - Grab selected file names I am trying to programmatically determine which file names are selected in a given window. e.g. - my objective is to have a user open an explorer window. He multi-selects several files, right clicks, and then from the context menu sends the filenames to a file. How would I go about pulling the selected list of filenames, while pushing this data into an array or writing it to a file? I'm not quite sure where I should look for this...file system object? Thanks so much! Tag: Logging WScript.Timeout Event Tag: 198634
  - 22
    - How to install FTP Service Is there a way to install the FTP Service via vbscript rather then having somone go into Add/Remove programs, ADD/Remove windows programs, and selecting the File Transfeer Protocal service? Thanks J Tag: Logging WScript.Timeout Event Tag: 198631
  - 23
    - VB Script with Windows Task Scheduler Hello. I have a problem with vb scripts that I call using the task scheduler. The problem is that the scripts continue to run and never stop. The scripts are calling an excel, and access applications. I'm using removing the object of each instance using "application.quit", and also removing the object in my vb script "set objExcel=Nothing", and the task scheduler has the scrupt running for 48 hours when it should run no more than 10 minutes. Can some please help with this. Here's a sample of my vbscript: Dim appAccess, strConPathToDB strConPathToDB = "C:\ftoups.mdb" Set appAccess = createObject("Access.Application") appAccess.Visible = True appAccess.OpenCurrentDatabase strConPathToDB appAccess.DoCmd.OpenModule "ModuleImport_ExportNew", "GetDataNew" appaccess.Run "GetDataNew" appAccess.Quit Set appAccess = Nothing Here's the last line of code that the above vb script references: Sub() Application.Quit End Sub Tag: Logging WScript.Timeout Event Tag: 198630
  - 24
    - A script to format a raw drive. Hello I've got a new drive that for various reasons, I have been using diskpart to wipe the partition table. When I add it as a secondary I always go through the Disk Managment console to first initalize disk 1, format with a 3gig partition, and set it as active. How can I do that via a VB script? Tag: Logging WScript.Timeout Event Tag: 198626
  - 25
    - Accessing Local Policies and making I am needing to write a script to set local policies on some servers repeadily. These particular servers are not allowed to be touched by group policies on the Domain. I need to write a script to automate such things as: o Adding a domain account to the "Log on as batch job" security setting. Is there a way to access these through VBscripting? If so, could somebody please point me to the specifics? Regards, -- Randy Tag: Logging WScript.Timeout Event Tag: 198625

Hallo,

I would like to know if there is a way to log the event, that my script has
exceeded the wscript.timeout that I have set before.

I would like to log this event within the Script itself, before it's ending,
not as a wsh-return code... And I would like to log the return Code inside my
logfile...

Top