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

VBS: alle lokalen Benutzer eines Rechners in einer MsgBox anzeigen lassen

Frage Entwicklung VB for Applications

Mitglied: Yannosch

Yannosch (Level 2) - Jetzt verbinden

26.08.2013 um 13:28 Uhr, 3256 Aufrufe, 2 Kommentare, 1 Danke

Guten Tag liebe Community!

Habe google durchforstet und Kollegen und Mitarbeiter gefragt, aber keiner konnte mir so wirklich helfen.
Ich versuche den Namen aller lokalen Benutzer aus meinem System auszulesen und in einer einzigen MsgBox anzuzeigen.
Also folgende Situation:
Rechtsklick auf Arbeitsplatz , dann auf Verwaltung.
In der Computerverwaltung auf Lokale Benutzer und Gruppen im Ordner "Benutzer" stehen folgende Benutzer:

test 1
test 2
Administrator
test3

und ich möchte das mein Script diese Benutzernamen in einer MsgBox ausgibt.

bisheriger Lösungsansatz:

Set wshShell = WScript.CreateObject( "WScript.Shell" )
strComputerName = wshShell.ExpandEnvironmentStrings( "%COMPUTERNAME%" )

Set objwmi = GetObject("winmgmts:\\" & strComputerName & "\root\CIMV2")
Set collitems = objwmi.execquery("Select * from win32_useraccount")
For Each objitem In collitems
WScript.Echo objitem.Name
Next


Sollte dies geschehen sein wär einer evtl. noch so nett und könnte mir noch sagen wie ich lokale benutzer mittels VBS auch wieder löschen kann ? ... also Name des zu löschenden Benutzer in ne InputBox und dann ausm System löschen ?

Vielen Dank schonmal im Vorraus, wäre echt sehr dankbar für eine rasche Antwort.
Grüße
Yannosch
Mitglied: colinardo
26.08.2013, aktualisiert um 14:05 Uhr
Hallo Yannosch,
könntest du so machen
01.
strComputer = "." 
02.
Set objWMIService = GetObject("winmgmts:" _ 
03.
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
04.
 
05.
Set colItems = objWMIService.ExecQuery _ 
06.
    ("Select * from Win32_UserAccount Where LocalAccount = True") 
07.
allUsers = "" 
08.
For Each objItem in colItems 
09.
    If objItem.Name <> "" Then 
10.
    	allUsers = allUsers & objItem.Name & vbNewLine 
11.
    End If 
12.
Next 
13.
 
14.
MsgBox "Alle Benutzer dieses Computers: " & vbNewLine & "--------------------------------------" & vbNewLine & allUsers 
15.
strUsername = InputBox("Welchen Benutzer möchtest du löschen?","User löschen") 
16.
If strUsername <> "" Then 
17.
	Set objComputer = GetObject("WinNT://.") 
18.
	objComputer.Delete "user", strUsername 
19.
	MsgBox "Benutzer '" & strUsername & "' wurde gelöscht"  
20.
Else 
21.
	MsgBox "Sie haben keinen Benutzernamen angegeben",48 
22.
End If
Grüße Uwe
Bitte warten ..
Mitglied: Yannosch
26.08.2013 um 14:32 Uhr
Sau stark , danke dir ! Genau das was ich suchte ! :p
Bitte warten ..
Neuester Wissensbeitrag
Off Topic

"Ich habe nichts zu verbergen"

(2)

Erfahrungsbericht von FA-jka zum Thema Off Topic ...

Ähnliche Inhalte
Outlook & Mail
Outlook 2010 Userprofile Foto anzeigen lassen (2)

Frage von staybb zum Thema Outlook & Mail ...

Monitoring
gelöst Zugewiesene Benutzerrechte auf Server anzeigen lassen (1)

Frage von Fitzel69 zum Thema Monitoring ...

Outlook & Mail
Outlook 2013 mehrere kalender in Aufgabenleiste anzeigen lassen

Frage von montana zum Thema Outlook & Mail ...

Heiß diskutierte Inhalte
Linux Netzwerk
gelöst DHCP vergibt keine Adressen (32)

Frage von Maik82 zum Thema Linux Netzwerk ...

Apache Server
gelöst Lets Encrypt SSL mit Apache2 (20)

Frage von banane31 zum Thema Apache Server ...

CPU, RAM, Mainboards
Kaufberatung für mind. 8 verschiedene HighEnd-Mainboards (20)

Frage von yperiu zum Thema CPU, RAM, Mainboards ...

Hardware
gelöst PCI-Express-Adapterfrage (14)

Frage von DerWoWusste zum Thema Hardware ...