ravenadsl

Thanks fairm010 We currently user Atomwides ADSync but because we may be moving away from our LEA we wont have access to it any more. Inface looking at your username we use exactly the same service provided by RBWM Thanks Victory2012 I will look into this it sounds good!

Hello all I'm not sure this is the correct section for this. so sorry if its not. Is there a tool / program for exporting information from SIMS to make our active directory users and groups.. possibly even mail lists? we are soon going to be managing our users ourselves (moving away from our LEA) and I just think SIMS will be the best thing to work from as it already knows all the staff students and timetable. dose any one know of such a program or script? If not I guess I'm going to have to make myself one Thanks Pete

I’m looking to get some recognised qualifications and work my way to MCITP I have been managing a network of 400+ computers and 9 servers for over 4 years now but i don’t have any qualifications to show i can do the job I’m doing. I have successfully migrated from XP to 7 domain and introduced WDS, WSUS and active directory 2008 I have good knowledge of Active directory + group policy 2003 and 2008, DNS, DHCP, WDS, WSUS, IIS and Windows XP, Vista and 7, server 2003 + 2008/R2 . What should I be looking at? What are your suggestions? What qualifications have you got? Thanks!

Thanks Guys. I have downloaded and installed the files you have suggested and seen no difference. do you have any other suggestions?

Havent hered of it. Can you link me to it please? A google turns up a load of results not related to macromedia suit. Thanks

Hello, Im roling out windows 7 arround the network and have come accross an activation problem with our Macromedia suit. The suit installs fine and launches fine but activation wont remember its been activated as soon as a new user comes along they need to reenter the serial. dose any one know wat the activation dose so it can remember its been activated? If I can find that out ten I can deploy that file to all the computers. Thanks.

