
moinuddin_sh
MemberAbout moinuddin_sh

moinuddin_sh's Achievements
0
Reputation
-
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.
-
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
-
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
-
How to restore Windows 2003 in back date
moinuddin_sh replied to moinuddin_sh's topic in Windows 2000/2003/NT4
Dear Cluberti, Thanks for your valuable reply. Is there any way other then system restore to get the old data? Regards -
How to restore Windows 2003 in back date
moinuddin_sh replied to moinuddin_sh's topic in Windows 2000/2003/NT4
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 -
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
-
How to install sr.inf on Windows 2003
moinuddin_sh posted a topic in Unattended Windows 2000/XP/2003
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 -
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
-
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
-
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"
-
problems printing with HP 4V with MS2000
moinuddin_sh replied to allen1y's topic in Windows 2000/2003/NT4
Replace the printer cable and try. If your printer have USB port then try using the USB cable instead of LPT or viseversa. -
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.