Logging FIle Deletions

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
    - Setting FileSystem & Service Permissions on logon I have prepared .NET 2.0 Desktop App for my college library. My college System Admin set-up the library network with Windows 2003 server & XP clients, and has handed over its responsibilities to me. I have some experience with Active Directory & Group Policies, but I'm not an Admin. I have set-up OUs & appropriate Group Policies for various clients. I am looking for help in 2 specific areas: 1) First, each client has a varying number of hard-disk partitions. Active Directory Group Policy allows me to restrict access to either A,B,C,D or all drives. Some of these clients have up-to 6-7 partitions & I need to restrict access to some of them depending upon the Login. I did not see a direct way to do it. The only solution I see are Login scripts. Is there any other way to deny access to a partition depending upon who is logging in (for drive letters such as E & F). If I need to use scripts, can someone provide me a sample script to deny access to say F: for users in OPAC organizational unit. 2) The second thing is Service. Some clients have Sql Express installed for local use. Again, I need to start-up Sql Service only if OPAC user is logging in. Is there any way other than scripts, and if no, again I would request a sample script??? Tag: Logging FIle Deletions Tag: 216145
  - 2
    - Easy way to iterate through text list? I have a comma delimited "list" in a string variable that I iterate over in a For loop. Currently, I first split the list into an array and then iterate over the array. searchfor = "album,artist,genre" searchtags = Split(searchfor, ",", -1, vbTextCompare) For Each tag In searchtags ... Next Is there a simpler way to do this, without having to split the list first? Tag: Logging FIle Deletions Tag: 216135
  - 3
    - Can 'MInifying' vbscript provide performance gain? Can removing all comments, blank lines, tabs etc from vbscript code provide any performance boost? We are looking to tweak any performance we can get out of our app, I know it's a bit extreme of a move but is it viable? I have created a script to do this and it removes about 12mb from the file system footprint. Do you think that when the scripts are interpretted this could save some time? Tag: Logging FIle Deletions Tag: 216130
  - 4
    - Search data with vbscript I 'm trying to write vbscript that will do search for specific key word or phrase (will be defined in script) inside PHP files in current folder, include subfolders. Once key word is found, it just opens this file and highlight this word. Any help is appreciated. thanks. Tag: Logging FIle Deletions Tag: 216129
  - 5
    - Switches Folks: I have an EXE file from a Visual Basic application & I would like to identify the available switches. Generally, with Microsoft windows EXE files, we can gain access to the SWITCHES associated with these file. By typing "Filename.EXE /?" or "Filename.EXE /Help" I can get a list of all the available switches. This approach does NOT work with my VisualBasicFile.EXE file. * Is there another way to identify the switches associates with my EXE file ? * Can Microsoft deliberately hide these switches so that "/Help " or "/?" do NOT show any results ? * Appreciate any references to study this issue a bit more Thanks JoJo Tag: Logging FIle Deletions Tag: 216124
  - 6
    - Create ActiveX object in VBS without console login Iâ??m running a VB script that has been spun off of a Windows Service which is configured as running as Local System, interact with DeskTop. The VB script is driving an IE application â?? and the IE application creates a new IE browser. My script is trying to find the browser with Shell.Application, using the Windows method to cycle through the windows, finding the one I want. My problem is that I get the error ActiveX Canâ??t Create Object when I try to use the Windows method. However it works if Iâ??m logged into the system console. Is there a permission/setting I can set to have it work without having the system console logged in? Tag: Logging FIle Deletions Tag: 216107
  - 7
    - VBScript to send email if file is in folder I'm trying to figure out how to write a VBScript that will read a folder, and send an email if there is a file with an extension of BAD. I have a block of code that works to send the email using Outlook from other scripts I have in place. I have no idea where to start with the rest of the script. The files will have numerous names, but they will only have an extension of BAD or ERR. If they are there, I want to move them after the email is sent so I don;t continue to get false alerts. Any help pointing me in the right direction would be great! Tag: Logging FIle Deletions Tag: 216099
  - 8
    - response.write issue This should be incredibly easy. But, I am having issues with the following. Why am I not getting the value to write out? Thanks. <%@ LANGUAGE="VBSCRIPT" %> <% Response.Buffer = True %> <html> <head> <title>testing</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body> <FORM name="testing" target="_top" action="testing.asp"> <select name="testing"> <option value="first" selected>first</option> <option value="second">second</option> </select> <input type="submit" name="Submit" value="Submit"> </FORM> <% strtesting = request.form("testing") response.write (strtesting) %> </body> </html> Tag: Logging FIle Deletions Tag: 216096
  - 9
    - multiple choice boxes Hi, I am programming scripts to easily process a lot of measurement data from work. In order to be able to group certain data into summary output files, I would like to give the user the chance to select grouping criteria via multiple choice boxes, such as: Group by: [ ] Date [ ] Measurement Target [ ] Process ..... Is there any way to bring up such a multiple choice box in VB Script and react to the responses via select? Alternatively, is there any way to bring up a MsgBox where I can actually customize the reply buttons? So far, I only saw options like "Yes", "No" and "Cancel". Are you aware of any publicly posted subfunction that does either one of these? Thanks, Martin Tag: Logging FIle Deletions Tag: 216089
  - 10
    - help with loops Hello everyone, I am after some help from more experienced programmers. I have used other scripts as examples from here and ones i have found on google. The script I have provided below is quite basic, but at this stage I am having some issues with my looping code. When I ask the user for a Blue or Red team name with an Input box they are presented with an OK and a cancel box. A cancel exits the script, however how do I loop a cancel to then loop all the way to the top of the script so they now seeing the Msgbox asking again if they are part of blue or red team with a Yes or No response ? I have looked at loops but if there is something else I can use please let me know. I hope someone can provide me some assistance. Thanking you in advance. *************************************************************************** Dim team, BTeam, RTeam, pick, choice pick = Msgbox("Are you part of Blue Team, Otherwise your on Red Team",vbYesNoCancel) If pick = vbYes Then team = "Blue" ElseIf pick = vbNo Then team = "Red" Else pick = vbCancel Wscript.Quit End If select case Team case "Blue" Do Until choice = vbYes BTeam = InputBox ("What is your Blue Team name ?") msgbox "Blue Team Name is " & BTeam Wscript.Quit Loop case "Red" Do Until choice = vbYes RTeam = InputBox ("What is your Red Team name ?") msgbox "Red Team Name is " & RTeam Wscript.Quit Loop end select Tag: Logging FIle Deletions Tag: 216086
  - 11
    - How to test VB Script How to test a VB Script. As it is placed in my .msi and if it doesnt work properly it is not possible for me to remove the application from my system. So before putting that VB Script i jst wants to test the working of script file. Tag: Logging FIle Deletions Tag: 216085
  - 12
    - Error 80041017 Looping through Array on Win 2000 I have the following script running (snippet from full script) on a Windows XP box with no errors. When I move the script to a Windows 2000 box (production) I receive an error 80041017 on line with For, character 1. All I've found online is that some of the winmgmt objects are named differently in Win2K but I cant seem to find mine as a problem. Does anyone see my problem? sSomefolder = filepath 'sPathSpec = Replace(Mid(Dir, 3) & "\", "\", "\\") sComputer = "." ' local machine 'Queries the sSomefolder to find any files like the name in ivrpins. 'This is necessary since the last characters before the extension are different Set qWMISrv = GetObject("winmgmts:\\" & sComputer & "\root\cimv2") Set aFiles = qWMISrv.ExecQuery("Select * from CIM_Datafile Where "_ & "Drive = 'C:' AND Path = '" & Dir1 & "' AND FileName Like '" _ & stamp_file & sqldate & "%'", , 48) For Each File In aFiles msgbox file.FileName Tag: Logging FIle Deletions Tag: 216079
  - 13
    - What's wrong with my line counter script? Hello, Below is the contents of my linecounter.vbs file, which I hoped was going to be useful in telling me how many lines a text file includes, but seems to max out at 65,000 (give or take) even though I know my files are over 800,000 lines of text. Any suggestions? I'm obviously oversimplifying or else this wouldn't be a problem. Thanks, Eric ----linecounter.vbs-------------------------------------------- Dim objArgs Set objArgs = WScript.Arguments TgtFile = objArgs(0) Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile(TgtFile) ra = f.ReadAll msg = objArgs(0) & vbcrlf msg = msg & " line count: " & f.Line WScript.Echo msg --(end)------------------------------------------------------------ Tag: Logging FIle Deletions Tag: 216073
  - 14
    - Access Denied I'm trying to dynamically remove and add users to a group on a domain using a login script but I get an access denied error on objGroup.Remove objUser.AdsPath Does anyone know why and how to resolve it? wscript.echo "Test Script." ' Remove AD LDS User from AD LDS Group. Dim objADAM ' Binding object. Dim objGroup ' Group object. Dim objUser ' User object. Dim strGroup ' Group. Dim strPath ' Binding path. Dim strOU ' Organizational unit. Dim strUser ' User. ' Construct the binding string. strPath = "ldap path" WScript.Echo "Bind to: " & strPath ' Specify User. strUser = "CN..." ' Specify Group. strGroup = "CN..." WScript.Echo "Remove: " & strUser WScript.Echo " from" WScript.Echo " " & strGroup ' Bind to root. Set objADAM = GetObject(strPath) ' Output error if bind fails. If Err.Number <> vbEmpty Then WScript.Echo "Error: Bind failed." WScript.Quit End If ' Remove User from Group. Set objGroup = objADAM.GetObject("group", strGroup) Set objUser = objADAM.GetObject("user", strUser) objGroup.Remove objUser.AdsPath ' Output success or error. If Err.Number <> vbEmpty Then WScript.Echo "Error: Remove failed." WScript.Echo Err.Description Else WScript.Echo "Success: User removed from group." End If Tag: Logging FIle Deletions Tag: 216071
  - 15
    - Xcacls.vbs output format problem Hello all. I'm using Xcacls.vbs to enumerate the directory permissions on a remote server. http://www.jsifaq.com/SF/Tips/Tip.aspx?id=8225 If you look at the example output in the above website, you'll see the various columns; Type, Username, Permissions and Inheritance. The problem I'm seeing is that if an entry in the Username column has too many characters, it is being cut off. For example: "ServerName12345\IUSR_ServerName12345" is being displayed as "ServerName12345\IUSR_Se" I found a couple posts that appeared to deal with this issue, but the listed solution didn't work for me: http://www.itnewsgroups.net/group/microsoft.public.windows.server.general/topic5960.aspx http://www.webservertalk.com/message1843654.html Any suggestions on how to solve this would be greatly appreciated. Thanks! - Dave Tag: Logging FIle Deletions Tag: 216066
  - 16
    - passing value from Textfield I have a textfield I'll call txtTest. I cannot seem to enter a value in the textfield and pass the value of the textfield using: varRequestParm = Request.Form("txtTest") Set rsTemp = server.createobject("adodb.recordset") CPC_Connection.WebQry_List varRequestParm, rsTemp If the textfield is instead a dropdown list everything works fine. What could be going on? Tag: Logging FIle Deletions Tag: 216063
  - 17
    - Annual leave help :) Hey, I am doing an exel sheet concerning the annual leave and i am trying to figure out a formula that gives the total vacation days excluding Saturday and sunday I have tried this formula but its not working so what can i do ? IF (TotalDays Mod 7) * 7 = 6 Then WeekEndDays = WeekEndDays + 1 Please advise Start date =B End Date=C Total = D Please advise Tag: Logging FIle Deletions Tag: 216053
  - 18
    - HTML, JScript, VBScript to EXE online converter Hello all, Please check this online free converter and tell me your feedback. http://www.vbs2exe.com/ Thanks in advance, Sa6ry Tag: Logging FIle Deletions Tag: 216050
  - 19
    - if email The user logon on script includes an email signature vbs script however I would only like that to run if they have an exchange mailbox, can you help? -- Steve Tag: Logging FIle Deletions Tag: 216046
  - 20
    - Email I have a vbs script that runs at user logon however I'd like it only to run if the user has an exchange mailbox, can you help? -- Steve Tag: Logging FIle Deletions Tag: 216045
  - 21
    - Adding a printer port Question about a vbscript that would create an IP printer port and then install a printer. The script would run against XP computers with DeepFreeze installed. The plan would be to run the script during each logon. 1. Will the process of creating each IP port take longer then 10 seconds or so on each logon? 2. Is local administrator access required. Can I use Run As Administrator account during the script? Tag: Logging FIle Deletions Tag: 216043
  - 22
    - vbscript to traverse subfolders Hey All.... Can anyone help me with the easiest way would be to make the script below to traverse subfolders and perform the file copy from the txt file list? I want to remove the hard coded "source", and put the root folder H:\ and traverse it looking for the files. Thanks in advance!!!! set fso = createobject("scripting.filesystemobject") Set objShell = CreateObject("wscript.Shell") Set objFSO = CreateObject("Scripting.FileSystemObject") Set objErrLog = objFSO.OpenTextFile("H: \August07_Missing_Restore_Log.log", 8, True) On Error Resume Next sFile = "H:\August07.txt" dest = "H:\Restore\August07\" Set txtStream = fso.OpenTextFile(sfile) ' Open text file. Do While Not (txtStream.atEndOfStream) ' Read each line of the file Filename = txtStream.ReadLine source = "\\server\archive\" & Filename 'wscript.echo source If objFSO.FileExists(source) Then intRunError = ObjShell.Run("%COMSPEC% /c Echo Y| fileacl " _ & source & " /o administrators", 2, True) If intRunError <> 0 Then Wscript.Echo "Error assigning permissions for user " _ & strUser & " to file " & source End If Else objErrLog.WriteLine source & " - Error: File Does Not Exist! - " & Now End If fso.copyfile source, dest, true Loop wscript.echo "DONE!!!!" Tag: Logging FIle Deletions Tag: 216036
  - 23
    - ways to map a network drive hey all, can someone please show me how to map a network drive in vbscript? thanks, rodchar Tag: Logging FIle Deletions Tag: 216031
  - 24
    - FSO Hi everyone, I'm having troubles with the FileSystemObject. I have two servers and I use the FSO to make a backup from one to another. The connection between this servers are too fast (1gbps) but, when I use the FSO with the CopyFile method, this files are copied at no more than 10mbps. It's very slow. I think that is a kind of problem that have the FSO and I ask you about if there is another method to do it. I copy here a part of my vbs code Thanks in advance, Gregorio Aranda. fichero_origen = subfolder.path & "\" & objFile.name fichero_destino = replace(subfolder.path,carpeta_inicio,carpeta_destino) & "\" & objFile.Name Set fecha = objFSO.GetFile(fichero_origen) fecha_fichero = fecha.DateCreated if datediff("d",fecha_fichero,now())<14 then if not objFSO.fileexists(fichero_destino) then objFSO.CopyFile fichero_origen,fichero_destino,true sw=0 end if else objFSO.DeleteFile (fichero_origen) if objFSO.fileexists(fichero_destino) then objFSO.DeleteFile (fichero_destino) end if end if Tag: Logging FIle Deletions Tag: 216023
  - 25
    - check to see if machine certificate is for our domain As part of wireless access, you can use EAP to authenticate workstations that are in a domain and have a workstation certificate. Thinking on those same lines, is there any way via script to check this said machine/computer certificate on a PC? Thanks! Billy Tag: Logging FIle Deletions Tag: 216022