Hi guys, Can any one help with this script (see below) The script is to look at a .XLS file connect to AD and see if the user exists. if the user dosent exist the user will be created if the user dose exist the user should be updated. This is where i have the problem. i need to define the user before i send the edit. I think some how i need to integrate AD for the current user and then begin editing. its the only bit im not sue how to do. any suggestions would be great feel free to use this code Option Explicit Dim objExcel, strExcelPath, objSheet Dim strLast, strFirst, strMiddle, strPW, intRow, intCol Dim strGroupDN, objUser, objGroup, objContainer Dim strCN, strNTName, strContainerDN Dim strHomeFolder, strHomeDrive, objFSO, objShell Dim intRunError, strNetBIOSDomain, strDNSDomain Dim objRootDSE, objTrans, strLogonScript, strUPN Dim strPreviousDN, blnBound ' Constants for the NameTranslate object. Const ADS_NAME_INITTYPE_GC = 3 Const ADS_NAME_TYPE_NT4 = 3 Const ADS_NAME_TYPE_1779 = 1 ' Specify spreadsheet. strExcelPath = "C:\test\test.xls" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objShell = CreateObject("Wscript.Shell") ' Determine DNS domain name from RootDSE object. Set objRootDSE = GetObject("LDAP://RootDSE") strDNSDomain = objRootDSE.Get("DefaultNamingContext") ' Use the NameTranslate object to find the NetBIOS domain name ' from the DNS domain name. Set objTrans = CreateObject("NameTranslate") objTrans.Init ADS_NAME_INITTYPE_GC, "" objTrans.Set ADS_NAME_TYPE_1779, strDNSDomain strNetBIOSDomain = objTrans.Get(ADS_NAME_TYPE_NT4) ' Remove trailing backslash. strNetBIOSdomain = Left(strNetBIOSDomain, Len(strNetBIOSDomain) - 1) ' Open spreadsheet. Set objExcel = CreateObject("Excel.Application") On Error Resume Next objExcel.Workbooks.Open strExcelPath If (Err.Number <> 0) Then On Error GoTo 0 Wscript.Echo "Unable to open spreadsheet " & strExcelPath Wscript.Quit End If On Error GoTo 0 Set objSheet = objExcel.ActiveWorkbook.Worksheets(1) ' Start with row 2 of spreadsheet. ' Assume first row has column headings. intRow = 2 ' Read each row of spreadsheet until a blank value ' encountered in column 6 (the column for cn). ' For each row, create user and set attribute values. strPreviousDN = "" Do While objSheet.Cells(intRow, 6).Value <> "" ' Read values from spreadsheet to find this user. strContainerDN = Trim(objSheet.Cells(intRow, 1).Value)'Container user should be in strFirst = Trim(objSheet.Cells(intRow, 2).Value) strMiddle = Trim(objSheet.Cells(intRow, 3).Value) strLast = Trim(objSheet.Cells(intRow, 4).Value) strPW = Trim(objSheet.Cells(intRow, 5).Value) strCN = Trim(objSheet.Cells(intRow, 6).Value) strNTName = Trim(objSheet.Cells(intRow, 7).Value)'NT Username strUPN = Trim(objSheet.Cells(intRow, 8).Value) strHomeFolder = Trim(objSheet.Cells(intRow, 9).Value) strHomeDrive = Trim(objSheet.Cells(intRow, 10).Value) strLogonScript = Trim(objSheet.Cells(intRow, 11).Value) MsgBox "all info set" ' If this container is different from the previous, bind to ' the container the user object will be created in. If (strContainerDN <> strPreviousDN) Then On Error Resume Next Set objContainer = GetObject("LDAP://" & strContainerDN) If (Err.Number <> 0) Then On Error GoTo 0 Wscript.Echo "Unable to bind to container: " & strContainerDN Wscript.Echo "Unable to create user with NT1 name: " & strNTName ' Flag that container not bound. strPreviousDN = "" Else On Error GoTo 0 strPreviousDN = strContainerDN End If End If 'Dose user exist? Dim objNetwork Set objNetwork = CreateObject("WScript.Network") Dim strUserName strUserName = objNetwork.UserName strUserName = strNTName Dim objWinntUser On Error Resume Next Set objWinntUser = GetObject("WinNT://" & objNetwork.UserDomain & "/" & strUserName & ",user") If Err Then If Err.Number = "-2147022675" Then MsgBox "The user was not found. User can be created" 'once finished comment out call create() 'start create user Call update() ' start update user Else MsgBox Err.Number & VbCrLf & Err.Description End If Err.Clear Else MsgBox "User already exists. Running user update." 'onced finished comment out call update() 'start update user End If intRow = intRow + 1 Loop Wscript.Echo "Done" Wscript.Quit Sub Update() if (strPreviousDN <> "") Then '################################### 'need to find furrent user to edit '################################### If (Err.Number <> 0) Then On Error GoTo 0 Wscript.Echo "Unable to create user with NT2 name: " & strNTName Else objUser.SetPassword strPW If (Err.Number <> 0) Then On Error GoTo 0 Wscript.Echo "Unable to set password for user " & strNTName End If On Error GoTo 0 MsgBox "password set" 'Assign values to remaining attributes. If (strMiddle <> "") Then objUser.initials = strMiddle End If MsgBox "set middle name" If (strLast <> "") Then objUser.sn = strLast End If MsgBox "set Last name" If (strUPN <> "") Then objUser.userPrincipalName = strUPN End If ' Save changes. MsgBox "saveing Schanes" On Error Resume Next objUser.SetInfo If (Err.Number <> 0) Then On Error GoTo 0 Wscript.Echo "Unable to update attributes for user with NT name: " _ & strNTName End If End If End If End Sub Sub create() ' Proceed if parent container bound. If (strPreviousDN <> "") Then ' Create user object. On Error Resume Next Set objUser = objContainer.Create("user", "cn=" & strCN) If (Err.Number <> 0) Then On Error GoTo 0 Wscript.Echo "Unable to create user with cn: " & strCN 'Unable to creat NT user Error Else On Error GoTo 0 ' Assign mandatory attributes and save user object. If (strNTName = "") Then strNTName = strCN End If objUser.sAMAccountName = strNTName 'Set useraccount name (login username) On Error Resume Next objUser.SetInfo If (Err.Number <> 0) Then On Error GoTo 0 Wscript.Echo "Unable to create user with NT2 name: " & strNTName 'unable to create user account Error Else ' Enable the user account. objUser.AccountDisabled = False If (strFirst <> "") Then 'Set first name objUser.givenName = strFirst End If If (strHomeDrive <> "") Then 'set Home drive objUser.homeDrive = strHomeDrive End If If (strHomeFolder <> "") Then 'set home folder objUser.homeDirectory = strHomeFolder End If If (strLogonScript <> "") Then 'set login script objUser.scriptPath = strLogonScript End If ' Set password expired. Must be changed on next logon. objUser.pwdLastSet = 0 '0=enabled 1=disabled ' Save changes. On Error Resume Next objUser.SetInfo If (Err.Number <> 0) Then On Error GoTo 0 Wscript.Echo "Unable to set attributes for user with NT name: " _ & strNTName End If On Error GoTo 0 ' Create home folder. If (strHomeFolder <> "") Then If (objFSO.FolderExists(strHomeFolder) = False) Then On Error Resume Next objFSO.CreateFolder strHomeFolder If (Err.Number <> 0) Then On Error GoTo 0 Wscript.Echo "Unable to create home folder: " & strHomeFolder End If On Error GoTo 0 End If If (objFSO.FolderExists(strHomeFolder) = True) Then ' Assign user permission to home folder. intRunError = objShell.Run("%COMSPEC% /c Echo Y| cacls " _ & strHomeFolder & " /T /E /C /G " & strNetBIOSDomain _ & "\" & strNTName & ":F", 2, True) If (intRunError <> 0) Then Wscript.Echo "Error assigning permissions for user " _ & strNTName & " to home folder " & strHomeFolder End If End If End If ' Group DN's start in column 12. intCol = 12 Do While objSheet.Cells(intRow, intCol).Value <> "" strGroupDN = Trim(objSheet.Cells(intRow, intCol).Value) ' Attempt to bind to group object DN. blnBound = False On Error Resume Next Set objGroup = GetObject("LDAP://" & strGroupDN) If (Err.Number <> 0) Then On Error GoTo 0 ' Try again converting NT Name to DN. On Error Resume Next objTrans.Set ADS_NAME_TYPE_NT4, strNetBIOSDomain _ & "\" & strGroupDN If (Err.Number <> 0) Then On Error GoTo 0 Wscript.Echo "Unable to bind to group " & strGroupDN Else On Error GoTo 0 strGroupDN = objTrans.Get(ADS_NAME_TYPE_1779) Set objGroup = GetObject("LDAP://" & strGroupDN) blnBound = True End If Else On Error GoTo 0 blnBound = True End If If (blnBound = True) Then objGroup.Add objUser.AdsPath If (Err.Number <> 0) Then On Error GoTo 0 Wscript.Echo "Unable to add user " & strNTName _ & " to group " & strGroupDN End If End If On Error GoTo 0 ' Increment to next group DN. intCol = intCol + 1 Loop End If End If End If End Sub ' Clean up. objExcel.ActiveWorkbook.Close objExcel.Application.Quit Set objUser = Nothing Set objGroup = Nothing Set objContainer = Nothing Set objSheet = Nothing Set objExcel = Nothing Set objFSO = Nothing Set objShell = Nothing Set objTrans = Nothing Set objRootDSE = Nothing

