Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Benutzergruppe per Script für kurze Zeit sperren

Frage Microsoft Windows Server

Mitglied: darodesk

darodesk (Level 1) - Jetzt verbinden

04.09.2008, aktualisiert 05.09.2008, 4625 Aufrufe, 4 Kommentare

Hallo,
aus verschiedenen Gründen ist es notwendig, remote auf dem 2003 SBS Server ein Script auszuführen, welches für eine bestimmte Zeit eine bestimmte Gruppe von Nutzern sperrt und dann wieder freigibt. Wie könnte man soetwas realisieren?

Danke und Gruß
Mitglied: 60730
04.09.2008 um 16:08 Uhr
Servus,

eventuell per Kixtart Script und den Befehlen:
01.
IF INGROUP "gruppe darf nicht" 
02.
 IF EXIST (@LDRIVE + "\nologon.txt") 
03.
  ? Sie dürfen sich derzeit nicht anmelden, das System wird gewartet und Ihr system neu gestartet ;-) 
04.
  call shutdown.exe -r 
05.
 endif 
06.
endif
... dann mußt du "nur" diese gruppe anlegen, Kix als Loginscript benutzen und im Fall der Fälle eine nologon.txt anlegen.
Gruß
Bitte warten ..
Mitglied: Logan000
05.09.2008 um 09:19 Uhr
Moin Moin

Dieses Skript deaktiverit alle Useraccounts in der Gruppe "MyGroup"

01.
On Error Resume Next 
02.
Domain= "MyDomain" 
03.
DomSuffix= "de" 
04.
GroupName = "MyGroup" 
05.
Const ADS_SCOPE_SUBTREE = 2 
06.
Const ADS_UF_ACCOUNTDISABLE = 2 
07.
Set objConnection = CreateObject("ADODB.Connection") 
08.
Set objCommand =   CreateObject("ADODB.Command") 
09.
objConnection.Provider = "ADsDSOObject" 
10.
objConnection.Open "Active Directory Provider" 
11.
Set objCommand.ActiveConnection = objConnection 
12.
objCommand.Properties("Page Size") = 1000 
13.
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE  
14.
objCommand.CommandText = "SELECT Name, ADSPath FROM 'LDAP://dc=" & Domain & ",dc=" & DomSuffix & "' WHERE objectCategory='group' AND Name='" & GroupName & "'" 
15.
Set objRecordSet = objCommand.Execute 
16.
If objRecordSet.recordCOunt =1 Then 
17.
	objRecordSet.MoveFirst 
18.
	Set objGroup = GetObject (objRecordSet.Fields("ADSPath").Value)  
19.
	objGroup.GetInfo	 
20.
	arrMemberOf = objGroup.GetEx("member")	 
21.
	For Each strMember in arrMemberOf	 
22.
		Set objUser = GetObject ("LDAP://" & strMember) 
23.
		intUAC = objUser.Get("userAccountControl") 
24.
		objUser.Put "userAccountControl", intUAC OR ADS_UF_ACCOUNTDISABLE 	' Account Disablen 
25.
		'objUser.AccountDisabled = FALSE											   	' Account enablen 
26.
		objUser.SetInfo 
27.
	Next 
28.
else 
29.
	MSGBOX("Eine Gruppe mit dem Namen '" & GroupName & "' konte nicht gefunden werden.") 
30.
end if
in Zeile 25 ist (auskommentiert) der Code zum Enablen des Accounts.

Gruß L.
Bitte warten ..
Mitglied: darodesk
05.09.2008 um 09:25 Uhr
Hallo,
das ist perfekt, danke!

Gruß Daniel
Bitte warten ..
Mitglied: Logan000
05.09.2008 um 10:07 Uhr
Moin

Dann sei doch so gut und setze den Beitrag auf erledigt.

Danke.
Gruß L.
Bitte warten ..
Ähnliche Inhalte
LAN, WAN, Wireless
Cisco SG200: Auf bestimmtem vLAN bestimmte TCP-Ports sperren (16)

Frage von SarekHL zum Thema LAN, WAN, Wireless ...

Windows Netzwerk
Windows Einstellungen in WIN10 sperren

Frage von Sepi zum Thema Windows Netzwerk ...

Server
Script zum Scannen von IP Netzen auf Rfp (4)

Frage von janosch12 zum Thema Server ...

Neue Wissensbeiträge
Peripheriegeräte

Was beachten bei der Wahl einer USV Anlage im Serverschrank

(2)

Tipp von zetboxit zum Thema Peripheriegeräte ...

Windows 10

Das Windows 10 Creators Update ist auf dem Weg

(5)

Anleitung von BassFishFox zum Thema Windows 10 ...

Administrator.de Feedback

Tipp: Ungelöste Fragen ohne Antwort in Tickeransicht farblich hinterlegen

Tipp von pattern zum Thema Administrator.de Feedback ...

Viren und Trojaner

Neue Magazin Ausgabe: Malware und Angriffe abwehren

Information von Frank zum Thema Viren und Trojaner ...

Heiß diskutierte Inhalte
Windows Systemdateien
Warum System auf "C:" (29)

Frage von DzumoPRO zum Thema Windows Systemdateien ...

LAN, WAN, Wireless
Cisco SG200: Auf bestimmtem vLAN bestimmte TCP-Ports sperren (16)

Frage von SarekHL zum Thema LAN, WAN, Wireless ...

Windows Server
gelöst Update BackupExec 2015 auf 2016 führt zu SQL-Server Problem (16)

Frage von montylein1981 zum Thema Windows Server ...

Cloud-Dienste
gelöst Bitcoins minen über Nacht? (16)

Frage von 1410640014 zum Thema Cloud-Dienste ...