Mouse Move 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
    - hebrw Encoding Problems Hi HAPPY NEW YEAR TO ALL!!! I have a webpage form that collects data to place in a msaccess database and also email info back to the user. I have the webpage encoded as windows-1255 however the data being placed in the access table and the email are sending with the wrong encoding.. How can I control the code language that the ASP scripts use?? Regards Meir Tag: Mouse Move event Tag: 185355
  - 2
    - replace text with date variable? We currently have a script that runs at startup written in .vbs that works perfect, it uses something similar to the following. where if the date is more than 12 months old it runs. dim startdate dim duration startdate = #11/01/2004# duration = 12 if dateadd("m",duration,startdate) < date() then where after then it runs the script perfectly.. at the end of the script we have it run another .vbs which has something similar to the following Const ForReading = 1 Const ForWriting = 2 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("backup.vbs", ForReading) strText = objFile.ReadAll objFile.Close strNewText = Replace(strText, "startdate = #11/01/2004#", "startdate = #11/01/2005#") Set objFile = objFSO.OpenTextFile("backup.vbs", ForWriting) objFile.WriteLine strNewText objFile.Close And again this works great!, but what I am wondering, to basically make it seamless, is if there is a way to replace strNewText = Replace(strText, "startdate = #11/01/2004#", "startdate = #11/01/2005#") with something like strNewText = Replace(strText, "startdate = #11/01/2004#", "startdate = current date variable") so I wouldn't have to manually change the file once a year, and worry about a silly mistake. I have tried toying around with the %date% variable, but it seems to write in mm-dd-yy, which I am not sure if the script can understand with the previous mm/dd/yyyy format.. Does anyone have a suggestion as to how I might be able to write the current date format in the 2nd part as mm/dd/yyyy using a variable of sorts? Matthew Rice Rice Computer Solutions www.ricecs.com Tag: Mouse Move event Tag: 185351
  - 3
    - Using VBscript to change an Excel spreadsheet without Excel Application Hi, I have created a VBscript to format an Excel spreadsheet, but when I go to execute it on the server that has the database from which the data is extracted, I get an error as the server does not have Excel installed on it. Is there ANY way to get around this without having to install Excel, inventive answers are more than welcome. TIA Chris aka BoobBoo Tag: Mouse Move event Tag: 185345
  - 4
    - Looking for pdf generator I have this asp web site, mostly vbscripts. Connected to a database. I would really like to dynamically generate unlimited PDF reports from the database, but I am having a problem to find any freeware PDF generators. Preferably I would like to use vbscript to produce the reports, but that's not essential. Any suggestions? And what would you recommend of shareware products? Kind regards, Svein Tag: Mouse Move event Tag: 185340
  - 5
    - Hightlight a phrase with replace() Hi, I am building a search enginee and I would like to hightlight the keywords or phrase in the search similiar to Google. For one or several keywords are no problem. They are loaded into an array and iterate through with a replace(str, keyword, "<b>" & keyword & "</b>"). My question is how I can do something similar with a phrase within quotes and one or several keywords? ex: "fuelcell batteries for car" energy hydro and have those hightligted in a result text. Any ideas, Thanks in advance Christian Tag: Mouse Move event Tag: 185339
  - 6
    - Check for VB Script Support Hi all, I am extremely new to VB Script and am in a sitation that I need to work with a VB Scrip DOM Parser. I know that Mozilla and Opera do not support VB Scripting so I created a function to check the browser if it is compatible or not. Now I need to make another check that if it is Internet Explorer check if VB Script can run on that browser or not? For what should I check please? And it is best to make this function in PHP like the rest of the script or VB Script? And if VB Script any hints please? thanks and happy new year to all :) Matthew Tag: Mouse Move event Tag: 185336
  - 7
    - Localhost to Live Access The code below works when I use a Localhost URL, but will not work live. All I want to do is display a .snp test file for students. Does anyone know why it will not work when we go live. No halts or messages, it just brings up a white blank screen. Falis on both Windows 2000 Pro and Windows XP. <Html> <Body> <Title>Display Snapshot Page</Title> <Form Name="Test" Method="Get" Action="rptTxQuestions.snp"> <Input Type="Submit" Value="Return to Sign On"> </Form> </Body> </Html> Thanks in advance Granny Tag: Mouse Move event Tag: 185335
  - 8
    - Programs Installed Can I pull the programs installed, Manufacturer, Version adn date installed? And export to a text file? Tag: Mouse Move event Tag: 185329
  - 9
    - Pulling IP Info from computer I want to create a script to pull the MAC Address, IP address and Computer name from a remote computer to a text file. Is this possible? Please assist. Tag: Mouse Move event Tag: 185327
  - 10
    - Has anyone tried scripting IPFX (Outlook addon) I can explore the object to a certain extent but I can't actually get a script to dial a number. dim oPhone Set oPhone = CreateObject( "ctiPhoneControl.ctiPhone" ) WScript.Echo "MyLine is " & oPhone.MyLine WScript.Echo "State is " & oPhone.State Do While oPhone.State = 0' oPhone.Connect WScript.Sleep 100 Loop WScript.Echo "After Connect State is " & oPhone.State oPhone.Dial( "7273" ) Do While oPhone.State = 6 WScript.Echo "After Dial state is " & oPhone.State WScript.Sleep 100 Loop WScript.Echo "Finally State is " & oPhone.State oPhone.Disconnect And the output is: >cscript "C:\Documents and Settings\libma00\Desktop\Dev\t.vbs" MyLine is 7061 State is 0 After Connect State is 6 After Dial state is 6 Finally State is 7 >Exit code: 0 So it seems to work but nothing actually happens. My phone doesn't do anything and IPFX itself in Outlook doesn't even recognise I've done anything. Ideas anyone? Bruce. Tag: Mouse Move event Tag: 185324
  - 11
    - jscript calling asp querystring i have a jscript function as function new{ link="page1.asp" sample=window.open(link,...) } <vbscript> s= request.querystring("user") how can i pass this variable to "page1.asp" when i pass this variable it says "s" is undefined Tag: Mouse Move event Tag: 185318
  - 12
    - Writing To Word File Can someone tell me how to write to a word file in vbscript. I can create the object, but can't find the syntax to write or format the text. Any help or direction would be great. Thanks, Stan Tag: Mouse Move event Tag: 185317
  - 13
    - Writing To Word File Can someone tell me how to write to a word file in vbscript. I can create the object, but can't find the syntax to write or format the text. Any help or direction would be great. Thanks, Stan Tag: Mouse Move event Tag: 185316
  - 14
    - Writing To Word File Can someone tell me how to write to a word file in vbscript. I can create the object, but can't find the syntax to write or format the text. Any help or direction would be great. Thanks, Stan Tag: Mouse Move event Tag: 185315
  - 15
    - Writing To Word File Can someone tell me how to write to a word file in vbscript. I can create the object, but can't find the syntax to write or format the text. Any help or direction would be great. Thanks, Stan Tag: Mouse Move event Tag: 185314
  - 16
    - Bug? Date functions get day & month wrong Hi all, I am using the regional date time settings as English(Australian). That means that my date settings will always display as day/month/year I have an app which I'm entering a date. It's written in VB. When I intercept my field after its been entered and use VBScript to display a msgbox to screen I get funny results which seem to be a VB Script bug. I enter 11/01/2006 (which means in my lingo 11th Jan 2006) I then display msgbox DAY(myfield) & MONTHNAME(Month(myfield)) & YEAR(myfield) and lo I get "1Nov2006". I can also use MSGBOX FormatDateTime(myfield,1) and get Wednesday, 1 November 2006 Clearly they are wrong. I need to get, respectively 11Jan2006 and Wednesday 11 January 2006. HOWEVER!!! As soon as the first two characters of my date are 13 or more then it understands correctly what my date is - that's because there's no months greater than 13 so I guess it's assuming that I need the format changed to d/m/y. Then as soon as the first two chars are 12 or less, then it goes back to m/d/y. Is there a fix for this? Tag: Mouse Move event Tag: 185313
  - 17
    - VBS and Excel (Conditional Formatting) Hi I can use VBS to do most things in Excel (copy/paste/create spreadsheets etc), but I cannot get Conditional Formatting to work. I've googled and haven't came up with anything that relates to VBS, only VBA. The code that Excel makes up from a Macro is: Selection.FormatConditions.Delete Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _ Formula1:="80" Selection.FormatConditions(1).Font.ColorIndex = 3 VBS accepts the .Delete line, but if I try to add one, it comes up with errors using the above code. IE The below works Set objXL = WScript.CreateObject("Excel.Application") objxl.Selection.FormatConditions.Delete But objXL.Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, Formula1:="80" doesn't. Does anyone know what syntax I should use to get it to work? Cheers Leon Tag: Mouse Move event Tag: 185310
  - 18
    - Faster than Ping? Is there a way of finding out if a machine is online that is faster than ping? I've been using the WMI technique rather than the .Run method. Regards, Bruce. Tag: Mouse Move event Tag: 185309
  - 19
    - Scripting WINS Is there a means for talking to the WINS servers? My services file mentions wins 1512/tcp #Microsoft Windows Internet Name Service wins 1512/udp #Microsoft Windows Internet Name Service Is there a way of scriptfully interacting with WINS? Regards, Bruce. Tag: Mouse Move event Tag: 185308
  - 20
    - ActiveDesktop and GetObject In my HTA I have a line Set oIADSUser = GetObject( Subst( "WinNT://[1]/[2],user", Array( sDomain, sUsername ) ) ) It was suggested to me that I might want to convert the HTA into an ActiveDesktop object. I tried it but it keeps failing on this GetObject line. Is there a workaround or is this a known limitation? Regards, Bruce. Tag: Mouse Move event Tag: 185307
  - 21
    - Sql query via a form button on a web page. Hi, I have an area of web page that I do query to display display some information. It is basically a Select statement to display everything in the table, which loops around till everything is displayed. That works fine and dandy. I want to create three buttons to display information for "Past 24 Hours", "Past 72 Hours", and "All Entry's" I am not sure the best way to do this, any ideas? OH, the select statement for 24 hours, 72, or all entries I have but the part I am not sure is how to put the code into the buttons. thanks in advance, Tag: Mouse Move event Tag: 185306
  - 22
    - Terminating a script / Content missing from MSDN page I'm trying to terminate a process on my local PC using WMI's .ProcessTerminate method. It's returning a value of 2 ("Access Denied"). I can kill the same process from Task Manager without difficulty. I searched MSDN for this situation and came up with the following page: "Terminate Method of the Win32_Process Class" (http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/terminate_method_in_class_win32_process.asp). This page mentions enabling the SeDebugPrivilege privilege through VBScript to get around this error; however, the the VBScript code that would illustrate how to enable the SeDebugPrivilege privilege seems to be missing from the page! Any idea where this--or similar--code can be found? Tag: Mouse Move event Tag: 185294
  - 23
    - Remote Code Execution I'm in a Windows AD environment that isn't very conducive to running startup scripts to achieve my goal. What I am trying to do is copy a vbs script to a remote client machine, and then execute that script on that machine using my credentials. The script itself, when manually run on a client works perfectly. What I can't get to work is the remote execution of the script. I can start a process for notepad.exe and calc.exe, but I cannot start the script itself. Any ideas? Tag: Mouse Move event Tag: 185293
  - 24
    - Restart script for domain users Hi folks, I'm trying to write a script (still not sure it is the best option though) to allow our end users to restart their PCs each night. Here is our scenario: -users do not have access to the command prompt (blocked by GP) -users do not have access to shutdown or restart the computers (blocked by GP) -users do not have admin rights -we want user's to reboot their systems every night without having the option to shut the machine off Now here are the two options I think we have, I would prefer the first but I'm working on the second at the moment: 1) Use group policy to bock access to Shutdown but allow access to Restart. Alternatively we could do this by a reg hack but I don't have any clue how to do it either way. 2) Create a script that we can place on each user's Start Menu to reboot the computer. This script would need to run with elevated privileges (we have an account we can use which has access to reboot the workstations). I'm really new to scripting so I'm kind of fumbling my way along here but I have managed to write a script (with help from a couple sites) that reboots a test workstation using alternate credentials but the command prompt is not blocked on that system. When I do block it, the script doesn't work - says action blocked by policy. Does anyone have any ideas on how I can go about doing this? Now my second question on this script. As I need to embed the username and password in the file, is there any way to prevent users from being able to view this account information (we have a couple savvy folks). And my last question (I promise) - when I double-click on the script while logged in as a regular user (not power user) it doesn't work but if I launch it from a command prompt it does. When I double click on it as administrator it works with no problems. How do I get around this? Any and all help is greatly appreciated!!!! Thanks in advance, Nancy Tag: Mouse Move event Tag: 185290
  - 25
    - HTML & VBScript -> security problem!? Hello, I am trying to develop an simple desktop background that shows some system information using WMI. A .vbs script is allready working and this script works in an html application too. The problem is that you can't make an .hta your desktop wallpaper and a simple html file with this vbscript causes an error "ActiveX Can't Create Object": Set objWMIService = GetObject("winmgmts:" & "!\\mycomputername\root\cimv2") Has anybody an idea how to adjust security settings to make this work or what else I could try? Kind regards, Sebastian Tag: Mouse Move event Tag: 185279
