Clearing the MRU programs from the start menu

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
    - Trying to append script results to a text file Hi. I've come across a script which suits my purpose very well. it returns the status of whether a host is available (pingable) written by Mike Salsbury see here: http://mikesalsbury.com/mambo/content/view/548/ I'm trying to have the output appended to a text file and looped to repeat every 30 seconds thanks Tag: Clearing the MRU programs from the start menu Tag: 215669
  - 2
    - Special Folder Shell Namespace number vs title I can obtain a Shell Application Folder object associated with a Windows Special Folder with code like the following: iNameSpace = 26 Set oShApp = CreateObject("Shell.Application") Set oShFolder = oShApp.NameSpace(iNameSpace) MsgBox oShFolder.Title On my WXP SP2 system, for numbers in the range 0 to 61, most numbers result in a shell folder object with a unique title. My system has 39 unique titles. Some titles, like 'Application Data', and 'Desktop', are associated with namespaces of more than one number. For example, 26, 28, and 35 all result in shell folders with the title 'Application Data'. Question: Are all the shell folders with the same title identical, having the same properties, methods, events, etc, as well as the same contents? If not, how can I find out the differences between them? Thanks, -Paul Randall Here is a short script to list the special folder namespace titles and the numbers associated with them: Set dNameSpaces = GetNameSpaces() sMsg = "" For Each sNameSpace In SortNet(dNameSpaces.Keys) sMsg = sMsg & sNameSpace & vbTab & vbTab & _ dNameSpaces(sNameSpace) & vbCrLf Next 'sNameSpace MsgBox "Namespace Title count = " & UBound(dNameSpaces.Keys) + 1 & _ vbCrLf & sMsg Function GetNameSpaces() 'Return a dictionary containing namespace titles and associated numbers. Dim dNameSpaces, dNameSpaces2, oShApp, oShFolder, sNameSpace Set dNameSpaces = CreateObject("scripting.dictionary") dNameSpaces.comparemode = vbTextCompare Set dNameSpaces2 = CreateObject("scripting.dictionary") dNameSpaces2.comparemode = vbTextCompare Set oShApp = CreateObject("Shell.Application") On Error Resume Next For i = 0 To 100 Set oShFolder = oShApp.NameSpace(i) dNameSpaces(oShFolder.Title) = dNameSpaces(oShFolder.Title) & i & " " Next 'i On Error Goto 0 For Each sNameSpace In SortNet(dNameSpaces.Keys) dNameSpaces2(sNameSpace) = Replace(Trim(dNameSpaces(sNameSpace))," ", ",") Next 'sNameSpace Set GetNameSpaces = dNameSpaces2 End Function 'GetNameSpaces Function SortNet(a1DArray) Dim i With CreateObject ("System.Collections.ArrayList") For i = 0 To UBound(a1DArray) .Add a1DArray(i) Next .Sort() SortNet = .ToArray End With End Function Tag: Clearing the MRU programs from the start menu Tag: 215661
  - 3
    - Encoded vbscript will not run in Windows Visata Hello, I encoded a vbscript, but the encoded script failed to run in Windows Vista. The error is as follows: There is no script engine for file extension ".vbe". Will WIndows Vista be able to run the encoded vbscript? Thanks. CluM09 Tag: Clearing the MRU programs from the start menu Tag: 215655
  - 4
    - script to change First Name and Last Name, based on Display Name I need to find a way (script?) to change several users in a especial OU [displayName] looks like "John Albert Taylor (OPER)" need to get "only" first name from [displayName] and change the [givenName] to "John" need to get "only" middle and last name from [displayName] and change the [sn] to "Albert Taylor" can consider the first " (" end of name can help me ? thanks! Tag: Clearing the MRU programs from the start menu Tag: 215616
  - 5
    - delete folders older than - [wp] I am looking foir a VBScripts which would delete sub-folders older than 15 days and I found this .... and I have no clue how to modify this help please. thanks 'Objective: To Delete folders older than certain # of days. 'Created by: MAK 'Date Written: Jun 4, 2004 'Usage: DeleteOldFolder "\\Servername\d$\MSSQL\BACKUP\Replication\" "2" "C:\mylog.txt" 'Usage: DeleteOldFolder "\\Servername1\Sharename\Replication\" "3" "\\servername2\log\DeleteOldFolders.log" On error resume next if isnull(WScript.Arguments(0))=True or isnull(WScript.Arguments(1))=True or isnull(WScript.Arguments(2))=True then msgbox "Usage: DeleteOldFolder" & "'\\Servername1\Sharename\Replication\' '3' '\\servername2\log\DeleteOldFolders.log'" end if Dim Directory Dim Noofdays Dim FSO Dim FSO2 Dim LogFile Dim Folderlist Dim folders Directory =WScript.Arguments(0) Noofdays=cint(WScript.Arguments(1)) LogFile=WScript.Arguments(2) Set FSO = CreateObject("Scripting.FileSystemObject") Set FSO2 = CreateObject("Scripting.FileSystemObject") Set oFSO = CreateObject("Scripting.FilesyStemObject") Set ofile = oFSO.createTextFile(LogFile, True) ofile.writeline "DeleteOldFolders Started" ofile.writeline now() Set Folderlist = FSO.GetFolder(Directory) Set folders = Folderlist.SubFolders For Each d In Folders ' msgbox d.name ' msgbox d.size ' msgbox d.dateCreated ' msgbox d.dateLastModified ' msgbox d.dateLastAccessed tempdirectory = Directory & d.name 'msgbox Noofdays 'msgbox datediff("d",d.dateCreated,now()) If datediff("d",d.dateCreated,now()) > Noofdays Then FSO2.DeleteFolder(tempdirectory ) ofile.writeline cstr(now()) & " " & tempdirectory & " Delete Started" if err.number <>0 then ofile.writeline cstr(now()) & " " & Err.description err.clear else ofile.writeline cstr(now()) & " " & tempdirectory & " has been deleted" err.clear end if ' msgbox tempdirectory & " has been deleted" End If Next 'msgbox "Done" ofile.writeline "DeleteOldFolders Completed" ofile.writeline now() Tag: Clearing the MRU programs from the start menu Tag: 215612
  - 6
    - silent install issue with batch program I wrote a batch program to silently install some chipset software for users during logon. But it's working properly. Here is part of the code. :IntelAMT Echo Install Intel AMT Chipset Software Echo Install Intel AMT Chipset Software >>%systemroot%\setuplog1.log Echo Installing Utility Driver. c: CD \Drivers\Dell\GX755\Chipset\Chipset1 start /wait setup.exe -s -sms Echo Utility Driver Installed, rc=%ERRORLEVEL% >>%systemroot%\setuplog1.log; Echo Installing Intel AMT SOL/ LMS Driver c: CD \Drivers\Dell\GX755\Chipset\Chipset2 start /wait setup.exe -s -sms Echo Intel AMT SOL/ LMS Driver installed, rc=%ERRORLEVEL% >>%systemroot%\setuplog1.log Echo Installing Intel AMT HECI Driver c: CD \Drivers\Dell\GX755\Chipset\Chipset3 start /wait setup.exe -s -sms Echo Intel AMT HECI Driver installed, rc=%ERRORLEVEL% >>%systemroot%\setuplog1.log I can see the echo message during installation and the echo message in the log. But only the first one got installed properly. What I found is that the other two need to answer the license agreement. What's the switch to accept the license agreement automatically? thanks. Tag: Clearing the MRU programs from the start menu Tag: 215607
  - 7
    - Error 800A0046 when trying to copy file locally Hey first post here, also new to scripting. I'm trying to create a script that reads a text file taking the path from that file and then copying the file from the path in the text file to a specific destination. I've got the reading of the text file down and everything seems to be ok, except when it goes to copy the file, when it tries to copy the file I get a Permission Denied message, this is a local copy from root of C to a temp folder and I'm admin on the machine so I can't understand why it would be a permission issue. Here is the script: Const ForReading = 1 Dim SourceServer Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile _ ("c:\test.txt", ForReading) strNextLine = objTextFile.Readline arrServiceList = Split(strNextLine , ",") Wscript.Echo "Server name: " & arrServiceList(0) set SourceServer = objFSO.GetFile(arrServiceList(0)) Wscript.Echo "Copy " & SourceServer SourceServer.Copy("C:\temp\test") Any suggestions are much apprciated. Tag: Clearing the MRU programs from the start menu Tag: 215606
  - 8
    - Slow logon when homeshare not available Situation: we divide our network for students and employees with VLANs. All computers for Education are placed in a student vlan, all administrative computers are placed in an employee vlan. When an employee logs on to a computer, which is in the student vlan, he can't access administrative resources, so he can't connect to his homedrive / homeshare. When an employee logs on to a computer in the employee vlan he will succesfully access administrative resources, the homeshare is succesfully connected. The problem is that logging on to a computer which is in the educational vlan causes a delay of 90 seconds because the server is not available. We sniffed the network and have seen that there is 3 times a ping request before the logon will proceed. We removed the homedrive and homepath setting in the AD user object and connected the homedrive based on subnet with a script, this solved the problem. But this causes problems with laptops users (folder redirection.) We want to workaround this problem without changing homedrive and homepath settings in the user object. Thanks in advance. Tag: Clearing the MRU programs from the start menu Tag: 215602
  - 9
    - Empty the Recycle Bin I'd like to empty the Recycle Bin and reset the desktop icon to "empty". Anyone got some code I can use to do that? Thanks, Tom Tag: Clearing the MRU programs from the start menu Tag: 215589
  - 10
    - Move Folder question I'm trying to write a script to move folders & subfiles using objFSO.MoveFolder "D:\SHARE\FOLDER\*" , "D:\Pending Print\FOLDER\" It works fine, however it will only move the folder if there are no files within the folder. Is there a parameter or something I am missing to copy BOTH folders and sub-files? thank you in advance, Tag: Clearing the MRU programs from the start menu Tag: 215588
  - 11
    - Using SWbemLocator.ConnectServer with non-domain credentials Ok, so I have a scripting issue that I canâ??t find a solution for. Iâ??ve tried everything I can possibly think of, and have searched endlessly for an answer on all the forums/newsgroups. Iâ??m trying to use the SWbemLocator.ConnectServer method with vbscript to connect to a Windows 2003 server remotely and gather WMI data. All servers are Windows 2003 Server. ServerA = workgroup server Iâ??m trying to run the script from. ServerB = workgroup server Iâ??m trying to connect to. I can do this fine, as long as ServerB is connected to a domain, and I use domain credentials to authenticate when activating the ConnectServer method. However, if ServerB is part of a workgroup and I try to use the local admin credentials of ServerB in the ConnectServer method, I get â??Access is Deniedâ?? with an error code of 80070005 (DCOM Error regarding incorrect username/password). On ServerB, in the security event logs, it appears that only the local credentials of ServerA are being passed, as the â??DOMAINâ?? parameter is populated with the name of ServerA. Iâ??ve tried adding the name of the ServerB to the beginning of the strUser, or in the â??NTLMDomain:â?? setting so that it specifies the remote user account, but it still fails. This also happens if ServerB is in a domain if I try to use the local admin credentials of ServerB to connect, rather than the domain credentials. Iâ??ve scoured the newsgroups and spoken with other administrators. I get some solutions that come close to describing my exact issue, but nothing that solves the problem. Any ideas? Thanks! Tag: Clearing the MRU programs from the start menu Tag: 215585
  - 12
    - Mass switch DNS script - fail over/disaster recovery Does anyone have a script for failing over DNS? I wrote one, but I'm curious to see if anyone else out there has done it better. What I'm looking for is a script that reads from a CSV and will switch A and CNAME records. As the spreadsheet is setup now, it lists SERVER, FUNCTION, PRODUCTION HOST, DR HOST, PROD A, DR A, PROD CNAME, DR CNAME, etc. The script is run and told to switch to production or fail over, and then changes all the settings as need be. I'm wondering if there's a similar one out there - they're looking for something more bullet proof. Thanks. Tag: Clearing the MRU programs from the start menu Tag: 215582
  - 13
    - read .reg file Hi, I'm trying to write a script that reads .reg file and can compare it to the registry to see if there's a match. I've got the registry checking part all done in another script, so in this one, I'm looking for reading the .reg file and creating strings that I can use in the regchecking function. reading the .reg file is done: Const ForReading = 1, ForWriting = 2, ForAppending = 8 ' Create the File System Object Set objFSO = CreateObject("Scripting.FileSystemObject") strFile = "U:\tst.reg" If objFSO.FileExists(strFile) Then Set objFile = objFSO.GetFile(strFile) Set filetxt = objFile.OpenasTextStream(ForReading, -2) Do While Not filetxt.atEndOfStream line = filetxt.readline wscript.echo line Loop Else Wscript.Echo "File " & strFile & "doesn't exist" End If but now I'm looking for a way to recognize patterns, for example: Windows Registry Editor Version 5.00 (ignore this sentence) [HKEY_CURRENT_USER\Control Panel\Desktop] (this is the main key) "FontSmoothing"="2" (how to get the sub key) "FontSmoothingOrientation"=dword:00000001 (recognize DWORD values) "SCRNSAVE.EXE"="C:\\WINDOWS\\System32\\logon.scr" (recognize backslashes) "UserPreferencesMask"=hex:9e,3e,05,80 (recognize hex values) "WaitToKillAppTimeout"="20000" "Wallpaper"="" "Pattern Upgrade"="TRUE" [HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics] (recognize next main key, and process subkeys with corresponding main key) "BorderWidth"="-15" "CaptionFont"=hex:f5,ff,ff,ff,00,00,00,00,00,00,00,00,00,00,00,00,bc,02,00,00,\(recognize multi line strings) 00,00,00,00,00,00,00,00,54,00,61,00,68,00,6f,00,6d,00,61,00,00,00,00,00,00,\ 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\ 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 "CaptionHeight"="-270" idea's? regards, jeroen Tag: Clearing the MRU programs from the start menu Tag: 215578
  - 14
    - Encounter a strange error when query WMI library -- "SWbemServicesEx: Not found" Hi guys, In my domain client migration procedure, on only three clients I encountered "SWbemServicesEx: Not found" error when I tried to query current logoned Domain Account (it is a domain account) info. But when I modified the script to query previous logoned Local Account, it worked. Note: The function I called is "Win32_UserAccount" Script used in my client migration task =============================================================================== Set objNetwork = CreateObject("Wscript.Network") strComputerName = objNetwork.ComputerName strLogonUser = objNetwork.UserName ap01UserName = trim(cstr(InputBox("Please input AP01 User Account:","Type User Account"))) strDomain = "AP01" Set objWMIService = GetObject("winmgmts:\\" & strComputerName & "\root\cimv2") Set objAccount = objWMIService.Get _ ("Win32_UserAccount.Name='" & ap01UserName & "',Domain='" & strDomain & "'") ==================================================================================== I think there would be something wrong with the client's WMI lib. To verify my suspection, I did the following test. 1).Use a sample script to enumerate all the local account which has logoned this client. 2).It seems really really strange, on two XP clients when I run the sample script to query current or previous logon accounts, it only return me Local Accounts, all the Domain Accounts cann't be queried. 3).But when I run this script on most other XP clients, it return both Local and Domain Accounts which have logoned this client. Any one can help? Sample Script ======================================= On Error Resume NextstrComputer = "."Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")Set colItems = objWMIService.ExecQuery _ ("Select * from Win32_UserAccount")For Each objItem in colItems Wscript.Echo "Account Type: " & objItem.AccountType Wscript.Echo "Caption: " & objItem.Caption Wscript.Echo "Description: " & objItem.Description Wscript.Echo "Disabled: " & objItem.Disabled Wscript.Echo "Domain: " & objItem.Domain Wscript.Echo "Full Name: " & objItem.FullName Wscript.Echo "Local Account: " & objItem.LocalAccount Wscript.Echo "Lockout: " & objItem.Lockout Wscript.Echo "Name: " & objItem.Name Wscript.Echo "Password Changeable: " & objItem.PasswordChangeable Wscript.Echo "Password Expires: " & objItem.PasswordExpires Wscript.Echo "Password Required: " & objItem.PasswordRequired Wscript.Echo "SID: " & objItem.SID Wscript.Echo "SID Type: " & objItem.SIDType Wscript.Echo "Status: " & objItem.Status Wscript.EchoNext Tag: Clearing the MRU programs from the start menu Tag: 215573
  - 15
    - Script for verifying files I have a server, where through out the day text files are copied to the server by few developers. I am already running a script to create folders on day wise on this server, and users copy these files to the server on the respective daywise folder. I have multiple servers like this. End of day all these text files are copied to a centralized server again to day wise folder. I need to verify whether all files from Server A, Server B etc. are copied to the centralized server completely. And if possible mail me --- like 200/300 files are present on Server A for day xy and is successfully copied to centralized server xyz on folder xy completely. Any suggestion Tag: Clearing the MRU programs from the start menu Tag: 215572
  - 16
    - Time stamp a file. Hello all. I have the following script segment that creates a time stamped string for use in file or folder names. but need to do it in an easier way, or at least in less code. Any ideas? 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 strFile = datetoday & "_" & timetoday & ".zip" FSO.CreateTextFile(strFile) -- Thanks TimM Tag: Clearing the MRU programs from the start menu Tag: 215563
  - 17
    - Need help finding local path to downloaded graphic Note: I have 100% total control over my environment. All users are using IE 7 and the application server is in the IE Trusted Security zone with all functionality defaulted to "Enable" in the IE custom settings for the zone. The only restriction is that all network file access must use http://, and not a UNC path. (Okay, so I guess that isn't 100% but its close.) I have a website that includes photos taken of current construction projects. When a reporting page is loaded via IE one of the page elements is the project's photo. I need to know if there is any way to find the c:\my\path\here\.... location of that file on the local hard disk. I know it is in the temporary internet files and I already know the exact name of the file, e.g. proj2007.014.jpg, but IE sets up subdirectories. Alternately, if there is any way to save the file to a known location then I can just access it from there but I can't figure out how to do that. I'd prefer not to have to have the user confirm the file download but if that is required for security reasons that is okay as long as it solves the problem. Any input is appreciated. Tag: Clearing the MRU programs from the start menu Tag: 215562
  - 18
    - Help: Command Prompt code misbehaving in VBS Can anyone tell me why the following does not work? I am trying to move the following Command Prompt code into a VB Script: "c:\Program Files\Microsoft ActiveSync\CEAPPMGR.EXE" " helloworldproject.ini" I have tested this and it successfully fires up the CEAppManager.exe on the file helloworldproject.ini. I moved this into the following VBScript... Set strshell= CreateObject("WScript.Shell") strshell.run """c:\Program Files\Microsoft ActiveSync\CEAPPMGR.EXE"" ""helloworldproject.ini""" When I run this script, I get an error from CEAppManager as follows... Error in Windows CE Setup Files: Application Manager cannot install this application on your mobile device due to an error in the setup file. It kind of looks to me like the script is not feeding parameter that I am passing to CEAppManager (i.e. the hellowworldproject.ini) in the the way that CEAppManager expects. Please note that 1)when I execute the code in the CommandPrompt I have previously navigated to the folder containing the INI file. 2) when I execute the VBS script I am also in the folder containing the INI file. Thanks in advance! Tag: Clearing the MRU programs from the start menu Tag: 215559
  - 19
    - vbscript to check local windows users VS Novell Directory Tree in Does anyone know of a simple script to check if local windows user account user ID's are in the Novell Directory Tree? I dont need to authenticate the user, I'm just checking if they should be deleted from Windows if not in Novell. If you know a script that is somewhat along these lines please post it, I just dont do much with LDAP or Novell so I'm somewhat confused how to start. Tag: Clearing the MRU programs from the start menu Tag: 215556
  - 20
    - Listing more columns in "Recover Deleted Items" window As a matter of form, I am not talking about the Inbox\Deleted Items folder here, but the recoverable deleted items on the Exchange server (tools > recover deleted items...). When recovering emails from "Sent items" (click Sent Items, Tools > Recover Deleted Items...) I can just see the columns Subject, Deleted On, From and Received. I would like to show the column "To"-column as well, since all emails are from me in there, thus it's hard to locate an old mail with an unknown subject. I know it's probably not possible (I've tried clicking around), so I wondered if anybody know of 3rd party tools and/or scripts (vbscripts etc) that can manage the Recover Deleted Items folders? -- -- HAL07, Engineering Services, Norway Tag: Clearing the MRU programs from the start menu Tag: 215551
  - 21
    - move folders based on their date This sounded really easy to me when I was tasked with doing it, but now I'm bogged down and have run out of ideas. Here's a description of what I'm trying to do: 1. On drive X, look for all folders starting with the string "delivery", followed by a random number. There are also other folders in X called other things that do not begin with "delivery". 2. For each of the folders starting with "delivery", if the date of the folder equals yesterday's date, move it from X to a destination folder (X:\archive\#yesterday's_date#\, for example). Otherwise don't move it. It sounds easy, and I can do step #1 easy enough, but stumble with the date issue in step #2. I just realized one way I could solve this would be to get rid of all the existing "delivery" folders, then just create a script to move all the "delivery" folders and schedule that script to run at 12:01 a.m. each day, but that seems a bit like the blunt force way of solving the issue, and I'm betting/hoping there's a more elegant solution. Thanks. Tag: Clearing the MRU programs from the start menu Tag: 215539
  - 22
    - How to focus a folder browser? Hi, When I create a folder browser by using BrowseForFolder method according to this link http://msdn2.microsoft.com/en-us/library/bb774065(VS.85).aspx the dialog can be focused. However, when I display a popup first, the folder browser cannot be focused. The sample code like var objShell = WScript.CreateObject("Shell.Application"); var wshShell = WScript.CreateObject("WScript.Shell"); var btnCode = wshShell.Popup("Do you want to update DNN?", 10, "Answer This Question:", 4 + 32); if (btnCode==6) { var objFolder = objShell.BrowseForFolder(0, "Select the DNN portal folder", 0); } Is there a way that I can bring the folder browser to front? Thanks a lot! H. Tag: Clearing the MRU programs from the start menu Tag: 215538
  - 23
    - Logoff script to restore a registery subkey Im trying to restor the Key HKCU\Softeare\Policies\Microsoft after making some changes in a logon script at logoff. The logon script adds Internet explorer settings to disable things like using ctrl-O to openn the Open dialog. Prior to running the logon script the subkey Internet Explorer does not exist. I use reg save to save a copy of HKCU\Softeare\Policies\Microsoft and then try to restore it with reg restore HKCU\Softeare\Policies\Microsoft and the file name. This works from the cmd line login as the user. However I will nod restore the key from the script at logoff. All other parts of the script work. the specific line that does not work is: WshShell.Exec ("%comspec% /c reg RESTORE HKCU\Software\Policies\Microsoft ""%USERPROFILE%\explorerPoliciesBackup.hiv""") FYI Wshell = CreateObject("WScript.Shell") I have even tried to use the reg delete command with no success. The user is in the administrators group. This happens locally as well as through terminal services. Thanks in advance Tag: Clearing the MRU programs from the start menu Tag: 215537
  - 24
    - Copy to multiple folders Maybe someone can help me out. I have the script below that replicates from source to target just fine. It was nice enough on Michael to post it on this MS newsgroup a while back. I've done a few changes to it like a small amount of logging but nothing major. But I'm wanting to change it so that it will replicate to multipe targets i.e. setting the TARGET to just C:\App and have to replicate to all sub folders excluding the Source folder and it already has the logic to exclude folders. Or maybe I need to go about this in a different direction. Any help would be great. Set WshShell = WScript.CreateObject("WScript.Shell") Set objNetwork = wscript.CreateObject("wscript.network") 'objNetwork.Username Set objFSO = CreateObject("Scripting.FileSystemObject") Set variablesObj = WScript.Arguments Set WshEnv = WshShell.Environment("Process") Set objShell = CreateObject("Shell.Application") '======================================================= '================== DEFINED VARIABLES ================== '============== MODIFY SOURCE AND TARGET =============== '======================================================= SOURCE = "C:\App\Source" TARGET = "C:\App\Target" '======================================================= '======================================================= '============== FOLDERS NOT TO POPULATE =============== '======================================================= 'Excluded folders '- list folder names, comma separated FLDR_EXcLUDE = "Source,Test" '======================================================= '======================================================= '============== FOLDERS NOT TO POPULATE =============== '======================================================= 'Excluded file types '- list file extensions (without periods), comma separated FILE_EXCLUDE = "txt,csv" '======================================================= '======================================================= '===================== Log Files ====================== '======================================================= 'ErrLog is for location of error log 'SuccLog is for completion and other logs ErrLog = "C:\ErrorLog.csv" SuccLog = "C:\SuccessLog.csv" '======================================================= '======================================================= '============= END USER DEFINED VARIABLES ============== '======================================================= '**************************************************************************************************** 'Replication '1. Starts with source folder and if it doesn't exist on the target copies it and all contents there '2. If the source folder does exist on the target it checks the files in that folder and copies any missing files or files with later modified dates to the target '3. Recurses through all subfolders (all levels) in the source, repeating steps 1 & 2 for each 'Synchronization '4. Starts with target folder and if it does not exist in the source deletes it. '5. If the target folder does exist in source it goes through all files in the target folder and deletes them if they do not exist in the source '6. Recurses through all sub folders (all levels) in the target, repeating steps 4 & 5 for each. '**************************************************************************************************** replicate = True 'Perform replication: true/false. Do not change from true. synchronize = False 'Perform synchonization: true/false. Do not change from false. silent = False 'Performs logging when set to False. hiddenFldrs = False 'Process hidden folders: true/false. Do not change from false. hiddenFiles = False 'Process hidden files: true/false. Do not change from false. ' NOTE: If a folder is missing in the target, the entire ' folder is copied, even the hidden files '======================================================= If Not ( silent ) Then LogIt SuccLog, "Backup started," & Now & "," & SOURCE & "," & TARGET End If 'Use variables passed from command line if sent If WScript.Arguments.Count > 0 Then replicate = variablesObj(0) End If If WScript.Arguments.Count > 1 Then synchronize = variablesObj(1) End If If WScript.Arguments.Count > 2 Then silent = variablesObj(2) End If 'Set up regular expression object Set RegExObj = New RegExp RegExObj.IgnoreCase = True FILE_EXCLUDE = "," & FILE_EXCLUDE & "," FLDR_EXCLUDE = "," & FLDR_EXCLUDE & "," 'Verify if source folder exists If Not (objFSO.FolderExists(SOURCE)) Then 'Do not replicate, Perform error handling If Not ( silent ) Then 'MsgBox "Source Missing" LogIt ErrLog, "Source missing," & Now & "," & SOURCE & "," & TARGET End If 'Proceed if replicating is on ElseIf ( replicate ) Then replicateFolders SOURCE, TARGET End If 'Verify if target folder exists If Not (objFSO.FolderExists(TARGET)) Then '100 'Do not synchronize, Perform error handling If Not ( silent ) Then 'MsgBox "Target Missing" LogIt ErrLog, "Target missing," & Now & "," & SOURCE & "," & TARGET End If 'Proceed if synching is on ElseIf ( synchronize ) Then syncFolders SOURCE, TARGET End If 'Cleanup variables Set objFSO = nothing Set objNetwork = nothing Set variablesObj = nothing Set RegExObj = nothing Set sourceObj = nothing Set targetObj = nothing Set targetFileObj = nothing Set sourceFileObj = nothing If Not ( silent ) Then MsgBox "Backup Complete!", 0, "Done" LogIt SuccLog, "Backup completed," & Now & "," & SOURCE & "," & TARGET End If '======================================================= Sub replicateFolders (currentSource, currentTarget) '======================================================= 'Check if target folder exists If Not (objFSO.FolderExists(currentTarget)) Then 'Create the target folder and copy the contents of currentSource there objFSO.CreateFolder(currentTarget) objFSO.CopyFolder currentSource, currentTarget LogIt SuccLog, "Created folder and files," & Now & "," & currentSource & "," & currentTarget Else 'Create folder object of the currentSource Set sourceObj = objFSO.GetFolder(currentSource) 'Perform file replication for the currentSource replicateFiles sourceObj, currentTarget 'Do recursive processing of sub folders For Each subSourceObj in sourceObj.SubFolders If Not excluded(subSourceObj.Name,0,FLDR_EXCLUDE) Then If (hiddenFldrs) Or (Not subSourceObj.Attributes And 2) Then newTarget = TARGET & RIGHT(subSourceObj.Path,(Len(subSourceObj.Path)-Len(SOURCE))) replicateFolders subSourceObj.path, newTarget End If End If Next End If '======================================================= End Sub 'replicateFolders '======================================================= '======================================================= Sub replicateFiles (sourceObj, targetPath) '======================================================= ' Recurse through all files in the source object For Each sourceFileObj in sourceObj.Files If Not excluded(sourceFileObj.Name,1,FILE_EXCLUDE) Then If (hiddenFiles) Or (Not sourceFileObj.Attributes And 2) Then targetFile = targetPath & "\" & sourceFileObj.Name 'Check if file exists in target If objFSO.FileExists(targetFile) Then 'Create file object of target file Set targetFileObj = objFSO.GetFile(targetFile) 'Check if file in source is newer If sourceFileObj.DateLastModified > targetFileObj.DateLastModified Then 'Overwrite existing file in target with newer source file sourceFileObj.Copy targetFile, true LogIt SuccLog, "Copied updated file," & Now & "," & newTarget End If Else 'Copy file from source to target sourceFileObj.Copy targetFile End If End If End If Next '======================================================= End Sub 'replicateFiles '======================================================= '======================================================= Sub syncFolders (currentSource, currentTarget) '======================================================= 'Check if source folder exists If Not (objFSO.FolderExists(currentSource)) Then 'Delete the current target folder objFSO.DeleteFolder currentTarget Else 'Create folder object of the currentTarget Set targetObj = objFSO.GetFolder(currentTarget) 'Perform file synching for the currentTarget syncFiles currentSource, targetObj 'Do recursive processing of sub folders For Each subTargetObj in targetObj.SubFolders If Not excluded(subTargetObj.Name,0,FLDR_EXCLUDE) Then If (hiddenFldrs) Or (Not subTargetObj.Attributes And 2) Then newSource = SOURCE & RIGHT(subTargetObj.Path,(Len(subTargetObj.Path)-Len(TARGET))) syncFolders newSource, subTargetObj.path End If End If Next End If '======================================================= End Sub 'syncFolders '======================================================= '======================================================= Sub syncFiles (sourcePath, targetObj) '======================================================= '=======================================================- ' Recurse through all files in the target object For Each targetFileObj in targetObj.Files 'Do not process excluded file types If Not excluded(targetFileObj.Name,1,FILE_EXCLUDE) Then sourceFile = sourcePath & "\" & targetFileObj.Name 'Delete target file if does not exist in source If Not (objFSO.FileExists(sourceFile)) Then targetFileObj.Delete true End If End If Next '======================================================= End Sub 'syncFiles '======================================================= Function excluded (itemName,isFile,excludeList) '======================================================= ' Test if itemName is in excluded list '=======================================================- 'If file, get the file extension If isFile Then itemName = Right(itemName,Len(itemName)-InStrRev(itemName,".")) End If RegExObj.Pattern = "," & itemName & "," excluded = RegExObj.Test(excludeList) '======================================================= End Function 'excluded '======================================================= 'Logging Enabled '======================================================= Sub LogIt(strLogFile,strLine) Dim fso, file Const ForAppending = 8 On Error Resume Next Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(strLogFile) = False Then Set file = fso.CreateTextFile(strLogFile) Else Set file = fso.OpenTextFile(strLogFile,ForAppending) End If file.WriteLine(strLine) file.Close End Sub '======================================================= -- Thanks TimM Tag: Clearing the MRU programs from the start menu Tag: 215535
  - 25
    - Query Issues My script isint working, specifically I dont think the query is returning anything, though as far as I can tell it should. No errors are returned, but the script skips the 'for each file in cfiles' section. Does anyone see why this is happening? The file name it is checking for (only checking one atm) is: AZA_BINS_2008022514.TXT The contents of C:\BAASCRIPTS\ivr.txt is AZA_BINS_ on line 1 and scriptquit on line 2. --- SCRIPT --- 'Opens text file which contains the names of all files to be checked. Set TextFile = fso.OpenTextFile("C:\BAASCRIPTS\ivr.txt", 1) MsgBox "2" 'Directory path where files are kept on BAA Dir = "C:\BAA\" Dir1 = "BAA" 'Reads in text file and builds directory/file string. Do While TextFile.AtEndOfStream <> True j = j + 1 file_array(j) = TextFile.ReadLine file_stamp = file_array(j) If file_stamp = "scriptquit" Then MsgBox "3a" wscript.Quit Else MsgBox "3b" MsgBox file_stamp End If 'sSomefolder = "D:\ExtractFiles\IVR" 'sPathSpec = Replace(Mid(Dir, 3) & "\", "\", "\\") sComputer = "." ' local machine Set qWMISrv = GetObject("winmgmts:\\" & sComputer & "\root\cimv2") Set cFiles = qWMISrv.ExecQuery("Select * from CIM_Datafile Where "_ & "Drive = 'C:' AND Path = '" & Dir1 & "' AND FileName Like '" _ & file_stamp & sqldate & "%%'", , 48) MsgBox "4" msgbox "Select * from CIM_Datafile Where "_ & "Drive = 'C:' AND Path = '" & Dir1 & "' AND FileName Like '" _ & file_stamp & sqldate & "%%'" For Each File In cFiles ' just file's name s = s & File.FileName & "." & File.Extension & vbCrLf MsgBox "5" MsgBox s ' full filespec ' s = s & File.Name & vbCRLF slen = Len(s) 'T is date t = Mid(s, 9, 8) MsgBox "6" If slen = "22" Then MsgBox "7" 'U is variable digit u = Mid(s, 17, 1) If u > highfile Then highfile = u End If ElseIf slen = "23" Then MsgBox "8" 'U is variable digit u = Mid(s, 17, 2) If u > highfile Then highfile = u End If ElseIf slen = "24" Then MsgBox "9" 'U is variable digit u = Mid(s, 17, 3) If u > highfile Then highfile = u End If ElseIf slen = "25" Then MsgBox "10" 'U is variable digit u = Mid(s, 17, 4) If u > highfile Then highfile = u End If ElseIf slen = "26" Then MsgBox "11" 'U is variable digit u = Mid(s, 17, 5) If u > highfile Then highfile = u End If ElseIf slen = "27" Then 'U is variable digit u = Mid(s, 17, 2) If u > highfile Then highfile = u End If Else MsgBox boo End If MsgBox "11" Next MsgBox "12" Loop pre_fname = sSomefolder & "\" & file_stamp & "_" & sqldate & "_" & u & ".TXT" MsgBox "13" Set filesys = CreateObject("Scripting.FileSystemObject") Set prname = filesys.GetFile(pre_fname) post_fname = file_stamp & ".TXT" prname.Name = post_fname MsgBox "14" Tag: Clearing the MRU programs from the start menu Tag: 215533
- Next
  - 1
    - Reuse of functions Hello, I have many scripts with the same functionality but with different parameters. I would like to create one general script. And call this script from the other scripts. Like you can do with modules and functions in vba. Can someone help? Tag: Clearing the MRU programs from the start menu Tag: 215526
  - 2
    - Monitor time to open application Hello. Is it possible to monitor time to open application? IE I want to check in seconds how long it takes to open Internet Explorer on my laptop and generate a performance view with it. But how to gather the time? Tag: Clearing the MRU programs from the start menu Tag: 215523
  - 3
    - List printer in directory Hi all thanks in advance any once who can shine some light on this problem. I have a printer server with about 200 printers on it, i've been able to get a list of the printer names to a txt file, and have written a piece of code to read from said file, pass the name connect via WMI and set the sharedname and the "shared" value to True, thus sharing out my printer. However i cant see to find a way to enable the "List in the Directory" Tick box which would enable to printer to be viewable under the server name in AD. Here is what i have managed so far Dim objPrinter strComputer =3D "." Set objWMIService =3D GetObject("winmgmts:" _ & "{impersonationLevel=3Dimpersonate}!\\" & strComputer & "\root \cimv2") Set objFSO =3D CreateObject("Scripting.FileSystemObject") Set objDictionary =3D CreateObject("Scripting.Dictionary") Const ForReading =3D 1 Set objFile =3D objFSO.OpenTextFile ("c:\printers.txt", ForReading) i =3D 0 Do Until objFile.AtEndOfStream strNextLine =3D objFile.Readline If strNextLine <> "" Then objDictionary.Add i, strNextLine End If i =3D i + 1 Loop objFile.Close For Each strLine in objDictionary.Items Dim dicRpl Set dicRpl =3D CreateObject( "Scripting.Dictionary" ) dicRpl( "=A7CAT=A7" ) =3D strLine Dim sCmdT sCmdT =3D ("Select * From Win32_Printer Where DeviceID =3D '=A7CAT=A7' ")= Dim sCmd : sCmd =3D sCmdT Dim sKey For Each sKey In dicRpl.Keys sCmd =3D Replace( sCmd, sKey, dicRpl( sKey ) ) Next Set colPrinters =3D objWMIService.ExecQuery (sCmd) For Each objPrinter in colPrinters WScript.Echo objPrinter.Shared objPrinter.Shared =3D True objPrinter.ShareName =3D strLine objPrinter.Put_ WScript.Echo objPrinter.Shared Next Next Tag: Clearing the MRU programs from the start menu Tag: 215521
  - 4
    - html input forms??? using a series of input boxes on a form the text in the box is always highlighted when tabbing forward or backward. sometimes i would prefer the text NOT be highlighted, for instance when the user just needs to verify the text or other times when the text needs to be appended. in either case if the text is highlighted a single keystroke wipes it out. does anyone know how to stop this highlighting? I have tried using a range to set the cursor to the end and setting the input value equal to itsself, both work but the highlight ALWAYS flashes first and it looks sloppy. any help or ideas greatly appreciated!!! Tag: Clearing the MRU programs from the start menu Tag: 215518
  - 5
    - Replace consecutive "-" chars with a single character Hi, I would like to use VBScript regexp to locate multiple characters in a string and replace them with a single "-" char. In my case it's multiple "-" chars: E.g.: "Gabriela---Hello--How----Are-You" -->"Gabriela-Hello-How-Are- You" How is it done? Thanks, Gabi. Tag: Clearing the MRU programs from the start menu Tag: 215510
  - 6
    - Record count How can you determine a record count from a paramterized query? <% rsTest = server.createobject("adodb.recordset") conn.Webqry_Test strTest if recordcount = 1 then ...... else ..... end if %> Tag: Clearing the MRU programs from the start menu Tag: 215493
  - 7
    - Cacls help Hello folks, I am trying to figure out why this snippetof the script I have keeps giving me an invalid character error when I run it. I have declared the variables and am trying to fill in the "Cacls" comand switches. any Idea where I messed this one up? Thanks again for any and all help. Daryl 'Option Explicit Dim strusername Dim strHomeFolder Dim intRunError, objShell, objFSO Dim oShell strusername = "UserLoginID" strHomeFolder = "homeDirectory" Set objShell = WScript.creatobject("Wscript.Shell") Set objFSO = CreateObject("Scripting.FileSystemObject") ' Assign user permissions to home directory objShell.run ("%COMSPEC% /c Echo y|cacls"," & strHomeFolder & " /T /E / G " & strusername & ":F) End If If intRunError <> 0 Then Wscript.Echo "Error Assigning Permissions for User" 'End If End Tag: Clearing the MRU programs from the start menu Tag: 215488
  - 8
    - Keyboard Layout/Default Input Language/Language Toolbar - Current I am stumped and hope someone else has come across this: I am trying to change the Default Input Language to the Latin America keyboard layout. I have changed the Regional Options to Spanish (Mexico) by changing the registry when the user first logs in and I have changed the HKU\ & HKCU\ Keyboard Layout\Preload to 0000080A (Latin America) so that at the CTRL-ALT-DEL screen the keyoard layout is correct. My problem is that the under Regional and Language Options -> Languages Tab -> Details -> Text Services and Input Languages Settings tab does not list the Latin America keyboard option and the Language bar needs to be active. The script runs at login and changes the Regional Option (time, date, etc.) for the user, but I need to address the other items. Anyone have any ideas? Tag: Clearing the MRU programs from the start menu Tag: 215485
  - 9
    - Parsing NSLOOKUP for Error Hi I'm writing a script to do a nslookup and return whether the lookup was successful but one things I've noticed is that if I provide an invalid name server to do the lookup, the script still executes no problem because it defaults to the name server configured on the server or workstation. How can I get around this? Basically, I want to capture the following output after the script runs the the following: nslookup <hostname> <bogusnameservername> The output I get is: *** Can't find server address for 'bogusnameservername': Server: <valid nameserverFQDN> Address: 192.168.10.27 I'm reusing some the following code in my script: Function DNSlookup(strHost, strNameServer) sCommand = "%ComSpec% /c nslookup " & strHost & " " & strNameServer 'WScript.Echo sCommand Set objShellRun = objShell.Exec(sCommand) Proceed = 0 Do Until objShellRun.StdOut.AtEndOfStream sLine = Trim(objShellRun.StdOut.ReadLine) NameTag = LCase(Left(sLine,5)) Select Case NameTag Case "name:" Proceed = 1 End Select If Proceed = 1 Then sData = Trim(Mid(sLine,6)) aLine = Split(sLine, ":") sData = Trim(aLine(1)) Exit Do End If Loop How can I parse for: *** Can't find server address for 'bogusnameservername': Thanks, Bryan Tag: Clearing the MRU programs from the start menu Tag: 215482
  - 10
    - Testing for existance of record Why does the following throw an error (An error occurred on the server when processing the URL. Please contact the system administrator): <% Set rsTestForToken = server.createobject("adodb.recordset") conn.Webqry_TestforToken strRandomNumber if rsTestForToken.EOF then Dothisevent 'goes to a sub else %> <script language="Javascript"> alert ("This number already exists") </script> <% end if dothisevent 'more code follows that has worked before changing the above to dynamic SQL %> Tag: Clearing the MRU programs from the start menu Tag: 215478
  - 11
    - Rollover & Stick Effect I've got a table containg 2 records below that I'm trying to achieve a "Roll Over" and "Stick" effect with my HTML. When I test my functions to handle changing the rollover style of each row, it works execpt doesn't change the hover color of the 2nd row that's part of the record. The "MakeChangeActive" function below handles making the cells of the active or "clicked" record turn yellow using the OnClick event. The "MakeChangeOn" and "MakeChangeOff" events are fired using the OnMouseOver and OnMouseOff properties respectively and achieve to rollover effect. Can someone run my example and help me figure out how to force each record's 2nd row to work exactly like each record's 1st row and correctly display the rollover and "stick" effects? CODE: ******************* <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <title>Rollover & Stick</title> <style> td { color: #333333; font-family: verdana,arial,helvetica,sans-serif; font-size: 11px; } .DataTableCellEven { cursor:hand; padding-top: 1px; padding-bottom: 1px; padding-left: 1px; background-color: #EDF0F9; border-top: solid 1px #FFFFFF; border-bottom: solid 1px #C6CEDF; font-family: Microsoft Sans Serif, Arial; color: #3d3d8d; } .DataTableCellOdd { cursor:hand; padding-top: 1px; padding-bottom: 1px; padding-left: 1px; background-color: #E6EBF7; border-top: solid 1px #FFFFFF; border-bottom: solid 1px #C6CEDF; font-family: Microsoft Sans Serif, Arial; color: #3d3d8d; } </style> <script language=vbscript>  Sub MakeChangeActive(MyItem) If Len(LastTouched) > 0 Then IsActive = False LastTouchedPass = LastTouched LastTouched = "" Call MakeChangeOff(document.all(LastTouchedPass)) 'Exit Sub End If For i = 0 To MyItem.children.length-1 MyItem.children(i).style.backgroundColor="#FFFFDD" Next IsActive = True LastTouched = MyItem.ID End Sub --> </script> </head> <body> <br> <br> <table border="0" cellpadding="0" cellspacing="0" width="297"> <form name="form1" method="post" action="test.asp"><input type="hidden" name="ActiveItem" value=""> <tr id="Row_8" onclick="javascript:MakeChangeActive(this);var thisID=8;form1.ActiveItem.value=thisID;" onmouseover="javascript:MakeChangeOn(this);" onmouseout="javascript:MakeChangeOff(this);"> <td width=18 rowspan="2" align="left" valign="top" class="DataTableCellOdd">  </td> <td width=257 class="DataTableCellOdd"><b>Subject Header 1</b></td> <td width=22 class="DataTableCellOdd" valign="top">12/30/07</td> </tr> <tr> <td colspan="2" class="DataTableCellOdd" valign="top">This is the note content. Content 1</td> </tr> <tr id="Row_9" onclick="javascript:MakeChangeActive(this);var thisID=9;form1.ActiveItem.value=thisID;" onmouseover="javascript:MakeChangeOn(this);" onmouseout="javascript:MakeChangeOff(this);"> <td width=18 align="left" valign="top" class="DataTableCellEven" rowspan="2">  </td> <td width=257 class="DataTableCellEven"><b>Subject Header 2</b></td> <td width=22 class="DataTableCellEven" valign="top">12/30/07</td> </tr> <tr> <td width=262 colspan="2" class="DataTableCellEven" valign="top">This is the note content 2.</td> </tr> </form> </table> </body> </html> Tag: Clearing the MRU programs from the start menu Tag: 215476
  - 12
    - Noob question :) Hi all, i've always used vbscript for "simple" things like logon scripts, the hardest thing i've done is a script to reset the local admin password of domain clients, but this evening a new question woke up my mind: vbscript can be used to design something "interactive"? i mean, can i create a script with different "ways" that the user can choose with.. i don't know.. a "select", a checkbox, even a simple text input.. Can i do something like that in a vbs file? Thanks and sorry for the stupid question, i'd like to read some document about that :) Tag: Clearing the MRU programs from the start menu Tag: 215473
  - 13
    - Query wrong? I have the following code to create and run a query (abridged to shorten post): Set qWMISrv = GetObject("winmgmts:\\" & sComputer & "\root\cimv2") Set cFiles = qWMISrv.ExecQuery("Select * from CIM_Datafile Where Drive = 'C:' AND Path = '" & Dir1 & "' AND FileName Like '" & file_stamp & sqldate & "'", , 48) The query this creates is: Select * from CIM_Datafile Where Drive = 'C:' AND Path = 'toFile' AND FileName Like 'AZA_PINT_20080222' When I run this query nothing is returned, even though in C:\toFile I have a file named AZA_PINT_2008_022214.txt Does anyone see what is wrong with this statement? When this completes I try to run a 'for each file in cfiles' statement and it skips everying in the for each, which is where I believe nothing is returned. I've tried adding a messagebox to show me each file in cfiles but it just shows a blank msgbox. Tag: Clearing the MRU programs from the start menu Tag: 215472
  - 14
    - How to use the Win32_PnPSignedDriverCIMDataFile Class I have the following script to list 3rd party drivers. strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_PnPSignedDriver Where Not Manufacturer Like '%Microsoft%' And Not Manufacturer Like '%Standard%' And DeviceClass <> 'SYSTEM' And DeviceClass <> 'PROCESSOR'") For Each objItem in colItems Wscript.Echo "Device Class: " & objItem.DeviceClass Wscript.Echo "Device ID: " & objItem.DeviceID Wscript.Echo "Device Name: " & objItem.DeviceName dtmWMIDate = objItem.DriverDate strReturn = WMIDateStringToDate(dtmWMIDate) Wscript.Echo "Driver Date: " & strReturn Wscript.Echo "Driver Version: " & objItem.DriverVersion Wscript.Echo "Is Signed: " & objItem.IsSigned Wscript.Echo "Manufacturer: " & objItem.Manufacturer Wscript.Echo "INF Name: " & objItem.InfName Wscript.Echo Dim colList, objDriver Set colList = objWMIService.ExecQuery("Associators of " _ & "{Win32_PnPSignedDriver.Name='" & objItem.Name & "'} " _ & "Where AssocClass=Win32_PnPSignedDriverCIMDataFile " _ & "ResultClass = CIM_DataFile" ) 'WScript.Echo "isArray: " & isArray(colList) 'WScript.Echo "isNull: " & isNull(colList) 'WScript.Echo "isEmpty: " & isEmpty(colList) For Each objDriver in colList 'WScript.Echo "Caption: " & objDriver.Name Next Next Function WMIDateStringToDate(dtmWMIDate) If Not IsNull(dtmWMIDate) Then WMIDateStringToDate = CDate(Mid(dtmWMIDate, 5, 2) & "/" & _ Mid(dtmWMIDate, 7, 2) & "/" & Left(dtmWMIDate, 4) _ & " " & Mid (dtmWMIDate, 9, 2) & ":" & _ Mid(dtmWMIDate, 11, 2) & ":" & Mid(dtmWMIDate,13, 2)) End If End Function -- How would one get the files associated with the device drivers? url:http://www.ureader.com/gp/1675-1.aspx Tag: Clearing the MRU programs from the start menu Tag: 215467
  - 15
    - Create Windows in VBScript Hello everyone might be my question is very basic to someone. I wanted to create some customized forms (such as our VB forms) in VBScript. but not sure how to create them. and also I want to put some labels and textboxes or check boxes on that form. I don't want to use HTA. any pointer.. anyone...? thanks shib Tag: Clearing the MRU programs from the start menu Tag: 215460
  - 16
    - script to monitor change in group membership Is there a script that will email me whever a group membership changes? Tag: Clearing the MRU programs from the start menu Tag: 215457
  - 17
    - Auto eject Hello All, I have a removable backup drive, you could eject it by double click My Computer, right click "F" drive (the drive letter assigned to this drive), then click "Eject". The drive will then be ejected from the device. The eject button is not working. How could I write a simple script so that I could double click the script file to eject the drive instead of go through all those steps? Thanks a lot! Sincerely, Ben Tag: Clearing the MRU programs from the start menu Tag: 215452
  - 18
    - Show data in Column A in Column B? I am working with a product named Qlikview. It is setup a little differnt than MS but it uses VB script. I have what they call a chart that looks like a table. Each colunm is something they call an expression? go figure. Anyway I need to have all the data in column A move to column B when I push a button. Here is a sample code that refersh to the main sheet. In Access it would be called a Form. It should be eay but I cant figue it out. Please help! SUB Dashboard ActiveDocument.ActivateSheetByID "SH06" ActiveDocument.ClearAll false END SUB Tag: Clearing the MRU programs from the start menu Tag: 215449
  - 19
    - How do I change service restart configurations I want to change the recovery options on a Windows service, specifically the first and second service failure events. How do I change these settings? Is there a different method I should use instead of VBscript? I would be running this on everyone's machine via SMS2003 with service pack 3 if that's useful to know... Tag: Clearing the MRU programs from the start menu Tag: 215448
  - 20
    - Home drive permissions fro Admin adn user only. Hello all, I have a script that has been taken and modified to make a users creation sript for our environment. It is to create the user and its home share(which it does), and supposed to set the permissions on the share for the Administrator and the User to Full controll. The permissions are not being applied. Here is what I am hoping for from theis script. I want it to pop up a box asking for username desired, First name, Last name, and department. It does all of those. And then in the background it creates a folder on our server in a specifice directory, which it does. Then Iwould like it to go in and break inheritance and give only the user and the admin full control oveer the share. This it doesn't I have been working on this for about a week and don't really understand the ACE,CACLS,DACLS commands. Can some one please look over this and see where I went wrong? Thank you for any imput you can provide 'Option Explicit Dim WshShell, fso, objOU, objUser Set WSHShell = WScript.CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") Set WshNetwork = WScript.CreateObject("WScript.Network") DomainName = "ctc.ctcclient.com" ' "DC=CTC, DC=CTCCLIENT, DC=COM" 'ctc.ctcclient.com" OUNamePt1 = "CTC Staff" DefaultPassword = "Pass#word1" Set objOU = GetObject("LDAP://" & DomainName) InputPrompt1 = "Domain = "&DomainName&vbCrLf&"Container = "&OUName&vbCrLf&vbCrLf&"Enter Users Login ID:" InputPrompt2 = "Domain = "&DomainName&vbCrLf&"Container = "&OUName&vbCrLf&vbCrLf&"Enter Users First Name:" InputPrompt3 = "Domain = "&DomainName&vbCrLf&"Container = "&OUName&vbCrLf&vbCrLf&"Enter Users Surname:" InputPrompt4 = "Domain = "&DomainName&vbCrLf&"Container = "&OUName&vbCrLf&vbCrLf&"Enter Users Job Title:" UserName = InputBox(InputPrompt1, "UserLoginID") FirstName = InputBox(InputPrompt2, "FirstName") Surname = InputBox(InputPrompt3, "Surname") Department = InputBox(InputPrompt4, "Job Title") Set objUser = objOU.Create("User", "CN=" & FirstName & " " & SurName & ",OU=" & OUNamePt1) Set ProfileServer = fso.GetFolder("\\ctcpdxdb01\home$") 'Create User objUser.put "samAccountName", LCase(UserName) objUser.put "userPrincipalName", UCase(UserName) & "@" & DomainName 'FirstName & "." & Surname & "@" & DomainName objUser.put "givenName", FirstName objUser.put "sn", Surname objUser.put "displayName", FirstName & " " & Surname objUser.put "initials", LCase(Mid(UserName,2,1)) objUser.put "description", Department objUser.put "homeDirectory", "\\CTCPDXDB01\HOME$\" & LCase(UserName) objUser.put "homeDrive", "H:" objUser.put "profilePath", "\\ctcpdxad01\profiles$\" & LCase(UserName) objUser.setinfo objUser.setpassword DefaultPassword objUser.accountdisabled = False objUser.setinfo 'Create users home directory If fso.FolderExists(ProfileServer & "\" & UserName) = False Then fso.CreateFolder(ProfileServer & "\" & UCase(UserName)) 'fso.CreateFolder(ProfileServer & "" & UserName & "interface") End If 'Share user home directory AdminServer = "CTCPDXAD01" ShareName = LCase(Username) & "$" FolderName = "H:" & UserName Set Services = GetObject("WINMGMTS:" & "{impersonationLevel=impersonate,(Security)}!\\" & AdminServer & "\ROOT \CIMV2") Set SecDescClass = Services.Get("Win32_SecurityDescriptor") Set SecDesc = SecDescClass.SpawnInstance_() Set Share = Services.Get("Win32_Share") Set InParam = Share.Methods_("Create").InParameters.SpawnInstance_() InParam.Properties_.Item("Access") = SecDesc InParam.Properties_.Item("Description") = "Home Directory" InParam.Properties_.Item("Name") = ShareName InParam.Properties_.Item("Path") = FolderName InParam.Properties_.Item("Type") = 0 Share.ExecMethod_"Create", InParam ReplaceACL ProfileServer & "" & Username,"add(" & UserName & ":F) +add(domain admins:F)" Set WshShell = Nothing Set fso = Nothing Set WshNetwork = Nothing Set objUser = Nothing Set NewShare = Nothing Set Services = Nothing Set SecDescClass = Nothing Set SecDesc = Nothing Set Share = Nothing Set InParam = Nothing Set sec = Nothing Set sd = Nothing Set dacl = Nothing Set ace = Nothing Set oIADSUser = Nothing Set objGroup = Nothing 'Set permissions on users home directory Function ReplaceACL(foldernm, permspart) foldernm = ProfileServer & "" & Username If fso.FolderExists(foldernm)= False Then Else ChangeACLS foldernm, permspart, "REPLACE", "FOLDER" End If End Function 'Edit ACLS of specified folder Function ChangeAcls(FILE,PERMS,REDIT,FFOLDER) Const ADS_ACETYPE_ACCESS_ALLOWED = 0 Const ADS_ACETYPE_ACCESS_DENIED = 1 Const ADS_ACEFLAG_INHERIT_ACE = 2 Const ADS_ACEFLAG_SUB_NEW = 9 Set sec = Wscript.CreateObject("ADsSecurity") Set sd = sec.GetSecurityDescriptor("FILE://" & FILE) Set dacl = sd.DiscretionaryAcl If UCase(REDIT)="REPLACE" Then For Each existingAce In dacl dacl.removeace existingace Next End If 'break up Perms into individual actions cmdArray=split(perms,"+") For x=0 to ubound(cmdarray) tmpVar1=cmdarray(x) If UCase(left(tmpVar1,3))="DEL" Then ACLAction="DEL" Else ACLAction="ADD" End If tmpcmdVar=left(tmpVar1,len(tmpVar1)-1) tmpcmdVar=right(tmpcmdVar,len(tmpcmdVar)-4) cmdparts=split(tmpcmdVar,":") nameVar=cmdparts(0) rightVar=cmdparts(1) If ACLAction="ADD" Then If UCase(FFOLDER)="FOLDER" Then addace dacl, namevar, rightvar, ADS_ACETYPE_ACCESS_ALLOWED, ADS_ACEFLAG_SUB_NEW addace dacl, namevar, rightvar, ADS_ACETYPE_ACCESS_ALLOWED, ADS_ACEFLAG_INHERIT_ACE Else addace dacl, namevar, rightvar, ADS_ACETYPE_ACCESS_ALLOWED,0 End If End If Next For Each ace in dacl If instr(ucase(ace.trustee),"NT AUTHORITY") then newtrustee=right(ace.trustee, len(ace.trustee)-instr(ace.trustee, "")) ace.trustee=newtrustee End If Next sd.DiscretionaryAcl = dacl sec.SetSecurityDescriptor sd End Function Function addace(dacl,trustee, maskvar, acetype, aceflags) ' add ace to the specified dacl Const RIGHT_READ = &H80000000 Const RIGHT_EXECUTE = &H20000000 Const RIGHT_WRITE = &H40000000 Const RIGHT_DELETE = &H10000 Const RIGHT_FULL = &H10000000 Const RIGHT_CHANGE_PERMS = &H40000 Const RIGHT_TAKE_OWNERSHIP = &H80000 Set ace = CreateObject("AccessControlEntry") ace.Trustee = trustee Select Case UCase(MaskVar) Case "F" ace.AccessMask = RIGHT_FULL Case "C" ace.AccessMask = RIGHT_READ or RIGHT_WRITE or RIGHT_EXECUTE or RIGHT_DELETE Case "R" ace.AccessMask = RIGHT_READ or RIGHT_EXECUTE End Select ace.AceType = acetype ace.AceFlags = aceflags dacl.AddAce ace End Function MsgBox "The creation of user: " & FirstName & " " & Surname & VbCrLf &_ "has completed without error" 'Functions Tag: Clearing the MRU programs from the start menu Tag: 215443
  - 21
    - Can I quit script execution? Sorry if this too newbie... I just started writing .VBS scripts. I figured out how to execute them by running wscript.exe on the command line and get them to open in VS2003 so I can execute and debug line by line. I just discovered though that when I have found whatever problem I was trying to find if I tell it to stop debugging rather than stopping execution it lets the script run all the way through. Is there any way, when I am stepping through the script, to kill the running script so that I can fix the error? Tag: Clearing the MRU programs from the start menu Tag: 215442
  - 22
    - Locating files Does anyone have a creative solution for getting the script to pickup files named ABC_FILS*? I have a DB dumping data to .txt files named: ABC_FILS_2008020715.TXT, where there's the datestamp appended and the seconds since midnight. I need to have a script rename the files to ABC_FILS.TXT, but I'm not sure how to get the script to pick up the file since the last digits (in this case 15) can be any number larger then 1. Multiple files could possibly be present, generated with different seconds since midnight. Does anyone have a creative solution for getting the script to pickup files named ABC_FILS*? Tag: Clearing the MRU programs from the start menu Tag: 215434
  - 23
    - Createtextfile with today's date I would like to create a Createtextfile with today's date. Here is my script: On Error Resume Next Const ForReading = 1 Const ForWriting = 2 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile("U:\Scripts\stmops\AD_ComputersSTMOPS.xls_2_19_08.txt", ForReading) Set objOutputFile = objFSO.CreateTextFile("c:\Ping_Computers_Output " & Date & " Unavailable.txt", ForWriting) WScript.Echo objOutputFile - will not create file ***When I take out the " & Date & " the file get created. Tag: Clearing the MRU programs from the start menu Tag: 215431
  - 24
    - Running VBScript using group policy Hi, Can we use Active Directory Group policy to run VBScript while user logon to the DomainPCs? Here my case is, i have a script with me which will install application aftr running it. I want to run this script in each and every machine in my domain. So i thought to use Group policy to run this script in my domain desktop PCs How can we implement this? Thanks mahesh Tag: Clearing the MRU programs from the start menu Tag: 215427
  - 25
    - How do I Split text using Split() method with case insensitivity? Hi, I would like to split text according to Title HTML tag: text_arr = Split(page_text,"<title>") The problem is that Split is case sensitive, and when I receive tag with TITLE, instead of title - the split fails. I do not want to use lcase(page_text), because I want to preserve the original upper-lower cases in page_text. Is there a way to perform case insensitive split? Thanks!! Gabi. Tag: Clearing the MRU programs from the start menu Tag: 215424

I'd like to clear the MRU programs from the XP start menu (the ones that get
added "below the line", not the ones pinned above the line) with a script,
but I can't even find where they're stored. I see there's the verb "Remove
from this list" associated with each entry, but if I can't find the
container to see the contents I can't invoke the verb. If I list the Items
in the special folder START_MENU the only thing that shows up is Programs.

Maybe that's not even the way to go about it. Any ideas?

Thanks,

Tom

Top