Jump to content

ChrisH

Edu Supporters
  • Posts

    5,590
  • Joined

Everything posted by ChrisH

  1. Ok that's good. I have managed to get it up and running as needed. The only trouble I did have is when I did a fresh install on the old hardware, then restored the config from the temp one I had no web interface. I had to go into the setup at the console and had to set the default interface.
  2. Now you know it's a permission issue you can tighten that permission up a bit.
  3. The software is installed under the context of the machine account as it's done during startup. As an experiment give everyone read and see if that works.
  4. Hmm gotta go to a course on Friday but only got my motorbike on that day. Might have to get the train.
  5. I dont think you can apply a transform to software that is already installed and you wont be able to fool it into using your new one as it will have some kind of unique code probably. Redeploy is going to be you best bet.
  6. I was just making sure you were awake
  7. Ok I have reinstalled and got rid of the database error. But I am getting this message spammed all the time now which I don't remember it being normal. I did cheat slightly and use the replication feature to get all the settings over so I may have brought part of the old problem over. Anyone get anything like this is their real time system log?
  8. Do you have FTP access? If so the password will be in one of the config files I would imagine
  9. Use chr(34) instead of double quotes it will be easier to figure out.
  10. My recommendation from the last post regarding concatenation is very relevant when using the run command. Build it up outside the run statement as a variable then use that. Set read = CreateObject("Scripting.FileSystemObject") Set prncmd= wscript.createobject("WScript.shell") strData = read.OpenTextFile(newfile,ForReading).ReadAll arrLines = Split(strData,vbCrLf) For Each strLine in arrLines RunCommand = "cmd /K cd c:\Program Files\A-PDF Rename\" & prncmd.exe" Y:\" & strLine & " -CY:\Resources\macro.txt -i", 0 " prncmd.run RunCommand Next Something like that will work. It probably wont work though because of the space in "program files" you can fix that with some single quotes inside or some Chr(32) or whatever it is eg "cmd /K cd 'c:\Program Files\A-PDF Rename\'" & prncmd.exe"
  11. Thanks missed the PMs got em now. Have replied.
  12. You need to look up the file handling routines. You can open the text file and read it line by line into a variable and then do what you want with it. Something like this: Const ForReading = 1 Set ObjFSO = CreateObject("Scripting.FileSystemObject") Set TextFile = ObjFSO.opentextfile("c:\pdflist.txt",forreading) do while TextFile.atendofstream <> true FileName=TextFile.readline loop
  13. It will probably depend on your licence.
  14. References are held as a collection: VBE.ActiveVBProject.References never played with this but it was a suggestion for a problem I had. I find the best place for asking questions is VBA Express Portal . There is a few friendly MVPs on there and I always seem to get a good thorough answer.
  15. Ok I am now back to the original problem with the latest drivers. The board is not recognised when the user logs on unless the USB is disconnected and reconnected. Is there some sort of firmware update I can try for the boards?
  16. When code gets long like this and you get funny errors I find it best to assign the file paths to variables instead of all that concatenation in the command. Set fso = CreateObject("Scripting.FileSystemObject") Const DestinationPath = "\\Pghwms1\Pyramid\Report\Processed\" Set pyramid = fso.GetFolder("\\Pghwms1\Pyramid\Report\Test\") For Each file In pyramid.Files OriginalPath = chr(34) & "\\Pghwms1\Pyramid\Report\Sage\" & file.Name & chr(34) if Left(file.name, 2) = "00" then fso.MoveFile OriginalPath, DestinationPath Next You can probably do away with the Chr(34) in the assignment as well.
  17. Ah its that whole long line, you start to sport allsorts
  18. & chr(34), chr(34) Not sure that comma should be there.
  19. You need to see what things are being assigned what as mentioned above use an echo to find what the variables are getting assigned; Set fso = CreateObject("Scripting.FileSystemObject") Set pyramid = fso.GetFolder("\\server\share\invoices") For Each file In pyramid.Files Wscript .echo "\\server\share\invoices\Sage\" & File.Name" if Left(file.name, 2) = "00" then fso.MoveFile "\\server\share\invoices\Sage\" & file.Name, "\\server\share\invoices\Processed" & file.name Next For Each subdir in pyramid.SubFolders Set pyramid = pyramid.GetFolder("\\server\share\invoices" & subdir.name) For Each file In pyramid.Files if Left(file.name, 2) = "00" then fso.MoveFile "\\server\share\invoices\Sage" & subdir.name & "\" & file.Name, "\\server\share\invoices\Processed" & file.name Next Recurse(subdir) Next
  20. I believe this line is wrong if Left(file.name, 2) = "00" then fso.MoveFile "\\server\share\invoices\Sage" & file.Name, "\\server\share\invoices\Processed" & file.name if Left(file.name, 2) = "00" then fso.MoveFile "\\server\share\invoices\Sage\" & file.Name, "\\server\share\invoices\Processed" & file.name Basically the path is ending up \\server\share\invoices\Sage00filename.txt instead of \\server\share\invoices\Sage\00filename.txt
  21. Looks like my support has lapsed so I am going to reinstall to a new box. Will I get run into problems at the license stage if I try this?
  22. Thanks for the suggestion, it sounds like a good one but on that page it tells me it cant connect to the DB so at least I sort of know what the problem is. I still seems to have internet access though...
  23. I am getting a lot of slow downs on the filter and when I look at the log I get this: Any ideas?
  24. I managed to pull the article ID out of your link http://uk.prometheankb.com/display/4n/kb/article.asp?aid=204748&tab=search
  25. ChrisH

    Left 4 Dead 2

    So who has pre ordered? I have been playing the demo and it seems good. Anyone else been playing the demo and think there is enough new stuff to warrant a new game?
×
×
  • Create New...