Jump to content

ChrisH

Edu Supporters
  • Posts

    5,590
  • Joined

Everything posted by ChrisH

  1. Try this line instead strCmdLine = strLocationXcopy & " " & chr(34) & objFile.path & chr(34) & " " & chr(34) & strDestFolder & chr(34) & " /o"
  2. Lets try a little debugging to see if any paths look wrong or anything. This will pop up a box and not do any copying. strSourceFolder = "\\nas\Student_Drives\05\teststudent\My Music" 'eg d:\users\students strDestFolder = "\\nas\Student_media\Music Files" 'eg d:\share strLocationXcopy = "c:\xcopy.exe" 'eg c:\xcopy.exe set objFSO = createobject("Scripting.FileSystemObject") Set WshShell = WScript.CreateObject("WScript.Shell") GetFiles strSourceFolder sub GetFiles(byval strDirectory) set objFolder = objFSO.GetFolder(strDirectory) for each objFile in objFolder.Files If right(objFile.path,3) = "mp3" Then strCmdLine = strLocationXcopy & " '" & objFile.path & "' " & "'" & strDestFolder & "' /o" Wscript.echo strCmdLine 'wshShell.run strCmdLine End If Next for each objFolder in objFolder.SubFolders GetFiles objFolder.Path next end sub
  3. Look at my second post and try that sometimes it just works doing it that way.
  4. Also I never like concatenating a string in the run statement, especially when dealing with cmdline apps. try If right(objFile.path,3) = "mp3" Then strCmdLine = strLocationXcopy & " '" & objFile.path "' " & "'" & strDestFolder & "' /o" wshShell.run strCmdLine End If
  5. The command line is wrong then try doing it manually from the the command prompt. Does the "/o" want to got after strLocationXCopy?
  6. You are missing an ampersand wshShell.run strLocationXcopy & " '" & objFile.path "' " & "'" & strDestFolder & "' /o" should be wshShell.run strLocationXcopy & " '" & objFile.path & "' " & "'" & strDestFolder & "' /o" its the bit after objFile.path
  7. You need to iterate through the users using some kind of loop and then if left(strName) = "0" then objUser.put "DisplayName", strFullName objUser.SetInfo . Something like that I would have the loop start in an OU you have defined. You could cobble this code together with the help of google and cut and paste.
  8. You forgot content management switch
  9. Try some of the tools here: http://www.wisesoft.co.uk/software/bulkadusers/default.aspx These may do what you want else the VB script to do what you want is fairly easy and would only involve about 3 lines extra to what you have got. Off the top of my head the code is things like objUser.put "DisplayName", strFullName objUser.SetInfo
  10. Come on don't be shy 55 views and no comments
  11. I just caught it saying that one of the servers was in the middle of shutting down. That didn't go down to well with the class doing Achieve tests when they all got kicked out.
  12. I am looking into stepping into the world of VMware over summer as well as a server 2008 infrastructure. I have everything I need for the virtual machines planned as well as the backup regime etc but the only thing I am not happy with is we only have the 1 SAN (HP 2012 FC ) and I would like some kind of real time backup in case it: a) Loses more than 2 disks. b) Blows both power supplies. c) Fries both controllers. d) The chassis goes to silicone heaven (Careful when Googling that the results are mixed ) So in this event I would like to be able to swap over to another device that will be holding all files. I am not after automatic fail over or anything like that, I just want a copy of what was running on the SAN. I will have the old file server at my disposal which has plenty of bays to add disks if I need.It can also be connected to the SAN in a read capacity through its HBA. It wont be as fast as the SAN but it will be faster than nothing! So after plenty of reading of previous threads etc and wishing I had a couple of these nice shiney boxes from Sun I have come across the following things: Rsync Openfiler DRBD So good people of Edugeek please lead me towards the light as I am not sure which way to go. I cannot afford any more hardware so I need to work with what I have got. Ps anyone mixing SATA and SAS disks in a HP 2012 Chassis? Thanks in advance ChrisH
  13. I would be wary of the job evaluation messing with that wage next year. Edit: Mind you it's Blackburn so they may have done the JE already.
  14. Plenty of script examples out there. Just change the computer name. Const Impersonate = "winmgmts:{impersonationLevel=impersonate}!\\" computer = "." Set oWMI = GetObject(Impersonate & computer & "\root\cimv2") Set QueryWMI = oWMI.ExecQuery("SELECT * FROM Win32_OperatingSystem") For Each oItem In QueryWMI spVer = oItem.ServicePackMajorVersion Next MsgBox "This computer has Service Pack " & spVer & " is installed."
  15. Click on the dots on the graphs or use batch printing to see the individual results. Also are you using the stuff under Focus > Assesment > Trend Analysis ? You may need to import some of these lines via Routines > Data In > Performance Analysis.
  16. Is it a log to a file or the system log?
  17. Not that I use them but Red Dwarf names would be good.
  18. We did the same this morning. They are currently looking into it.
  19. I have just queried the fact that they are asking for a password on the unblock form. I assume it is the users email password but we have our own exchange server and not the county hosted services.
  20. I would be up for that
  21. Grrrr argggggggggg. Just got my head around this. If you take up the offer to change from googlemail to gmail your marketplace downloads will stop working. You will be able to get your email and browse the marketplace but it will get stuck on starting downloads. This is instantly fixed by swopping back to googlemail. Not very clever Google!
  22. It does do a lot of strain especially if you are pounding the pavement. I prefer a brisk walk of 3 miles as my joints can handle that and I still get my heart rate up .
  23. You can also use the replication feature for this as well and just turn it off when your ready.
  24. Has anyone had any experience of HP PhotoSmart Pro B9180?
×
×
  • Create New...