I haven't played with Monad shell for a while, the next thing I know there is a new scripting language called "Microsoft PowerShell". At first, I thought it's a brand new language, but actually they renamed Monad and made it PowerShell. After installation, I tried to run one of my
I am playing around with WQL today. For a longest time, I couldn’t get this query to work. Set colFiles = objWMIService.ExecQuery (“SELECT * FROM CIM_DataFile” & _ ” WHERE Drive = ‘c:’ AND Extension = ‘mdb’ And Path = ‘\\windows\\’ “) Have you noticed anything wrong with the query?
Someone at the newsgroup asked this question. This is the VBScript that I wrote to accomplish this. Dim objExcel Set objExcel = WScript.CreateObject(“Excel.Application”) objExcel.Visible = TRUE objExcel.Workbooks.Open “C:\\bintest.xls” objExcel.Workbooks(1).Activate objExcel.Workbooks(1).Worksheets(1).Range(“A1”).Select Dim sLinkAddress sLinkAddress = “http://www.google.com” objExcel.Workbooks(1).Worksheets(1).Hyperlinks.Add _ objExcel.Selection, sLinkAddress objExcel.Workbooks(1).SaveAs “C:\\bintest.xls” objExcel.Quit set objExcel = nothing
Function Found(strTarget, strPattern) Dim regEx Set regEx = New RegExp regEx.Pattern = strPattern regEx.IgnoreCase = False Found = regEx.Test(strTarget) set regEx = Nothing End Function
dtDate = "5/2/2005" strSearchFolder = "C:Windows" Set objFSO = CreateObject("Scripting.FileSystemObject") WScript.Echo "File(s) last accessed on: " & dtDate & " in: " & strSearchFolder EnumAndCheckFiles objFSO.GetFolder(strSearchFolder), dtDate Sub EnumAndCheckFiles(objFolder, dtDate) Set objFiles = objFolder.Files For Each objFile in objFiles CheckFile objFile, dtDate Next For Each objSubfolder in objFolder.SubFolders EnumAndCheckFiles objSubfolder,