Mr_J

After eventually putting the serial number in here https://emea.dynabook.com/support/businesslaptops/ i got it to at least accept that it was a valid model number ... but as the image shows ... there are no drivers available!! AMAZING!

thanks all! the ones that came out of the Casio LED are thinner, so must be M2's. much appreciated!

Anyone know the spec of the mounting bolts needed for epson's? M4 / M6 etc (EB-X39 in particular)

So, we're still trying to get this working! Smoothwall have been amazing and spent so much time trying to get this working - huge thanks to them. But I think we have all hit a brick wall with this! It's not so much the reading eggs IPs that are the issue ... its GOOGLE! See bellow reply from smoothwall: ====================================================================================== Hi, Thank you both for your patience on this issue. As discussed on the phone this afternoon, we have narrowed the issue down to Google Safesearch. We can see from the real-time web filter logs that with Safesearch enabled, the application fails with a Certificate error, which is generally caused by certificate pinning. This is designed to ensure that they send encrypted data over insecure networks. The down side of this is that they use an internally hard coded certificate location, and the MITM HTTPS certificate breaks the apps certificate "chain of trust" which then stops the applications from working correctly or at all. This is unfortunately in the apps design to stop MITM attacks, so there's no work around apart from not inspecting the traffic from the application. Usually it is fine to not inspect traffic from a specific application, as nothing else uses the URL's / domains, but unfortunately in this case, the application is build on Googles API's which trigger Safesearch.

Hi @mrwoberts Thank you for the reply. I've tried adding these IP's as a location in the exceptions and its still not having any of it. I've tried "anywhere" and also specified IP's. I don't really want to exclude the ipad's from HTTPS inspection completely - only when it's using this particular app. Very frustrating now as we are having the same thing with another app... "prodigy maths". J

We are trying to get the reading eggs app (https://readingeggs.co.uk/apps/) to work on iPads - through our Smoothwall S4 device. We have been on to Smoothwall support and they've been great, but all we have found is that in order to get it to work we need to do one of the following: - Disable Google Safe Search - Disable HTTPS Inspection Neither of which are an option really! We have the list of URL's and IP's that reading eggs need unblocking (which is pretty extensive btw - i'll put it at the end of this post!) - butting these in the exclusions doesn't seem to resolve it, so i'm looking to the wonderful people on here! There are a lot of Smoothwall appliances out there, and they even sponsor this group! SURELY there is one user out there with reading eggs on a Smoothwall site.... please ... ANYONE! URLS unblocked: readingeggspress.com.au stats.pusher.com student.mathseeds.com 1. allow access to *.readingeggs.com 2. allow access to .readingeggs.com.au 3. allow access to .readingeggs.co.za 4. allow access to .readingeggs.co.uk 5. allow access to *.readingeggspress.com 6. allow access to *.readingeggsassets.com 7. 180.240.184.0/24 8. 200.201.194.16/28 9. 200.201.213.48/28 10. 192.16.0.0/18 11. 5.104.64.0/21 12. 46.22.64.0/20 13. 68.232.32.0/20 14. 72.21.80.0/20 15. 93.184.208.0/20 16. 110.232.176.0/22 17. 117.18.232.0/21 18. 108.161.240.0/20 19. 117.103.183.0/24 20. 198.7.16.0/20 21. 192.30.0.0/19 22. 192.16.10.0/24 23. 213.65.58.192/26

you were on my list for tomorrow, now you're TOP of my list for tomorrow!

i generally use a sub-folder for "documents" so their username folder still remains un-changed. I then have folders for favorites and desktop so its all in one place. annoying i know, but its worked on every site i've done

of course i spotted it @LosOjos! *CougH* :s i just didn't want to make you feel bad! thanks again!

awesome, thanks so much! i'm sure this is going to be useful for a few people! J

can't thank you enough for this! its going to make a huge difference!

looking great, thanks for that! is there an easy way to specify multiple folders? OR call the same script for various folders in the BAT file, but append the XLSX file instead of creating a new one? also - i dont want subfolders, just the folders that are in the folder i specify. I tried commenting this out: 'For Each oSubFol in oFol.SubFolders 'mySheet.Range("$A$1").Offset(lineCount, 0).Value = "FOLDER" 'mySheet.Range("$A$1").Offset(lineCount, 1).Value = oSubFol 'lineCount = lineCount + 1 'Iterate oSubFol, mySheet, lineCount 'Next but then i only got one result - the folder i specify!

Thanks again! i dont want subfolders, just the directories that are in the one folder... \\server1\share1 I'll then modify it for the other 30+ servers i have. its only listing FILES not DIRECTORIES - its the directories i need, sorry! tried changing the saveas and i get "SaveAs method of workbook class failed" - i've changed it to: myWorkbook.SaveAs oFol & "c:\file_list.xlsx"

thanks LosOjos - very nice, but it only gets the last item in the folder - and its getting files, rather that just folders. (so the XLSX file just had one line, with an MSI file in A1, despite there being 50+ folders). also the output is saved in the remote location, not the local location of where i am running the script from (C:\) any pointers would be greatly appreciated! J

i tried that, didnt get it working Dim fPath Dim fCSV Set xl = CreateObject("Excel.Application") xl.Visible = True Dim wbCSV Dim wbMST Set wbMST = xl.ActiveWorkbook fPath = "C:\csv\" 'path to CSV files, include the final \ Application.ScreenUpdating = False 'speed up macro Application.DisplayAlerts = False 'no error messages, take default answers fCSV = Dir(fPath & "*.csv") 'start the CSV file listing Do While Len(fCSV) > 0 Set wbCSV = Workbooks.Open(fPath & fCSV) 'open a CSV file 'delete existing sheet in Mstr If Evaluate("ISREF('[" & wbMST.Name & "]" & ActiveSheet.Name & "'!A1)") Then wbMST.Sheets(ActiveSheet.Name).Delete End If ActiveSheet.Move After:=wbMST.Sheets(wbMST.Sheets.Count) 'move new sheet into Mstr fCSV = Dir 'ready next CSV Loop Application.ScreenUpdating = True Set wbCSV = Nothing