Top-Themen

Aktuelle Themen (A bis Z)

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 Gruppe auf Ordner hinzufügen mit VBScript

Mitglied: fidellen

fidellen (Level 1) - Jetzt verbinden

17.07.2007, aktualisiert 18.07.2007, 4188 Aufrufe, 6 Kommentare

Hallo miteinander.
Ich bin neu hier und finde euer Forum einfach Klasse. Ich hoffe ihr könnt mir mit meinem Problem auch behilflich sein.
Ich bin zur Zeit AZUBI in einem grossen Detailhandesunternehmen in der Schweiz. Nun wurde ich angefragt, ob ich mich mit VBS auskenne und ich ein kleines Script schreiben kann. Da ich VBS erst gerade in der Schule abgeschlossen hatte, dachte ich mir nichts dabei und willigte ein. Doch kaum bin ich die Aufgabe angegangen, merkte ich, dass ich mich wohl ein bisschen überschätzt habe... Mein Problem ist folgendes:

Beim Anmelden eines Benutzers, der über Adminrechte Verfügt, soll ein Ordner auf dem C:\ Laufwerk gelöscht werden. Eigentlich ein einfaches Unterfangen, doch leider kommt nun etwas dazu: Auf dem Ordner ist die Administratorengruppe nicht eingerichtet. Man müsste sie von Hand zuerst hinzufügen und das Script anschliessend laufen lassen. Nur, das Script soll für Endbenutzer zum Einsatz kommen, die an einer Schulung teilnehmen. Der Ordner soll sich beim anmelden des Benutzers löschen. Wie füge ich nun die Administratorengruppe mit einem VB Script uf dem Ordner hinzu? Habt ihr mir irgendwelche nützliche Tipps, oder gar Anleitungen zu dem Thema?

Mein Script besteht im moment nur aus dem Löschvorgang (Klappt, wenn Gruppe eingerichtet ist!)

Option Explicit
Dim FSO
Dim Ordner


Set FSO = CreateObject("Scripting.FileSystemObject")

Ordner = "c:\courses"


FSO.DeleteFolder(Ordner)


End If

WScript.Quit

Kann mir jemand helfen?

Vielen Dank schon mal

Liebe Grüsse

fidellen
Mitglied: bastla
17.07.2007 um 10:52 Uhr
Hallo fidellen und willkommen im Forum!

An sich ist das Ganze ohnehin schon verkorkst, wenn auf einen Ordner von C: ein Administrator keinen Zugriff hat (zumindest verstehe ich Dein Problem so, dass die Administratorengruppe keine NTFS-Rechte am entsprechenden Ordner hat) - also sollte eher dort (am Besten auf Partitionsebene) angesetzt werden.
Um es trotzdem per Script lösen zu können, wäre es am sinnvollsten, vorweg den Besitz zu übernehmen - siehe dazu http://www.microsoft.com/technet/scriptcenter/resources/qanda/jan06/hey ...

Danach sollte auch das Löschen klappen.

Grüße
bastla
Bitte warten ..
Mitglied: fidellen
17.07.2007 um 15:56 Uhr
Herzlichen Dank!!! Läuft wie gesschmiert!

Du warst mir eine sehr grosse Hilfe! Danke schön!!!


Für alle die, das Script sehen wollen:

Option Explicit


'*
'Initalisierung
'*

Dim FSO
Dim Courses
Dim colFolders
Dim objFolder
Dim EasyPlayer
Dim objWMIService
Dim strComputer


'*
'Besitz über Ordner übernehmen
'
*

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colFolders = objWMIService.ExecQuery _
("Select * From Win32_Directory Where Name = 'C:\\courses'")

For Each objFolder in colFolders
objFolder.TakeOwnershipEx
Next


'*
' Löschvorgang
'
*

Set FSO = CreateObject("Scripting.FileSystemObject")

Courses = "c:\courses"
EasyPlayer = "C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Easyplayer 2.5"

'Wenn c:\Courses existiert dann löschen...

If FSO.FolderExists(Courses) Then
FSO.DeleteFolder(Courses)
Else

' ... wenn c:\Courses nicht existiert, dann überprüfen ob C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Easyplayer 2.5 existiert und löschen...

If FSO.FolderExists("C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Easyplayer 2.5") Then
FSO.DeleteFolder(EasyPlayer)
Else

'... falls auch nicht existiert, dann Programmende

WScript.Quit
End If
End If


'Wenn C:\Courses gelöscht wurde, überprüfen ob C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Easyplayer 2.5 existiert, und dann Löschen...

