Jump to content

burgemaster

Members
  • Posts

    1,005
  • Joined

Everything posted by burgemaster

  1. Any official links on this one? This is dreadful news!!! I have just finished emergency planning with the first 25-30% cut and we just about scrapped by!!! this will be terrible if true!!!
  2. MAKE SURE you update the FW to the latest !!! The one before newest FW has a bug that when used with any other WAP200`s on the same network they ping each other continually after about an hour. We have 12 and it brought the network to a halt!!!
  3. I think he means anything new to look out for: 1) theres library configuration via GPO 2) you can setup mutliple password policies for different users 3) lots of new policies to play with.... 4) dont use GPO to restrict the "Personalisation" bitlet in the control panel or you get an interesting "EXPLORER.EXE Unknown ERROR" popup on login Good luck
  4. I sorted this with a script if anyone ever has the same problem: The BAT script loads truecrypt, mounts the encrypted drive then calls a VBS Script to share the folders after the encryption password has been entered. BAT script: @echo off title Add Hard Drive echo ENTER PASSWORD into truecrypt..... @ "C:\Program Files (x86)\TrueCrypt\TrueCrypt.exe" /auto favorites /quit cls setup_shares.vbs setup_shares.vbs VBS script: Const FILE_SHARE = 0 Const MAXIMUM_CONNECTIONS = 25 strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set objNewShare = objWMIService.Get("Win32_Share") errReturn = objNewShare.Create _ ("g:\Music", "Music", FILE_SHARE, _ MAXIMUM_CONNECTIONS, "Music share for XBMC") errReturn = objNewShare.Create _ ("g:\Movies", "ovies", FILE_SHARE, _ MAXIMUM_CONNECTIONS, "Movies share for XBMC")
  5. Sounds like you have "Loopback Processing" applied in one of your group policies As this will apply to any user... Do a Result of Group Policy and check: Administrative Templates, System, Group Policy, Loopback Policy
  6. The setup i have at home is I have one hard drive for the OS, and a separate HD where the whole drive is encrypted with truecrypt. When I login I have to enter the password and the encrypted drive then shows up in "My Computer" The problem is that i have 2 shared folders for my media centre, "Movies" and "Music" Everytime that the drive is re-added the shares get removed? The "shared" icon on the folder stays but when you look at the properties of the folder it is no longer shared???. Does anyone know why this is???, i dont think its win7 specific. Is there maybe a script that can setup a shared folder quickly? Thanks in advance http://img339.imageshack.us/img339/9026/45637825.jpg
  7. Thanks James, Server 2008 R2 running Hyper-V. (2 Core installs and 1 full enterprise) 16GB RAM on each host Each virtual server was created from a "Psychical 2 Virtual" conversion Managed with Microsoft Virtual Server Manager.
  8. Hi, Im hoping someone can help me here who has a virtual network setup... We currently have 3 x virtual server hosts. Each host has 4 virtual servers running on it. I am a little confused on the networking and we are currently having a problem with network connectivity on a couple of servers. When pinging the virtual server we get replys upto 14ms every now and again. This seems to be playing havoc with our thin clients. Each host has several network connections, each of these are connected 1gig back to our main switch. Am i right thinking that the correct setup is that on each host, one is used to connect the virtual servers to the network and the other is used for communication between the hosts? Should these "communication connections" be going back to the main switch or should they be connected to a seperate switch that isnt connected to the network? I am managing the virtual servers with Virtual Machine Manager and when looking at the Network overview it looks seriously wrong!! lol http://www.uploadgeek.com/image-D99B_4C231987.jpg All servers have connectivity but pinging some of them i get weird results? http://www.uploadgeek.com/image-F2B0_4C231A06.jpg Any help would be appreciated !!
  9. incase it hasnt been mentioned the website section instructions are actually a copy of the script setup instructions.
  10. I think it must be my permissions on the destination folder as it works perfectly when set to: C:\files Thanks for all your help mate!!!
  11. Chris thanks so much !! This is now 99% working !!!! It is copying all the files perfectly, but it is NOT copying the permissions over.... It is copying the "Owner" which i guess is the /o switch. MS say "To preserve permissions when files and folders are copied or moved, use the Xcopy.exe utility with the /O or the /X switch" I have also tried swapping to X, still no good But I think the scripting part is doing its job! Thanks again Script now: 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 & " " & chr(34) & objFile.path & chr(34) & " " &chr(34 )& strDestFolder & chr(34) &" /o" &" /x" wshShell.run strCmdLine End If Next for each objFolder in objFolder.SubFolders GetFiles objFolder.Path next end sub
  12. It looks good apart from it has single ' instead of " on the file paths? is that allowed? Output: c:\xcopy.exe '\\nas\Student_Drives\05\teststudent\My Music\Skindred - Nobody.mp3' '\\nas\Student_media\Music Files' /o
  13. Popups appear alot faster than before but still contain "Invalid Number of parameters" Also did you cut and paste from original post and not mean to miss out the & after objFile.path ? Thanks Tim
  14. XCOPY source [destination] option xcopy "\\nas\Student_Drives\05\teststudent\My Music" "\\nas\Student_media\Music Files" /o works fine.... must be a problem with the script (i think)
  15. Were getting somewhere thankyou Now getting lots of cmd windows opening and closing, but they are all failing with "Invalid Number of parameters" Nothing gets copied
  16. great stuff !! thankyou for trying this for me, I dont know where id be without all you edugeek scripting experts! Unfortunetly im getting: Script: C:\test.vbs Line: 14 Char: 56 Error: Expected end of statement Code: 800a0401 Source: MS VBScript Compilation Error hope this means more to you than it does to me!!! Heres the exact code I used: 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 wshShell.run strLocationXcopy & " '" & objFile.path "' " & "'" & strDestFolder & "' /o" End If Next for each objFolder in objFolder.SubFolders GetFiles objFolder.Path next end sub
  17. Correct thankyou So you would be using xcopy in a batch script?
  18. hehe, The rename Script will be run regularly in that share, as in the future the only place that they will be able to save MP3 files to will be the new share. So they copy a file into there and it then gets renamed. This script will only be run once to MOVE all their current MP3 files. Thanks Tim
  19. Hi mate, Students will hide there MP3 collection in eg. N:/school work/ict/homework/dont go in here/music..... I want to be able to move them from all these various directories to one central location. For the other script that renames it needs to read the owner of the file. If I copy it would replace me as the owner. If i was to rename first, then when they are moved it would then ammend myself as the owner when the script next runs.
  20. As srochford has kindly sorted my other script, I can now move all of the students MP3 out of their home drives to a shared folder. I want to move all MP3`s that students have from any folder in their homedrives ( N: ) to a single folder on the common drive. e.g (O:\Student Music\Year 9) I need to also copy the permissions (or just owner), so that my other new script can then rename the files from maybe mysong.mp3 to 09Jack.Jones_mysong.mp3 Ive found that xcopy can copy the permissions with the /o switch. and xxcopy can copy from multiple directories to a single folder. But both cant do both (i think) Can anyone please suggest a way I can do this? Thanks in advance
  21. You are a star !!!!! Just tested and its working perfectly! I think that I will just devide the MP3 folder in the common drive into Year groups. I will also only allow students to enter their year group folder. Not sure if the ICT teachers will like this as sometimes they send work off to be marked and if their webpage links to a drive other than the website root it wont work. Maybe I could make the mp3 folder accessable on the internet? and get them to link to it from a weblink? ANYWAY... THANKS AGAIN MATE!!
  22. Just also thought, I could use this script also to run on the "Staff Share" in the "School Photos" folders. Staff are using all their quotas but have not idea which files they copied to the network over the years. Ive found this script that will Append the Date to the end of a file, if it allready has the date it doesnt touch it, so could this and the above be made into one script maybe? Dim file1, file2 file1 = "C:\scripts\newfile.csv" ' file2 = "C:\scripts\newfile" & year(date) & month(date) & Day(Date) & ".txt" file2 = "C:\scripts\newfile_" & Year(Date) & Right("0" & Month(Date),2) & Right("0" & Day(Date),2) & ".csv" Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(file1) = true then If fso.FileExists(file2) = true then fso.DeleteFile(file2) End if fso.MoveFile file1, file2 'else ' msgbox "File does not exist" End If Set FSO = Nothing
  23. As per title I am looking for a rename script that will ammend the ntfs "Owner" to the start (or end) of the filename. Eg. my_mp3_file.MP3 ----> 06John.Jones_my_mp3_file.MP3 Problem: Students are abusing there network homedrive and filling with MP3 files. I cannot disbale all MP3 as they do legitimately use MP3 for blogs, music, ict work etc.... I am planning to delete all MP3 from thier home drives and then ban mp3`s to be copied there. I will then create a common area for students to copy thier MP3 files to that they require for work. I would schedule this every 10min or so to rename any files that they copy to the share. They would not be able to rename delete etc only read. Can anyone please help? Im pretty dreadfull in VBS !! To make it harder, It will also have to not rename any files that already have been renamed on the last sweep! So if the filename allready has the owner then do not rename. Thanks in advance To start ive found this script that reads the owner of any files in "C:\Scripts" and puts it into a popup: Set objShell = CreateObject ("Shell.Application") Set objFolder = objShell.Namespace ("C:\Scripts") Set objFSO = CreateObject("Scripting.FileSystemObject") Dim arrHeaders(13) For i = 9 to 10 arrHeaders(i) = objFolder.GetDetailsOf (objFolder.Items, i) Next For Each strFileName in objFolder.Items For i = 9 to 10 If i <> 9 then Wscript.echo arrHeaders(i) _ & ": " & objFolder.GetDetailsOf (strFileName, i) End If Next Next
  24. If you are using the JG28K key I would advice that you update your key ASAP or you may soon be seeing the below at logon, which certainly wont look good on your dept!!! http://sasat.files.wordpress.com/2008/05/wga-notification11.jpg Here are tested and working scripts I have used to change the key at login: 1) Create a new group policy linked to the OU containing PCs you wish to change key. 2) Edit Computer Configuration / Policies / Windows Settings / Scripts / Startup 3) Add the following VBS Script (after editting in your new key and the path to point to your netlogon): on error resume next Set objShell = wscript.createObject("wscript.shell") wscript.sleep(10000) '1 second objShell.Run("\\XXXXXXXX.local\netlogon\ChangeVLKey.vbs KEYKE-YKEYK-EYKEY-KEYKE-YKEYK"), 0 4) Save the following code below as ChangeVLKey.vbs to your netlogon folder (no need to edit) ' ' WMI Script - ChangeVLKey.vbs ' ' This script changes the product key on the computer. ' '*************************************************************************** ON ERROR RESUME NEXT if Wscript.arguments.count<1 then Wscript.echo "Script can't run without VolumeProductKey argument" Wscript.echo "Correct usage: Cscript ChangeVLKey.vbs ABCDE-FGHIJ-KLMNO-PRSTU-WYQZX" Wscript.quit end if Dim VOL_PROD_KEY VOL_PROD_KEY = Wscript.arguments.Item(0) VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation") result = Obj.SetProductKey (VOL_PROD_KEY) if err <> 0 then WScript.Echo Err.Description, "0x" & Hex(Err.Number) Err.Clear end if Next 5) do a quick GPUPDATE /FORCE 6) see if your key has changed by downloading and running "Jellybean Keyfinder" 7) Check that your machine now passes the Windows Geniune Advantage" Checks at Genuine Microsoft Software and then click "Validate Windows"
  25. Ramesys is our supplier, but not sure if 7 years ago they supplied us this key
×
×
  • Create New...