Windows Server 2008R2 VBS Script Benutzer deaktivieren
Hallo,
folgendes Problem,
es sollen mittels VBS das per Task Scheduler gestartet wird alle lokalen Benutzer einer Bestimmten Gruppe deaktiviert werden.
Der Server ist nicht Mitglied einer Domäne nur Lokale Benutzer.
Hab auch selber probiert .
Würde irgentwie mit
Set objGroup3 = GetObject("WinNT:" & strComputer & "/blablabla,group")
Sub QueryForUser(strUserName)
Set objDomain = GetObject("WinNT:" & strComputer)
Set objuser = GetObject ("WinNT://" & user)
objDomain.Filter = Array("user")
For Each User In objDomain
If objUser.AccountDisabled = True then
if objGroup3.group = blablabla.group then
objUser.AccountDisabled = False
WScript.Quit
Else
WScript.Quit
End If
End If
Next
End Sub
Sollte irgentwie funktionieren, aber das obige script sowieso nicht da wohl sachen fehlen.
Wäre freundlich wenn jemand helfen könnte.
Im Vorraus Danke.
Gruß
mkspawn
folgendes Problem,
es sollen mittels VBS das per Task Scheduler gestartet wird alle lokalen Benutzer einer Bestimmten Gruppe deaktiviert werden.
Der Server ist nicht Mitglied einer Domäne nur Lokale Benutzer.
Hab auch selber probiert .
Würde irgentwie mit
Set objGroup3 = GetObject("WinNT:" & strComputer & "/blablabla,group")
Sub QueryForUser(strUserName)
Set objDomain = GetObject("WinNT:" & strComputer)
Set objuser = GetObject ("WinNT://" & user)
objDomain.Filter = Array("user")
For Each User In objDomain
If objUser.AccountDisabled = True then
if objGroup3.group = blablabla.group then
objUser.AccountDisabled = False
WScript.Quit
Else
WScript.Quit
End If
End If
Next
End Sub
Sollte irgentwie funktionieren, aber das obige script sowieso nicht da wohl sachen fehlen.
Wäre freundlich wenn jemand helfen könnte.
Im Vorraus Danke.
Gruß
mkspawn
Please also mark the comments that contributed to the solution of the article
Content-Key: 294592
Url: https://administrator.de/contentid/294592
Printed on: April 25, 2024 at 09:04 o'clock
4 Comments
Latest comment
Very simple script for absolute beginners in administration...
fk
VMWare , Silicon Valley
strGruppe = "GRUPPEXYZ"
Set objNetwork = CreateObject("WScript.Network")
Set objGroup = GetObject("WinNT://" & objNetwork.ComputerName & "/" & strGruppe & ",group")
For Each objMember In objGroup.Members
If objMember.AccountDisabled = False Then
objMember.AccountDisabled = True
objMember.SetInfo
End If
Next
MsgBox "Finished disabling users in group " & strGruppe
VMWare , Silicon Valley
Have a look at my script, "only the group" has to be listet in line 1, nothing more has to be done ...