If FSO.FolderExists("C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Easyplayer 2.5") Then
FSO.DeleteFolder(EasyPlayer)
Else

'... falls nicht existiert, dann Programmende

WScript.Quit
End If


'*
'Script Beenden
'
*

WScript.Quit
Bitte warten ..
Mitglied: bastla
17.07.2007 um 16:10 Uhr
Hallo fidellen!

Freut mich, dass es klappt und danke für die Rückmeldung.

Dein Script kann man/frau besser lesen, wenn Du es zwischen < code> und < /code> (jeweils ohne Leerstelle) stellst - dann kann man sicher auch die Einrückungen besser sehen.

In der Zeile
01.
Set colFolders = objWMIService.ExecQuery _
scheint übrigens " _" zu fehlen ...

Noch eine Anmerkung: Wenn Du auf das "Else" bei
01.
If FSO.FolderExists(Courses) Then 
02.
    FSO.DeleteFolder(Courses) 
03.
Else 
04.
...
verzichtest, brauchst Du nachher die Überprüfung und das ev Löschen von "EasyPlayer" nur einmal durchzuführen ...

Grüße
bastla
Bitte warten ..
Mitglied: fidellen
17.07.2007 um 16:29 Uhr
Danke für die Tipps!!

Das "_" ist bei mir gesetzt, scheint wohl mit der Formatierung verloren gegangen zu sein.

Herzlichen Dank nochmals!!

Grüsse

Fidellen
Bitte warten ..
Mitglied: Biber
17.07.2007 um 21:45 Uhr
Moin fidellen,

wäre schade um Dein netterweise veröffentlichtes Skript, wenn es so schwer lesbar ist.

Deshalb hier noch einmal in < code >-Formatierung:
01.
'------------snipp fidellenseinskript.vbs zum Gruppe-auf-Order-hinzufügen 
02.
Option Explicit 
03.
 
04.
 
05.
'************************************************************************* 
06.
'Initalisierung 
07.
'************************************************************************* 
08.
 
09.
Dim FSO 
10.
Dim Courses 
11.
Dim colFolders 
12.
Dim objFolder 
13.
Dim EasyPlayer 
14.
Dim objWMIService 
15.
Dim strComputer 
16.
 
17.
 
18.
'*************************************************************************** 
19.
'Besitz über Ordner übernehmen 
20.
'*************************************************************************** 
21.
 
22.
strComputer = "." 
23.
 
24.
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") 
25.
Set colFolders = objWMIService.ExecQuery _ 
26.
    ("Select * From Win32_Directory Where Name = 'C:\\courses'") 
27.
 
28.
For Each objFolder in colFolders 
29.
    objFolder.TakeOwnershipEx 
30.
Next 
31.
 
32.
 
33.
'*************************************************************************** 
34.
'							Löschvorgang 
35.
'*************************************************************************** 
36.
 
37.
Set FSO = CreateObject("Scripting.FileSystemObject") 
38.
 
39.
Courses = "c:\courses" 
40.
EasyPlayer = "C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Easyplayer 2.5" 
41.
 
42.
'Wenn c:\Courses existiert dann löschen... 
43.
 
44.
If FSO.FolderExists(Courses) Then 
45.
    FSO.DeleteFolder(Courses) 
46.
Else 
47.
 
48.
' ... wenn c:\Courses nicht existiert, dann überprüfen ob  
49.
' C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Easyplayer 2.5 existiert und löschen... 
50.
 
51.
If FSO.FolderExists("C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Easyplayer 2.5") Then 
52.
    FSO.DeleteFolder(EasyPlayer) 
53.
Else 
54.
 
55.
'... falls auch nicht existiert, dann Programmende 
56.
 
57.
    WScript.Quit 
58.
End If 
59.
End If 
60.
 
61.
 
62.
'Wenn C:\Courses gelöscht wurde, überprüfen ob  
63.
' C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Easyplayer 2.5 existiert, und dann Löschen... 
64.
 
65.
If FSO.FolderExists("C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Easyplayer 2.5") Then 
66.
    FSO.DeleteFolder(EasyPlayer) 
67.
Else 
68.
 
69.
'... falls nicht existiert, dann Programmende 
70.
    
71.
	WScript.Quit 
72.
End If 
73.
 
74.
 
75.
'*************************************************************************** 
76.
'Script Beenden 
77.
'*************************************************************************** 
78.
 