- Next
  - 1
    - Is there a way to get ip address and upload it ? Is there a way to get ip addess from www.whatismyip.com and then upload it to ftp ? Thanks Tag: Mouse Move event Tag: 185277
  - 2
    - Up time Hi, Is there an object.property I can look at that will give me the up time of a system? Thanks in advance, JeffH Tag: Mouse Move event Tag: 185268
  - 3
    - Inscrutable Type Mismatch Error I've taken Charles Oppermann's excellent phone directory command line VBS and tried to use it as a web application. I have added the necessary input field and output location but the very end of the script throws Microsoft VBScript runtime error '800a000d' Type mismatch errors. My entire site utilizes user authentication so I know that the problem can't be there but I'm missing something else, perhaps in my variable declaration. The specific line causing the error is in the final loop: strDisplayLine = objADORecordset.Fields("cn").Value & vbTab = = = = = = = = = = <%@ LANGUAGE="VBSCRIPT" %> <% Option Explicit %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <title>LDAP Lookup</title> <style type="text/css"> body, input, select, table, textarea { font-size: 9pt; font-family: arial; } .niceButton { font-size : 9pt; font-family : arial; background-color : #eaeaea; color : #333333; font-weight : bold; border-width : thin; } </style> <% dim strPerson, objADsRootDSE, strADsPath, strBase, strObjects, strName, strAttributes, strScope, objADOConnection, objADOCommand, objADORecordset, strDisplayLine, strFilter strPerson = trim(request.form("last")) ' Input box is not empty and Cancel button was not clicked ' Build the query string ' Active Directory OLEDB Provider format has four parts separated by semi-colons: ' Root: which is the starting point for the search ' Filter: conditions to search on, using RFC 2254 format ' Attributes: attributes to return ' Scope: base, onelevel or subtree for entire directory partition ' Specify the search base. ' We'll use the global catalog for performance reasons since the ' Name and Telephone number attributes are available from the GC ' First, need to discover the local global catalog server Set objADsRootDSE = GetObject("GC://RootDSE") ' Form an ADsPath string to the DN of the root of the Active Directory forest strADsPath = "GC://" & objADsRootDSE.Get("rootDomainNamingContext") ' Wrap the ADsPath with angle brackets to form the base string strBase = "<" & strADsPath & ">" ' Release the ADSI object, no longer needed Set objADsRootDSE = Nothing ' Specify the LDAP filter ' First, indicate the category of objects to be searched (all people, not just users) strObjects = "(objectCategory=person)" ' If user enters "*", then filter on all people If (strPerson = "*") Then strName = "(sn=*)" Else strName = "(sn=" & strPerson & "*)" End If ' Add the two filters together strFilter = "(&" & strObjects & strName & ")" ' Set the attributes we want the recordset to contain ' We're interested in the common name and telephone number strAttributes = "cn,telephoneNumber" ' Specify the scope (base, onelevel, subtree) strScope = "subtree" ' Create ADO connection using the ADSI OLE DB provider Set objADOConnection = CreateObject("ADODB.Connection") objADOConnection.Open "Provider=ADsDSOObject;" ' Create ADO commmand object and associate it with the connection Set objADOCommand = CreateObject("ADODB.Command") objADOCommand.ActiveConnection = objADOConnection ' Create the command string using the four parts objADOCommand.CommandText = strBase & ";" & strFilter & ";" & strAttributes & ";" & strScope ' Set the number of records in the recordset logical page 'objADOCommand.Properties("Page Size") = 20 ' Set the maximum result size objADOCommand.Properties("Size Limit") = 20 ' Sort the results based on the cn attribute objADOCommand.Properties("Sort On") = "cn" ' Execute the query for the user in the directory Set objADORecordset = objADOCommand.Execute If objADORecordset.EOF Then strDisplayLine = "No records were found." Else ' Loop through all the returned records While Not objADORecordset.EOF ' Display the row using the selected fields strDisplayLine = objADORecordset.Fields("cn").Value & vbTab ' Check to see if telephone number field is null If IsNull(objADORecordset.Fields("telephoneNumber")) Then strDisplayLine = strDisplayLine & "(number not listed)" Else ' Retrieve telephone number and add to line strDisplayLine = strDisplayLine & objADORecordset.Fields("telephoneNumber") End If ' Advance to the next record objADORecordset.MoveNext Wend End If ' Close the ADO connection objADOConnection.Close %> </head> <body text="#333333"><%=strDisplayLine%></body></html> Tag: Mouse Move event Tag: 185265
  - 4
    - Exclude Files when using robocopy Hi Champs is it possible to run robocopy against a folder but to exclude one or more unwnated filetypes instead of including the wanted file types? Tag: Mouse Move event Tag: 185264
  - 5
    - <Else If> in command line Hi Champs I want to create a backup script which can be used when logged on but also when booted with WinPE = profile not loaded. Is there a way to display all available profiles on that machiene and to choose from to have the choosen profile "added" in the placeholder of the paths I specified in my script? Sample: I run the script and will then have the choice to choose from "Adminstrator" or "User1" or "User2". If I choose the "Administrator" profile, I want that the placeholder in all related paths is taken for the operation: Sample: "%userprofile%\favorites\" becomes "C:\Documents and Settings\Favorites\" Someone in here can follow me? :) Tag: Mouse Move event Tag: 185263
  - 6
    - Move files from one server to another server (same domain) Trying to move edi backup files that start with "@" symbol from one server to another server same domain: See code Option Explicit Dim fso Dim objFolderSource Dim objFolderDestination Dim colFiles Dim objFile Dim strSourceDir Dim strDestinationDir Dim ArchiveDate Dim starttime strSourceDir = "\\server1\c$\q32w" strDestinationDir = "\\server2\d$\QualediBackup" starttime = now() ArchiveDate = dateadd("m",-2,Now()) 'Copy files from source to destination Set fso = CreateObject("Scripting.FileSystemObject") Set objFolderSource = fso.GetFolder(strSourceDir) Set colFiles = objFolderSource.Files For each objFile in colFiles 'msgbox objFile.Name & " - " & objFile.DateLastModified If Left(objFile.name, 1) = "@" Then objFile.Copy (strDestinationDir) End If Next 'clean up set fso = nothing set objFolderSource = nothing set objFolderDestination = nothing When script runs I get a Permission denied error. Any ideas? Is my code wrong? Tag: Mouse Move event Tag: 185254
  - 7
    - How do I know, when sending is ready??? How do I know, when sending is ready??? I need to know, so I can disconnect the dial-up connection. Thanks in advence Andries SCRIPT: ' Force explicit declaration of all variables. Option Explicit '***** DECLARATIONS***************************** 'Variables Dim ReportFile, fName, objShell, oArgs Dim strTo, strSubject, strBody Dim objMail, iConf, Flds, i 'Constants 'Who the e-mail is from (this needs to have an e-mail address in it for the e-mail to be sent) Const strFrom = "from@emeel.org" 'Who the carbon copies are sent to Const strCopy = "copy@emeel.org" 'Who the blind copies are sent to Const strBCopy = "" Const ReportPath = "C:\" 'Creates the main objects of the script Set objShell = WScript.CreateObject("WScript.Shell") Set objMail = Wscript.CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields '*****[ MAIN SCRIPT ]***************************** Set oArgs = WScript.Arguments For i = 0 to oArgs.Count - 1 ReportFile = oArgs(i) Next fName = ReportPath & ReportFile 'Who the e-mail is sent to strTo = "to@emeel.net" 'Set the subject of the e-mail strSubject = "Automatic on: " 'Set the main body of the e-mail strBody = "AUTO" With Flds .Item("http://schemas.microsoft.com/cdo/configuration/sendusing").Value = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver").Value = "smtp.server" .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport").Value= 25 .UpdateEnd WithSet objMail.Configuration = iConfobjMail.To = strToobjMail.CC = strCopyobjMail.BCC = strBCopyobjMail.From = strFromobjMail.Subject = strSubject & NowobjMail.TextBody = strBodyIf ReportFile <> "" Then objMail.AddAttachment(fName)End IfobjMail.Send'clean upSet Flds=nothingSet iConf=nothingSet objMail = NothingWScript.Quit Tag: Mouse Move event Tag: 185251
  - 8
    - Objects Hi, Is there a way that I can obtain a list of objects that are available to me from my workstation? Thanks in Advance, JeffH Tag: Mouse Move event Tag: 185250
  - 9
    - Event Log Backup and Clearing I had a requirement to create a script that backups Event Logs in text and monitor for specific events, emailing the results to a person. This is what I've come up with so far... the only thing I haven't done yet is Query the eventlog before I clear it, and send the results to the email body somehow. Any help would be appreciated. I realize this code isn't clean, but it's my first... so don't flame me too bad =] -Chris ' on error resume next dtmThisDay = Day(Date) dtmThisMonth = Month(Date) dtmThisYear = Year(Date) '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''' Declare what computers to execute this script upon'''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Set objNet = WScript.CreateObject( "WScript.Network" ) strFilename = "workstations.txt" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextStream = objFSO.OpenTextFile(strFilename, 1) ' Start Loop Do Until objTextStream.AtEndOfStream strComputer = objTextStream.ReadLine Wscript.Echo "Working on Machine " & strComputer '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''' Create audit directories '''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Set objFSO = CreateObject("Scripting.FileSystemObject") If not objFSO.FolderExists("Z:\scripts\audits\" & strComputer) Then Set objFolder = objFSO.CreateFolder("Z:\scripts\audits\" & strComputer) End If If not objFSO.FolderExists("Z:\scripts\audits\" & strComputer & "\" & dtmThisMonth & "-" & dtmThisDay & "-" & dtmThisYear) Then Set objFolder = objFSO.CreateFolder("Z:\scripts\audits\" & strComputer & "\" & dtmThisMonth & "-" & dtmThisDay & "-" & dtmThisYear) End If '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' '''''''''Create audit files''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Set objFSO = CreateObject("Scripting.FileSystemObject") ' Set objFile = objFSO.CreateTextFile("Z:\scripts\audits\" & strComputer & "\" & dtmThisMonth & "-" & dtmThisDay & "-" & dtmThisYear & "\Application.txt") ' Set objFile = objFSO.CreateTextFile("Z:\scripts\audits\" & strComputer & "\" & dtmThisMonth & "-" & dtmThisDay & "-" & dtmThisYear & "\Security.txt") ' Set objFile = objFSO.CreateTextFile("Z:\scripts\audits\" & strComputer & "\" & dtmThisMonth & "-" & dtmThisDay & "-" & dtmThisYear & "\System.txt") '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' '''''''''Open Application Log''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile _ ("Z:\scripts\audits\" & strComputer & "\" & dtmThisMonth & "-" & dtmThisDay & "-" & dtmThisYear & "\ApplicationLog.txt", 8, True) Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & strComputer & "\root\cimv2") Set colLoggedEvents = objWMIService.ExecQuery _ ("Select * from Win32_NTLogEvent " _ & "Where Logfile = 'Application'") For Each objEvent in colLoggedEvents objTextFile.WriteLine ("==============================" & VBNewLine _ & "Category: " & objEvent.Category & VBNewLine _ & "Computer Name: " & objEvent.ComputerName & VBNewLine _ & "Event Code: " & objEvent.EventCode & VBNewLine _ & "Message: " & objEvent.Message & VBNewLine _ & "Record Number: " & objEvent.RecordNumber & VBNewLine _ & "Source Name: " & objEvent.SourceName & VBNewLine _ & "Time Written: " & objEvent.TimeWritten & VBNewLine _ & "Event Type: " & objEvent.Type & VBNewLine _ & "User: " & objEvent.User) Next objTextFile.Close Set colLogFiles = objWMIService.ExecQuery _ ("Select * from Win32_NTEventLogFile where LogFileName='Application'") For Each objLogfile in colLogFiles objLogFile.ClearEventLog() Next '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' '''''''''Security''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile _ ("Z:\scripts\audits\" & strComputer & "\" & dtmThisMonth & "-" & dtmThisDay & "-" & dtmThisYear & "\SecurityLog.txt", 8, True) Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate,(Backup, Security)}!\\" _ & strComputer & "\root\cimv2") Set colLoggedEvents = objWMIService.ExecQuery _ ("Select * from Win32_NTLogEvent " _ & "Where Logfile = 'Security'") For Each objEvent in colLoggedEvents objTextFile.WriteLine("==============================" & VBNewLine _ & "Category: " & objEvent.Category & VBNewLine _ & "Computer Name: " & objEvent.ComputerName & VBNewLine _ & "Event Code: " & objEvent.EventCode & VBNewLine _ & "Message: " & objEvent.Message & VBNewLine _ & "Record Number: " & objEvent.RecordNumber & VBNewLine _ & "Source Name: " & objEvent.SourceName & VBNewLine _ & "Time Written: " & objEvent.TimeWritten & VBNewLine _ & "Event Type: " & objEvent.Type & VBNewLine _ & "User: " & objEvent.User) Next objTextFile.Close Set colLogFiles = objWMIService.ExecQuery _ ("Select * from Win32_NTEventLogFile where LogFileName='Security'") For Each objLogfile in colLogFiles objLogFile.ClearEventLog() Next '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' '''''''''System''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile _ ("Z:\scripts\audits\" & strComputer & "\" & dtmThisMonth & "-" & dtmThisDay & "-" & dtmThisYear & "\SystemLog.txt", 8, True) Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & strComputer & "\root\cimv2") Set colLoggedEvents = objWMIService.ExecQuery _ ("Select * from Win32_NTLogEvent " _ & "Where Logfile = 'System'") For Each objEvent in colLoggedEvents objTextFile.WriteLine("==============================" & VBNewLine _ & "Category: " & objEvent.Category & VBNewLine _ & "Computer Name: " & objEvent.ComputerName & VBNewLine _ & "Event Code: " & objEvent.EventCode & VBNewLine _ & "Message: " & objEvent.Message & VBNewLine _ & "Record Number: " & objEvent.RecordNumber & VBNewLine _ & "Source Name: " & objEvent.SourceName & VBNewLine _ & "Time Written: " & objEvent.TimeWritten & VBNewLine _ & "Event Type: " & objEvent.Type & VBNewLine _ & "User: " & objEvent.User) Next objTextFile.Close Set colLogFiles = objWMIService.ExecQuery _ ("Select * from Win32_NTEventLogFile where LogFileName='System'") For Each objLogfile in colLogFiles objLogFile.ClearEventLog() Next Loop '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' '''''''''Email'''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Set objEmail = CreateObject("CDO.Message") objEmail.From = "edit@edit.com" objEmail.To = "edit@edit.com" objEmail.Subject = "Audit Report for " & dtmThisMonth & "-" & dtmThisDay & "-" & dtmThisYear objEmail.Textbody = "Audits have been completed." & VBNewLine & VBNewLine _ & "Here are the Log-in failures" & VBNewLine & VBNewLine objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _ "edit.server.com" objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objEmail.Configuration.Fields.Update objEmail.Send Tag: Mouse Move event Tag: 185248
  - 10
    - Script for sending Email from outlook with a attachment I want to send email from Outlook with a Excel attachment. Please kindly share the script for the same. Thanks Karen Tag: Mouse Move event Tag: 185247
  - 11
    - delete users Hi everybody In Windows 2003 & AD How delete all users from member of "Domain Users" Thanks for help Artur Tag: Mouse Move event Tag: 185245
  - 12
    - How to Use Mailto Script to send HTLM mail ? Hi How to Use Mailto Script to send HTLM mail ? Like : window.location.href = " mailto:test@test.com?subject=TestSubject&body=" & htmlBody Thanks in advence Hung Tag: Mouse Move event Tag: 185244
  - 13
    - Change PC's from one domain to other domain. Hi. I have a server with Windows 2000 Active Directory Domain and 200 computers joined to that domain. I need to change those computers to a server with a new Windows 2003 Active Directory Domain. For Example, change all computers from test1.domain.com to test2.domain.com. Is there any Script or GPO or anything to do this without going to each computer and change the domain? any ideas? -- Thanks Troper Tag: Mouse Move event Tag: 185242
  - 14
    - filter doesn't do what I expect I have something very simple: Set objOU = GetObject("LDAP://ou=someOU,dc=myDomain,dc=com") objOU.Filter = Array("user") For Each objUser In objOU Wscript.Echo objUser.distinguishedName Next There happens to be a few computers in various OUs and the filter method spits out the computer names as well as the users. Is there another way to only get the users in that specific OU? TIA. Tag: Mouse Move event Tag: 185241
  - 15
    - Set outlook as default e-mail client Hi All, I need to set Microsoft Outlook 2002/2003 as the default e-mail client using a script. I have to perform this on bulk of users so I would appreciate other methods. Using Internet Properties --> Programs --> e-mail is not sufficient for me. Thanks, Yaman Tag: Mouse Move event Tag: 185240
  - 16
    - Checking if a file is opened Hi, I am looking for a solution to find out if a file is opened in a windows (NT oder W2k or XP) application. For office documents it seems to be clear: trying to open the document exclusively - if that is succesful, the document is not opened. But what can I do if I want to know if, for example, a text file is opened in notepad? If you want you can rename or delete the file while it is opened in notepad. I think it's the same for documents in wordpad or images in paint. In this case the file always can be opened exclusively. Maybe it is possible to run a VBScript that checks the running aplications and their window titles? But thinking about that I see two problems: 1. consider 2 text files c:\dir1\test.txt and c:\dir2\test.text (same file names but different directories. If both of these files are opened in notepad I would have two windows using the same title "test.txt - Notepad". Is there a chance to find out which file is opened in which notepad? 2. Consider applications that open all documents in one window. In this case you will have only one application window using different window titles depending on the document that is in front. I hope, someone has an idea how to find a solution. Thanks very much in advance! Frank Tag: Mouse Move event Tag: 185234
  - 17
    - Change Registry Key on a different computer Hi. I need to set a registry value on a computer different from the one where the script will be run. I've never really had to do anything with the registry before. I think I found some examples on this group, but I'd like to get some clarification, if someone wouldn't mind taking the time. I found this example: set shell = createobject("wscript.shell") basekey = "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\" key = basekey & "Control\ComputerName\ComputerName\ComputerName" shell.regwrite key,strUserIn In the example it seems that strUserIn would be the value of the registry, yes? So if I want the value of this registry key to be "XXX", then I could do this, right? HKEY_LOCAL_MACHINE\SOFTWARE\ASCI\ActiveBatch\Current_Version\JobSched\SMTPFrom set shell = createobject("wscript.shell") sValue = "XXX" key = "HKEY_LOCAL_MACHINE\SOFTWARE\" & _ "ASCI\ActiveBatch\Current_Version\JobSched\SMTPFrom" shell.regwrite key,sValue I suppose what I don't get is how to make it run on a different computer. Could someone explain that part? Thanks, Jennifer Tag: Mouse Move event Tag: 185233
  - 18
    - vbscript fails to execute Hey folks, Have a script with a few lines of code which are supposed to call and execute another vb script, it doesn't. I can't see anything wrong with it. Any thoughts? Thanks Function Main() Dim strTime strTime = "false" While strTime = "false" Dim Shell Set Shell = CreateObject("WScript.Shell") Shell.Run "%comspec% /c cscript.exe d:\Courion\ADDiscovery.vbs", 0, True strTime = "true" Wend Main = DTSTaskExecResult_Success End Function Tag: Mouse Move event Tag: 185231
  - 19
    - Enumerate group membership I am trying to enumerate the group membership for a user at logon. I need to know about every group, so I must use a recursive function to check the group membership of each group (I use a different procedure to get the primary group as the memberOf attribute does not contain this info). I have the following which I modeled on the work of Richard Mueller - www.rlmueller.net. His program works great, but I wanted something that did not rely on a dictionary object outside of the procedure to store values. I am storing and passing values within the function. My function works, but I get repeated group names if the group type is domain local. I can't seem to add logic that corrects this problem. Any suggestions? Call to the function from main program is something like this: strValue=EnumGroups(ADObject, "",TRUE) Function EnumGroups(fobjADObject,fstrStoreValue,fCallFirst) Dim arrGroups Dim objGroup Dim intCount Dim strMyTempValue Dim strSAMname strMyTempValue = "" strSAMname = UCase(fobjADObject.sAMAccountName) If fCallFirst = False Then If Not InStr(fstrStoreValue,"CN=" & strSAMName) Then If Not fstrStoreValue = "" Then strMyTempValue = fstrStoreValue & "CN=" & strSAMname & Chr(10) Else strMyTempValue = "CN=" & strSAMname & Chr(10) End If End If End If arrGroups = fobjADObject.memberOf '** The AD object contains no groups. In this case, the function is set '** to the value of the passed value holder if it is NOT empty and if '** the string isn't already there. If IsEmpty(arrGroups) Then If Not InStr(fstrStoreValue,"CN=" & strSAMname) Then EnumGroups = strMyTempValue End If Exit Function End If '** If the item returned from the memberOf method is a string, then '** recurse for the group to check for its memberships and add results '** to the value of the function. If TypeName(arrGroups) = "String" Then Set objGroup = GetObject("LDAP://" & arrGroups) strMyTempValue = EnumGroups(objGroup,strMyTempValue,False) EnumGroups = strMyTempValue Set objGroup = Nothing Exit Function End If '** The arrGroups is NOT empty and is not a string, so it must be an '** array of groups. Recurse for each group in the array and add results '** to the value of the function. For intCount = 0 To UBound(arrGroups) Set objGroup = GetObject("LDAP://" & arrGroups(intCount)) strMyTempValue = EnumGroups(objGroup,strMyTempValue,False) Set objGroup = Nothing Next EnumGroups = strMyTempValue End Function '** EnumGroups Tag: Mouse Move event Tag: 185230
  - 20
    - Permission Denied error I am trying to replace the Office 2000 shorcuts with Office XP shortcuts. The shorcuts are located on all of the users desktops, in a folder called "Applications". The script I have written gives me a Permission Denied error, even when I try to run the script locally on my PC and I am an administrator. The script works fine if I just replace the icons on the desktop, but not when I try to replace the icons in the Applications folder. Here is what I have for a script(the variables are in a dim statement at the beginning of the script): 'Replace Office 2000 shorcuts with Office XP shortcuts Set oShell = CreateObject("WScript.Shell") Set oFSO = CreateObject("scripting.FileSystemObject") aDesktopPath = oShell.SpecialFolders("Desktop") & "\Applications" oFSO.CopyFile "\\pusher\apps\OfficeXPShortcuts\Microsoft Access.lnk", aDesktopPath, True Thank you for any advice you can give! Tag: Mouse Move event Tag: 185228
  - 21
    - Permission Denied error I have a script that I am trying to get to work. It is suppose to replace some existing shorcuts with new ones. The shortcuts are located in a folder called "Applications" on all of the users desktops. The script works if the shorcuts are on the desktop, but not when they are in the Applications folder. The script doesn't even work on my PC and I am an administrator. Any help is greatly appreciated. Here is what I have, the variables are in a dim statement at the beginning of the script: 'Replace Office 2000 shorcuts with Office XP shortcuts Set oShell = CreateObject("WScript.Shell") Set oFSO = CreateObject("scripting.FileSystemObject") aDesktopPath = oShell.SpecialFolders("Desktop") & "\Applications" oFSO.CopyFile "\\pusher\apps\OfficeXPShortcuts\Microsoft Access.lnk", aDesktopPath, True Tag: Mouse Move event Tag: 185226
  - 22
    - getting information from a NT machine Is it possible for me to retrieve printer information on NT machine which doesnt have any add onsviz internet expl5.0,wsh etc etc... I am trying to gather information from a 2003 machine by giving the name of that NT machine. please revert back to me. cheers, Nuti Tag: Mouse Move event Tag: 185224
  - 23
    - SUB-STRINGing in VBScript I wrote a script that reads an input file ('input.txt') that creates an output file ('output.txt') that massages the data and output it to be use as a metadata file. One of the things I'm trying to do (but having problems) is to read a record in the input file and grab the first letter of the word in the row to create an index tag only using the 'first' character. HERE IS A EXAMPLE of my input file and what I would like to create in my output file. I'm trying to substring the first character without any luck. ******[ 'input.txt' ]****** Mary Mike Joe Tom Larry Dick James Paula Jason ******[ 'output.txt' ]****** category="Index",M category="Index",M category="Index",J category="Index",T category="Index",L category="Index",D category="Index",J category="Index",P category="Index",J For example: when my program reads the first row 'Mary', it will output 'category="Index",M', and so on, till end of file. Everything else works good, but having problems is sub-stringing. Thanks! Bre Tag: Mouse Move event Tag: 185220
  - 24
    - syntax error I am getting the following error when trying to insert form data into an Access db: 80040e14|[Microsoft][ODBC_Microsoft_Access_Driver]_Syntax_error_in_string_in_query_expression_''++++_)'. 500 I've traced it down to the following code: 'insert records into db Set con = Server.CreateObject( "ADODB.Connection" ) con.Open "webLeads" SQLstring = "INSERT INTO studentLeads ( la_fName, la_mName, la_lName, la_street, " &_ " la_city, la_state, la_zip, la_country, la_email, la_phone, la_callTime, la_dob, la_age, " &_ " la_education, la_intArea, la_message) VALUES ('" & fixQuotes( form_fName ) & "','" & fixQuotes( form_mName ) & "', " &_ " '" & fixQuotes( form_lName ) & "','" & fixQuotes( form_street ) & "','" & fixQuotes( form_city ) & "', " &_ " '" & fixQuotes( form_stateID ) & "','" & fixQuotes( form_zip ) & "','" & fixQuotes( form_country ) & "', " &_ " '" & fixQuotes( form_email ) & "','" & fixQuotes( form_phone ) & "','" & fixQuotes( form_callTime ) & "', " &_ " '" & fixQuotes( form_dob ) & "','" & fixQuotes( form_age ) & "','" & fixQuotes( form_education ) & "', " &_ " '" & fixQuotes( form_intArea ) & "','" & fixQuotes( form_message ) & " )" con.Execute(SQLstring) con.Close I've also tried it w/ DSN-less connection, w/ same result. Variables are assigned and validated as follows: 'get form data and remove any spaces form_fName=trim(Request.Form("fName")) form_mName=trim(Request.Form("mName")) form_lName=trim(Request.Form("lName")) form_street=trim(Request.Form("street")) form_city=trim(Request.Form("city")) form_stateID=trim(Request.Form("stateID")) form_zip=trim(Request.Form("zip")) form_country=trim(Request.Form("country")) form_email=trim(Request.Form("email")) form_phone=trim(Request.Form("phone")) form_callTime=trim(Request.Form("callTime")) form_dob=trim(Request.Form("dob")) form_age=trim(Request.Form("age")) form_education=trim(Request.Form("education")) form_intArea=trim(Request.Form("intArea")) form_message=trim(Request.Form("message")) 'validate form data IF len(form_fname)< 1 THEN validated_form = false ELSE validated_form = true END IF IF len(form_mname) < 1 THEN validated_form = false ELSE validated_form = true END IF IF len(form_lname) < 2 THEN validated_form = false ELSE validated_form = true END IF IF len(form_street) < 5 THEN validated_form = false ELSE validated_form = true END IF IF len(form_city) < 2 THEN validated_form = false ELSE validated_form = true END IF IF len(form_zip) < 5 THEN validated_form = false ELSE validated_form = true END IF IF (form_country) = "" THEN form_country = "U.S." END IF IF len(form_email) < 6 THEN validated_form = false ELSE validated_form = true END IF IF len(form_phone) < 7 THEN validated_form = false ELSE validated_form = true END IF IF (form_dob) = "" THEN form_dob = "not given" END IF IF (form_age) = "" THEN form_age = "not given" END IF IF (form_intArea)= "" THEN validated_form = false ELSE validated_form = true END IF IF (form_message) = "" THEN form_message = "no message indicated" END IF All form entries are defined as <input type="text"> and also as text fields in the db. There is also a "fixquotes" function that takes care of the ' problem (have used this function over and over in many scripts. I'm sure there's something simple I'm missing here, but maybe I've been looking at it too long. The validation works for return values, and correctly sends email to the user and to someone in the organization. Can anyone see anything in my code that is causing the error and keeping the data out of the db? TIA... ba Tag: Mouse Move event Tag: 185207
  - 25
    - Help on reading a file and producing another in vbs I would like to write a vbscript that reads the below file: FILENAME: raw_data.txt (for example) one two three four five six ..... and produce the following under FILENAME: data.txt [01] title=one chain= "Link", "one" [02] title=two chain= "Link", "two" [03] title=three chain= "Link", "three" [04] title=four chain= "Link", "four" [05] title=five chain= "Link", "five" [06] title=six chain= "Link", "six" The numbering in the brackets has to be incremented. The actual raw data will be about 4000 rows, the above is an example. Thanks for any help! Tag: Mouse Move event Tag: 185206

How would you make a script that makes the mouse actually move to a
specific location?

RE: Mouse Move event by BillBarber

BillBarber
Mon Jan 02 19:34:02 CST 2006

Nitro;
Do not know how you want to do it, but you have On_Mouse_UP, You Also
have SetFocus. You also have OPTION SELECTED VALUE if you are going to a
Drop Box or Coming from a Drop Box. You also have onmouseover or onmouseup
if you do not know java.

There are plenty examples on either Yahoo or Google.

Good Luck & Happy New Year

Bill Barber

"NÃ?trO" wrote:

> How would you make a script that makes the mouse actually move to a
> specific location?
>
>

Top