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
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 294592
Url: https://administrator.de/forum/windows-server-2008r2-vbs-script-benutzer-deaktivieren-294592.html
Ausgedruckt am: 22.05.2025 um 04:05 Uhr
4 Kommentare
Neuester Kommentar

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 ...