Jump to content

moinuddin_sh

Member
  • Posts

    25
  • Joined

  • Last visited

  • Donations

    0.00 USD 
  • Country

    Saudi Arabia

About moinuddin_sh

moinuddin_sh's Achievements

0

Reputation

  1. I want to define password policy (lengh, age etc.) under the group policy of a user group. I did it "Computer Configuration\Windows Settings\Security Settings\Account Policies\Password Policy\" but when a user of this group login to domain, this policy has no effect on the user.
  2. I have Windows 2003 server running with all the user name and policies in the AD. I installed Windows 2003 on another machine as a standby server (backup server for contingency). Every time I create a new user or edit some policy in my running server I have to repeate the same in the standby server. How can I copy the AD from my running server and restore on the standby machine? Thanks
  3. Create two files as explained below and copy these two files to the scripts folder under sysvol: create a file name "script.vbs" and copy the following in this file: On Error Resume Next Dim oNet, sUser, sDept Dim GroupList Set fso = CreateObject("Scripting.FileSystemObject") Set WshShell = CreateObject("WScript.Shell") Set WshNetwork = WScript.CreateObject("WScript.Network") Set oNet = CreateObject("Wscript.Network") sUser =oNet.UserName rem UPDATE MCAFEE ANTIVIRUS WITH NEW VER Dim oShell Set oShell = WScript.CreateObject ("WSCript.shell") oShell.run "\\Server01\Mcafee\sdatnew.exe /s" Set oShell = Nothing oNet.MapNetworkDrive "K:", "\\Server01\" & sUser oNet.MapNetworkDrive "M:", "\\Server01\" & "Everyone" GetGroupInfo() LogonPath = fso.GetParentFolderName(WScript.ScriptFullName) '**************************************Group Mappings Based on Grouplist.csv********************************* If fso.FileExists(logonpath&"\Grouplist.csv") Then Set grplist = Fso.OpenTextFile(logonpath&"\Grouplist.csv") ' make File into an Array aGroup = Split(grplist.Readall,vbcrlf) For I = 0 to UBound(GroupList) ' Check Every Group Membership the user is in (populated into Grouplist) grpname = Grouplist(i) For x = 0 to UBound(aGroup) ' Read the entire CSV to make sure all drives are mapped for each Group mapline = agroup(x) If InStr(LCase(mapline),LCase(grpname)) Then ' If you're in the group mapline = Mid(mapline,InStr(mapline,",")+1) ' Remove the GroupName from the line Drive = Left(mapline,InStr(mapline,",")-1) ' Extract Drive Letter Path = Mid(mapline,InStr(mapline,",")+1) ' Extract the path If (fso.DriveExists(drive) <> True) and (Drive<>"!!") Then ' If The Drive is not already mapped WshNetwork.MapNetworkDrive drive,path ' Map The Drive wscript.sleep 1000 End If If Drive = "!!" then WSHNetwork.AddWindowsPrinterConnection Path wscript.sleep 1000 end if End If Next Next End If Sub GetGroupInfo Set UserObj = GetObject("WinNT://" & wshNetwork.UserDomain & "/" & WshNetwork.UserName) Set Groups = UserObj.groups For Each Group In Groups GroupCount = GroupCount + 1 Next ReDim GroupList(GroupCount -1) i = 0 For Each Group In Groups GroupList(i) = Group.Name i = i + 1 Next End Sub Create another file name "Grouplist.csv" Finance,L:,\\Server01\Finance Engineering,L:,\\Server01\Engineering Technical Office,L:,\\Server01\Technical Office Front Office,L:,\\Server01\Front Office
  4. Dear Cluberti, Thanks for your valuable reply. Is there any way other then system restore to get the old data? Regards
  5. As I mentioned, I recently installed System restore on Windows 2003 server. So the answer is no, I did not ever created a restore point. Regards
  6. Recently I installed System Restore on my Windows 2003 server. When I want to run system restore, it gives only today's date for restore point. Is there any way to resotre a previous date(s) e.g. February 20, 2007. Regards
  7. Dear Gosh, I read your post on msfn and on neowin regarding installing system restore on Windows 2003 server. As explained by you I copy the file "SR.IN_" to Windows 2003 server from an XP CD. Then I rename the file to "SR.INF", right click and install it gives an error message "Installation failed". Could you please guide how to install SR.INF on Windows 2003 server. Regards
  8. Could someone help me, from where I can download the file "cusrmgr.exe" Urgent please
  9. Here is the VB script that I added in my existing login script file. There is only one issue is there how can I run the update in Slient mode. When I add /Silent switch the did not work. Dim oShell Set oShell = WScript.CreateObject ("WSCript.shell") oShell.run "\\Server01\Mcafee\sdatnew.exe" Set oShell = Nothing If I use the silent switch as mentioned below then the script does not work. Dim oShell Set oShell = WScript.CreateObject ("WSCript.shell") oShell.run "\\Server01\Mcafee\sdatnew.exe /Silent" Set oShell = Nothing
  10. I have one Windows 2000 computer in my LAN which have restriction(s) that under "Computer Name" the button for "Network ID" is disabled and I am unable to change its workgroup. I have administration rights on this computer. How can I remove the restrictions and then joint this computer to my domain? I attached herewith the screen shots for review. Thanks
  11. I found the VB script that can autoupdate the antivirus through login script. Thanks to everyone.
  12. I have a batch file created by me to update the new antivirus DAT files that I want to replace with one addition line in my following login script. ' VBScript. ' Mapping user home folder on the server Dim oNet, sUser, sDept Set oNet = CreateObject("Wscript.Network") sUser =oNet.UserName sDept =oNet.Dept oNet.MapNetworkDrive "P:", "\\Server01\" & sUser 'Mapping Network Attached Drives 'Dim WshNetwork 'Set WshNetwork = WScript.CreateObject("WScript.Network") 'WshNetwork.MapNetworkDrive "M:", "\\Server01\CMT" 'WshNetwork.MapNetworkDrive "Q:", "\\Server01\Public Folder" 'WshNetwork.MapNetworkDrive "S:", "\\Server01\Share" 'WshNetwork.MapNetworkDrive "W:", "\\Server01\Course" 'WshNetwork.MapNetworkDrive "Z:", "\\Server01\CopyScan" 'Mapping Network Attached Printers Dim net Set net = CreateObject("WScript.Network") net.AddWindowsPrinterConnection Lpt1: \\Server01\HPLaserJetAccount 'Selecting default printer Set net = CreateObject("WScript.Network") net.SetDefaultPrinter "\\Server01\HPLaserJetAccount"
  13. I run a batch file to update the Antivirus DAT file on each computer on my Domain 2003 network, whenever a user login to a computer. Now I want to replace this bat with script file. What should I add in my script to run DAT file whenever a user login. Regards
  14. Replace the printer cable and try. If your printer have USB port then try using the USB cable instead of LPT or viseversa.
  15. I do't have DHCP, I am using static IP addresses. My concern is, if a user bring his laptop and change the IP as per his LAN PC and plug it into the network then it could cause problem.
×
×
  • Create New...