we are using remote desktop i will try there e-mail address i dident realize that would work. lets see if they remember it!

Hello, I have setup a staff member so they can remote controll there desktop computer from home. its just been updates to windows 7 and everythign is fine appart from this one niggley little problem when remote controling the computer it first takes you to the logon screen when the defult login server is the local computer and not the domain controler. this means they cannot login unless the remember to specify the domain before there username (domain\usernamer) Thanks!

Hi Pete, We did find what it was. users need read permissions down then entire folder path for example \\server\student\year group\%username% If the student only has read wright access to the %username% folder we received the error If we add the students group to the student + year group folders to give read only access and have read wright access to the %user name% folder it was not stroppy and dident throw an error hope I make sense

We have some users running [Whisper] sims [/whisper] under windows 7, we did have some problems when installing it for the 1st time but here is what we do every time we install it. run sims.inst off the sims server as local of network admin when changing the mapped network drive you must click browse as the mapped network drive always appears as disconnected (strange) then select the connect .ini file. install as normal Also Note 64bit is not supported at all,

Sorry i ment to say there documents on the c drive but i have redirected there my docs to a mapped network drive I also thought it strange that it had not picked this up and redirected to there redirected documents I have the AMD files (there on the 2010 CD) i have only found the option to change the save location of power point. the option is only under power point and nothing else :S

Hello, I have a problem with office 2010 with our student account. when students click save or save as they get an error saying this task has been disabled buy an administrator. after looking into it a bit more i have found the default save location for all of the office applications is on C:\ where my students don't have access. so this needs to be changed to there my documents i have done some gogleing and found the .adm templates for office 2010 but i can only find the place to set the default save location for word, we need to set this for all the office applications. thanks for any advice.

Hi guyes, Ok i know its not OS deployment but its close, After deploying an os to a computer i would like to just set its name join it to the domain and all the software for the correct room just deploy automatically. At the moment that's fine. after deploying to a computer i set the name and join the domain. move the computer to the correct OU and group policy kicks in where I have some MSI's to deploy but we have a lot of other software that would be handy to deploy but are not MSI's. So I then have to walk round the room setting up software. I could pre load the image but after a week there stale and there are new packages that have been bought ect what dose every one else do? is it possable to make an MSI for all the exe packages we have? is there a Microsoft software deployment solution? Thanks

Why do they need to open Sync centre? if you have the users docs redirected windows 7 will automatically sync them our staff see the status of the sync center in the mobility center c:\windows\system 32\mblctr.exe /open