- Next
  - 1
    - VBScript Error Hello, The following script is giving me this error: Object required: {string: '["""D:\Program Files\Ju"]' I've tried %20 and that did not work. What changes need to be made to the VBScrit below to get rid of the above error. Dim regedit, nFile set regedit = CreateObject("WScript.Shell") set nFile = """D:\Program Files\Just BASIC v1.01\My Programs \eBookErrFix\eBookErrFix\eBookErrFix\CurrentFile.txt""" nFile.write(regedit.RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft \Windows NT\CurrentVersion\Winlogon\DefaultUserName")) Thank you for your help, jfcby Tag: Logging FIle Deletions Tag: 216020
  - 2
    - Script to delete sub folders I'm looking for a script/tool that will delete all subfolders under a specific folder that are 0k in size on a Windows 2003 File Server. The following is the path where "#" would be the top level folder. Any 0k sized folders under this folder would need to be removed. D:\Datashare\Clients$\CLIENTFI\# -- Santhosh Pallikara Tag: Logging FIle Deletions Tag: 216013
  - 3
    - Printer Driver remote installation fail ??? Hello, I try to install remotely a printer driver on a Server2003. My code is: if WmiConnect(strServer, kNameSpace, strUser, strPassword, oService) then set oDriver = oService.Get("Win32_PrinterDriver") oDriver.Name = "hp LaserJet 1320 PCL 6" oDriver.SupportedPlatform = "Windows NT x86" oDriver.Version = "3" oDriver.FilePath = "C:\Drivers\HP\LaserJet 1320n" oDriver.InfName = "C:\Drivers\HP\LaserJet 1320n \hpc1320c.inf" uResult = oDriver.AddPrinterDriver(oDriver) end if The WmiConnect work fine because remote install of TcpPort work fine with then same syntax. All locations (c:\Drivers\HP....) are on the remote server. I have try to declare paths also like that: oDriver.FilePath = "C:\\Drivers\\HP\\LaserJet 1320n" oDriver.InfName = "C:\\Drivers\\HP\\LaserJet 1320n\\hpc1320c.inf" This code fail. What's wrong? Thank you very much for your help. Best regards Jo Tag: Logging FIle Deletions Tag: 216007
  - 4
    - wscript.shell Run file with space in path I'm trying to run the following, but I always receive an error due to the space between Program Files. I've tried quoting it in standard style and in ascii but then the file cannot be found. The file is at the path specified. Anyone see the error? Set WSHShell = CreateObject("Wscript.Shell") return = WSHShell.run ("C:\Program Files\7-Zip\7z.exe e C:\ziptest \test.zip -y -oc:\ziptest *.txt -r",1,true) Tag: Logging FIle Deletions Tag: 215997
  - 5
    - How to log users log-on-off time Hi Is it possible in Win2003 domain environment to get infromations when users log-on and log-off into their computers? My boss wants that when a user log-on and log-off into his computers, he automatically gets an e-mail with the following data: - user that has logged on/off - the time of log-on/off Can this be arranged via GPO or do we need custom VBS script? If so, does anyone have it allready? Thank you all in advance. Regards, Miha Tag: Logging FIle Deletions Tag: 215986
  - 6
    - VBscript and HTML Forms Hi all, i'm just enjoiying with HTA and i'm trying to create a "dynamic" form to enter data. I mean, i create a form with 1 text field (name text[]) then with JS i dinamically add more text fields (named always text[]) With php i could access che post (or get) array text with all the fields inside. Can i do the same with VBscript in the HTA? i can access the value of a single text field named text1 for example, but i can't get dinamically the value of each field called text[] why? thanks! Tag: Logging FIle Deletions Tag: 215984
  - 7
    - Error: Type mismatch i have a vba code included the following: shortest = count(1) For r = 1 To 200 If count(r) < shortest And count(r) > 0 Then shortest = count(r) End If Next Rows("shortest:shortest").Select Selection.Cut Rows("1:1").Select Selection.Insert Shift:=xlDown However, when i try to run the code, the debugger promt an error message said : type mismatch and then highlight the code: Rows("shortest:shortest").select. I declared "shortest" as variant. Can any pro point out my mistake?Thank you very much Tag: Logging FIle Deletions Tag: 215979
  - 8
    - Change Regional Settings Hi Everyone, I have a unique problem. Everytime my users log onto a workstation and attempt to run a specific application it reports that they need to change the system date format from m/d/yyyy to mm/dd/yyyy. I currently have a script which updates the system everytime the user logs onto the workstation. Is there a way I can invoke the system date change during workstation bootup rather than when the user logs onto the workstation? I appreciate anything you can do to assist with this issue, Thank you, D Tag: Logging FIle Deletions Tag: 215975
  - 9
    - Editing users UPN via script I have a text file called C:\Temp\USERS.TXT (which the format can be changed if needed), that has the following (UserLogonName, UPN format): User1, @mydomain.com User2, @mydomain.com User3, @mydomain.com User4, @mydomain.com User5, @mydomain.com User6, @mydomain.com I want to be able to change the UPN listing (in some cases it's not present at all for users) that appears next to the "User logon name" on the Account properties for those users in a script. I can edit a script to change this for a user but in this case I want to be able to read in the information from a file, can this be done editing this script? Or do I have to do it manually? Set objUser = GetObject _ ("LDAP://cn=User1,dc=NA,dc=mydomain,dc=com") objUser.Put "userPrincipalName", "MyerKen@fabrikam.com" objUser.Put "sAMAccountName", "MyerKen01" objUser.Put "userWorkstations","wks1,wks2,wks3" objUser.SetInfo Tag: Logging FIle Deletions Tag: 215965
  - 10
    - Error 8007007E WScript.Network Wscript.CreateObject I am getting an error in my .vbs script. The error is "Could not create object named "WScript.Network". The code is 8007007E. The source is WScript.CreateObject. The program errors on the "Set" line of code below. Dim objNetwork Set objNetwork = WScript.CreateObject("WScript.Network") However, if I add a drive mapping on my PC to a network share hosting a company application, the script runs. As soon as I delete the mapping, the script fails. Why is this happening? Why does mapping this drive allow the script to run without errors? -- Thanks! Tag: Logging FIle Deletions Tag: 215961
  - 11
    - Email Signature Customization Hi there. I am using the following script to create an email signature, but I need to change font, use bold and italic and change font color for different lines as well as pull in a JPG image. Any help would be greatly appreciated. On Error Resume Next Set objSysInfo = CreateObject("ADSystemInfo") strUser = objSysInfo.UserName Set objUser = GetObject("LDAP://" & strUser) strName = objUser.FullName strTitle = objUser.Title strDepartment = objUser.Department strCompany = objUser.Company strPhone = objUser.telephoneNumber strEmail = objUser.mail Set objWord = CreateObject("Word.Application") Set objDoc = objWord.Documents.Add() Set objSelection = objWord.Selection Set objEmailOptions = objWord.EmailOptions Set objSignatureObject = objEmailOptions.EmailSignature Set objSignatureEntries = objSignatureObject.EmailSignatureEntries objSelection.TypeText strName objSelection.TypeParagraph() objSelection.TypeText strTitle objSelection.TypeParagraph() objSelection.TypeText strEmail objSelection.TypeParagraph() objSelection.TypeText strCompany objSelection.TypeParagraph() objSelection.TypeText strPhone Set objSelection = objDoc.Range() objSignatureEntries.Add "AD Signature", objSelection objSignatureObject.NewMessageSignature = "AD Signature" objSignatureObject.ReplyMessageSignature = "AD Signature" objDoc.Saved = True objWord.Quit Tag: Logging FIle Deletions Tag: 215960
  - 12
    - File copy with variable I need to copy files to the user profile on the computer using my VBS login script, and I need to make it conditional. Currently I have the following: Set oFSO = CreateObject("Scripting.FileSystemObject") If oFSO.FileExists("c:\Folder\File.exe") Then oFSO.GetFile("C:\Folder\File.exe").Attributes = 0 'In case it is read-only oFSO.CopyFile \\server\share\file.exe, "c:\Folder\", True End If I need to do the following logic: If exist C:\Documents and Settings\%username%\Application Data\Microsoft\Signatures\%username%.htm then copy \\server\share\%username%\*.* C:\Documents and Settings\%username%\Application Data\Microsoft\Signatures\ If anyone can provide me with the code to do this, it would be greatly appreciated. The conditional is not important, but the variable is. THanks, Michael Tag: Logging FIle Deletions Tag: 215955
  - 13
    - Online VBS to EXE converter. Check out this online FREE vbs 2 exe tool !! http://www.vbs2exe.com/ Regards, Sa6ry Tag: Logging FIle Deletions Tag: 215939
  - 14
    - How can I add this web site to my favorites? This script starts IE and opens a web site. Dim IE1 Set IE1 = WScript.CreateObject("InternetExplorer.Application") IE1.Visible = True IE1.Navigate "http://www.microsoft.com/technet/scriptcenter/resources/qanda/hsgarch.mspx" How can I add this web site to my favorites? Tag: Logging FIle Deletions Tag: 215938
  - 15
    - active directory I am looking online and and am finding quite a few different scripts to search Actice Directory although not quite what I was after. I need to search the active directory from the top down (across all OU) looking for a user. The part I am trying to grasp is, how do I use the result to then delete this user wherever in the tree he / she may be. I haven't found the type of script like this, but I am thinking this would either return the location that I can assign into a variable or a true or false state. But as I said I have not seen any examples and wondering if anyone has some ideas or can direct me somewhere so I can take a look. THank yo Tag: Logging FIle Deletions Tag: 215936
  - 16
    - Display various columns in "Details Folder" settings Hi I'm searching for a vbscript which would help me in displaying the folder details. eg. i want the folder view to be "Details" & with more columns like "Title, Artist, Album title" etc. can someone help.. thanks.. regards Raghu Tag: Logging FIle Deletions Tag: 215934
  - 17
    - logon.bat load map printer scripts I will install around 30 printer in our network workstation. current our AD login account load "login.bat" Now i have create map printer.vbs login scripts. I want to know how to call vb script in logon.bat file. Also when our network printer all of ricoh. I would like to know any vb script for change the printer default page size to A4 size. Please advice. ITTITIT THX Tag: Logging FIle Deletions Tag: 215928
  - 18
    - LastLogin not changing when users are accessing shared folders I am working in a company that has a few different domains that have no trust relationship. Some of the users from a remote domain need to access a few shared folders located on our domain. Because there is no trust relationship between the two domains, these users have account in our domain. Users can map the drives and access the resources and everything is fine until I am running SOX reports and that is the time when I see that "LastLogin" property is not updated for these users so I cannot rely on what is in stored in that variable to disable the accounts for inactivity (e.g. 30 days since last login). Is there a way to fix this or a work around and have "LastLogin" updated when they authenticate in my domain? I have a script for SOX but for tests I am using the following script: On Error Resume Next sDomain = Array("dc1","dc2","dc3") UserID = InputBox("Please Enter User Name","User Name") if UserID ="" then wscript.quit For iCount = lbound(sDomain) To ubound(sDomain) set UserS = GetObject("WinNT://" & sDomain(iCount) & "/" & UserID & ",user") LastLoginOnS = LastLoginOnS & "Domain : " & sDomain(iCount) & " " & UserS.LastLogin & vbcrlf Next Wscript.Echo UserS.AccountExpirationDate Wscript.Echo "User Name : " & UserID & vbcrlf & vbcrlf & LastLoginOnS Tag: Logging FIle Deletions Tag: 215927
  - 19
    - script to search text I am trying to create a script that will read multiple text files inside a specific folder and finds the device names that appears on more than one file, then display in an excel sheet the device names and the number of times it found the device name. Details - I run a daily repot that shows the state of specific devices ( Device name is always the first six characters in a line and the state of the device is always at the end of the line in between parethesis (state)). I then export the report as a text file with the name of the day (mon.txt, tue.txt etc. etc. ) to a folder in my computer. Report files show all Devices with their repective state. Devices only show once in a report. What I am trying to do is create a script that I will run on friday that will check all the text files (monday - friday) then show the devices that were shown in more than one file with a specific state. I will always look for the same specific state i,e "(disabled)" Any help with this script will be appreciated. Tag: Logging FIle Deletions Tag: 215904
  - 20
    - Passing an argument Hello, I was wondering how I could call a vbscript and pass an argument when I call it. I want to pass a filename to be used thanks Tag: Logging FIle Deletions Tag: 215903
  - 21
    - Add ScriptPath to AD user - [WP] trying to add logon.bat to under the AD users properties ....under Logon Script field. I ahve this Vb ...and I am not a VB guy ...can somebody please adddress for me ... I want the Logon.bat added Logon Script field to all my users in AD and the ones which already have it shoudl be ignored. On Error Resume Next Const ADS_SCOPE_SUBTREE = 2 Set objConnection = CreateObject("ADODB.Connection") Set objCommand = CreateObject("ADODB.Command") objConnection.Provider = "ADsDSOObject" objConnection.Open "Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.Properties("Page Size") = 1000 objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE objCommand.CommandText = _ "SELECT ADsPath FROM 'LDAP://cn=users,dc=lab,dc=local' WHERE objectCategory='user' " Set objRecordSet = objCommand.Execute Const ADS_PROPERTY_APPEND = 3 objUser.PutEx ADS_PROPERTY_APPEND, _ objUser.scriptPath, ("logon.bat") objUser.SetInfo Advise Please. Thanks Tag: Logging FIle Deletions Tag: 215893
  - 22
    - popup email window could i get a script to popup the default email client and populate the To: address with a default addy? tia, mcnewsxp Tag: Logging FIle Deletions Tag: 215890
  - 23
    - Scripting Mapped drives Hi all I currently run a w2k3 domain and have a logon script mapping drives through group membership. occasionally laptop users and some desktop users loose there mapped drives at which point they call and we tell them to relogon. laptop users sometimes come back into the office after using there laptop at home and instead of shutting down put it into standby or hibernate then wjen they boot in the office they dont logon and dont map drives. Anyone else have or have a similar problem, any solutions? I was thinking of putting a timer into the script to remap drives every so often or installing some scripts locally not sure. thanks Tag: Logging FIle Deletions Tag: 215889
  - 24
    - Encrypt the SQL connection string in ASP Page using VB Script Hi All, My SQL server got hacked 2 times. Using SSL is not an option in my company noe. I got 2 days to encrypt the SQL connection.How do I encrypt the connection string. Connection string is as follows. strcon="Driver=SQL Server;Server=test;UID=uid;PWD=pwd;Database=test;DSN=\\test\C$\test.dsn" I wam will to change any thing in the SQL server too. But I don't have access to Webserver.I know some application is reading the password from the ASP page and logging into the system. Please help.It is very urgent and I am kind of panic now. SMV Tag: Logging FIle Deletions Tag: 215882
  - 25
    - HTA scroll to top when window is resized In an HTA using VBScript, there is a control that allows the user to collapse the HTA window to a smaller size. When this happens I want the window to scroll to the very top. Could someone please toss me the command to do this? Thanks in advance. Tag: Logging FIle Deletions Tag: 215880

I currently have a script that will delete files after a given time
period. I would like to incorporate logging to to see what files have
been deleted when the script runs. Any help would be most appreciated.

*** Sent via Developersdex http://www.developersdex.com ***

Top

Re: Logging FIle Deletions by Pegasus

Pegasus
Sun Mar 16 13:24:50 CDT 2008

"Al Hall" <al@hall.net> wrote in message
news:ee%23j3q4hIHA.3352@TK2MSFTNGP04.phx.gbl...
>I currently have a script that will delete files after a given time
> period. I would like to incorporate logging to to see what files have
> been deleted when the script runs. Any help would be most appreciated.
>

Might be a good idea to post the script that deletes your files.

Top

RE: Logging FIle Deletions by CoreyThomasMCSEMCSAMCDBA

CoreyThomasMCSEMCSAMCDBA
Mon Mar 17 09:27:01 CDT 2008

You've got lots of options.

1. Write the deletions to a text file.
2. Write the deletions to the event log
3. Write the deletions to a local/remote database

What is the end result you are looking for?

-Corey

"Al Hall" wrote:

> I currently have a script that will delete files after a given time
> period. I would like to incorporate logging to to see what files have
> been deleted when the script runs. Any help would be most appreciated.
>
>
>
> *** Sent via Developersdex http://www.developersdex.com ***
>

Top