79.
WScript.Quit 
80.
'------------snapp fidellenseinskript.vbs zum Gruppe-auf-Order-hinzufügen
Ich setze den Beitrag mal auf "Gelöst". @fidellen: beim nächsten Mal bitte selbst übernehmen.

Grüße
Biber
Bitte warten ..
Mitglied: fidellen
18.07.2007 um 08:11 Uhr
Hi Biber!

Sorry, bin neu hier und kenne mich noch nicht ganz so gut aus! aber ich denke mit der Zeit werde ich das auch drinn haben!

Vielen Dank!

Gruss

fidellen
Bitte warten ..
Ähnliche Inhalte
Windows 7

Computer automatisiert einer Gruppe hinzufügen

gelöst Frage von derschakal83Windows 76 Kommentare

Hallo zusammen, es gibt bei uns im AD zwei Gruppen, denen wir unsere Computer (je nach Bereich) automatisiert zuordnen ...

Windows Server

Gruppen für Benutzerprofile im Profil-Manager hinzufügen

gelöst Frage von Peter007Windows Server4 Kommentare

Hallo zusammen, ich versuche aktuell superverbindliche bzw. Verbindliche erforderliche Benutzerprofile auf Server 2012 R2 anzulegen. Mein Problem ist, das ...

Windows 7

Icacls - alle Gruppen aus Ordner entfernen bis auf SYSTEM

gelöst Frage von Trekki1990Windows 72 Kommentare

Hallo, gibt es eine Möglichkeit mit icacls alle Gruppen aus einem Ordner zu entfernen und nur die Gruppe "SYSTEM" ...

Windows 7

AD-Benutzer einer Lokalen Gruppe hinzufügen(16Bit OU)

Frage von WIZARDBOYWindows 73 Kommentare

Hallo Liebe IT-Gemeinde ich möchte einen Benutzer aus dem AD zu einer Lokalen Gruppe hinzufügen. Ich habe es bereits ...

Neue Wissensbeiträge
Sicherheit

Ungepatchte Remote Code Execution-Lücke in LG NAS

Information von kgborn vor 4 StundenSicherheit

Nutzt wer LG NAS-Einheiten? In den NAS-Einheiten der LG Network Storage-Einheiten gibt es eine sehr unschöne Schwachstelle, die einen ...

Windows Update

Neue Version KB4099950 NIC Einstellungen gehen verloren

Information von sabines vor 10 StundenWindows Update2 Kommentare

Es ist eine neue Version des KB4099950 verfügbar, die das Problem mit den verlorenen Netzwerkeinstellungen lösen soll. Das Datum ...

Microsoft Office

MS Office 2019 ohne OneNote - OneNote App speichert nur in Cloud

Information von Deepsys vor 21 StundenMicrosoft Office2 Kommentare

Microsoft zeigt deutlich wohin alles bei Ihnen geht, OneNote 2019 wird es nicht mehr geben, und die Windows 10 ...

Humor (lol)

Warum man sein Gast-WLAN nicht beliebig nennen sollte

Erfahrungsbericht von Henere vor 1 TagHumor (lol)5 Kommentare

Servus, mal was aus dem Alltag. Zu Hause. Eigentlich wollte ich nur einen weiteren WLAN-AP ins Netz bringen, damit ...

Heiß diskutierte Inhalte
Windows Netzwerk
LAN nur 10MB pro s trotz gb lan
Frage von tsunamiWindows Netzwerk21 Kommentare

Hallo zusammen, ich brauche mal wieder einen Anstoß in die richtige Richtung. Ich habe einen Windows 10 pc mit ...

Festplatten, SSD, Raid
Server SSD: NVMe PCIe 3.0 RAID?
Frage von bouneeFestplatten, SSD, Raid15 Kommentare

Hallo liebe Admins, mir stellt sich gerade die Frage, ob ein neuer Server mit SSD NVMe PCIe 3.0 Sinn ...

Sonstige Systeme
Wie Normenkataloge im Unternehmen bereit stellen?
Frage von MuzzepuckelSonstige Systeme13 Kommentare

Hallo Kollegen, ich lese schon lange hier mit, nun mein ersrer Beitrag, bzw. Frage. :-) Wir benötigen für unsere ...

Windows 10
Windows 10 Startmenü-Einstellungen Systemweit festlegen
Frage von flotautWindows 1013 Kommentare

Guten Morgen liebe Admins, wir möchten bei uns am Lehrstuhl demnächst auf Windows 10 umsteigen. Wir installieren unsere PC's ...