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

VB-Script zum vergeben von Ordnerrechten

Frage Entwicklung VB for Applications

Mitglied: whatzzup

whatzzup (Level 1) - Jetzt verbinden

13.03.2013 um 09:29 Uhr, 1546 Aufrufe, 3 Kommentare

Hallo Zusammen,

ich versuche zu meinem Script das mir Active Directory Nutzer anlegt, basierent auf einer Textdatei, zusätzlich Unterfunktionen hinzuzufügen die mir 1. einen Ordner mit dem Namen des Nutzers erstellt (funktioniert) und 2. diesen für den Nutzer Direkt freigibt (funktioniert nicht).

Ich bekomme den Fehler : Das Objekt unterstützt diese Eigenschaft oder Methode nicht.: 'Freigabe.path'

hier ist die Unterfunktion

01.
Sub Freigabe(Benutzer,OU)  
02.
    
03.
   Set Net = Wscript.CreateObject( "WScript.Network" ) 
04.
   strComputerName = wshNetwork.ComputerName 
05.
 
06.
   Set Netzwerk = GetObject("WinNT://" & strComputerName & ",Computer")  
07.
   Set Freigabe = Netzwerk.Create("Fileshare",Benutzer)  
08.
 
09.
   Freigabe.path = "C:\User\" & Benutzer  
10.
   Freigabe.Setinfo  
11.
 
12.
End Sub
Ich hoffe euch fällt was auf und danke schon mal für jede Hilfe

Gruß
Mitglied: colinardo
13.03.2013, aktualisiert um 10:28 Uhr
Hi whatzzup,

mach das über ein WMI-Objekt:

01.
Sub Freigabe(Benutzer,OU)  
02.
	Const FILE_SHARE = 0 
03.
	Const MAXIMUM_CONNECTIONS = 25 
04.
	SHAREPATH = "C:\User\" & Benutzer 
05.
	strComputer = "." 
06.
	Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
07.
	Set objNewShare = objWMIService.Get("Win32_Share") 
08.
	errReturn = objNewShare.Create(SHAREPATH, "Freigabe-" & Benutzer, FILE_SHARE, MAXIMUM_CONNECTIONS, "Private Share für " & Benutzer) 
09.
End Sub
Grüße Uwe
Bitte warten ..
Mitglied: whatzzup
13.03.2013, aktualisiert um 11:25 Uhr
Hey

danke erstmal für die Hilfe ich bin mir nur nicht sicher ob das ist was ich suche. Ich such die Möglichkeit den Ordner nur für den angelegten Benutzer freizugeben also nur er (und Admin) sollen auf den Ordner zugreifen können.
Bitte warten ..
Mitglied: Friemler
13.03.2013 um 13:39 Uhr
Moin,

ein paar Links:

Create-Methode der Win32_Share Klasse,
Beispielcode für Dein Vorhaben in Visual C++

Unter dem zweiten Link findest Du auch Links auf die anderen beteiligten WMI-Klassen: Win32_SecurityDescriptor, Win32_Trustee und Win32_ACE)

Gruß
Friemler
Bitte warten ..
Ähnliche Inhalte
Windows Server
PowerShell Script - Ordnerrechte setzen
Frage von desmondjamesWindows Server7 Kommentare

Hallo Community, ich bitte um Hilfe. Ich bin nicht so fit in Powershell, benötige aber ein Script. Ich habe ...

VB for Applications
VB-Script in VB-Script starten und Parameter übergeben
gelöst Frage von denkisVB for Applications7 Kommentare

Hallo liebe Scriptgemeinde, ich muss mehrere Rechner für den Übergang in eine neue Domäne vorbereiten. Dafür sind drei wesentliche ...

Batch & Shell
Script zum Abfragen und vergeben von IP
gelöst Frage von cptkrabbeBatch & Shell2 Kommentare

Hallo! Ich probiere gerade ein script zu schreiben, das folgendes machen soll: Script probiert, ob es eine Gateway-IP erreicht. ...

Batch & Shell
Probleme bei der Ausführung eines VB-Scriptes
Frage von AuricGoldfingerBatch & Shell1 Kommentar

Hallo zusammen, ich habe folgendes Script geschrieben: Leider bekomme ich bei der Ausführung den Fehler Was mache ich falsch?? ...

Neue Wissensbeiträge
Viren und Trojaner

Deaktivierter Keylogger in HP Notebooks entdeckt

Information von bitcoin vor 42 MinutenViren und Trojaner

Ein Grund mehr warum man Vorinstallationen der Hersteller immer blank bügeln sollte Der deaktivierte Keylogger findet sich im vorinstallierten ...

Router & Routing

Lets Encrypt kommt auf die FritzBox

Information von bitcoin vor 4 StundenRouter & Routing

In der neuesten Labor-Version der FB7490 integriert AVM unter anderem einen Let's Encrypt Client für Zugriffe auf das Webinterface ...

Internet

Was nützt HTTPS, wenn es auch von Phishing Web-Seiten genutzt wird

Information von Penny.Cilin vor 3 TagenInternet17 Kommentare

HTTPS richtig einschätzen Ob man eine Webseite via HTTPS aufruft, zeigt ein Schloss neben der Adresse im Webbrowser an. ...

Webbrowser

Bugfix für Firefox Quantum released - Installation erfolgt teilweise nicht automatisch!

Erfahrungsbericht von Volchy vor 4 TagenWebbrowser8 Kommentare

Hallo zusammen, gem. dem Artike von heise online wurde mit VersionFirefox 57.0.1 sicherheitsrelevante Bugs behoben. Entgegen der aktuellen Veröffentlichung ...

Heiß diskutierte Inhalte
Vmware
Installation Windows 10 VMware
Frage von Ghost108Vmware17 Kommentare

Hallo zusammen, versuche gerade mit Hilfe des vshpere clients eine virtuelle Windows 10 maschine aufzusetzen. 1. virtuelle Maschine erstellt ...

Exchange Server
SBS 2011 E-Mails können gesendet werden, aber nicht von extern empfangen
Frage von andreas1234Exchange Server14 Kommentare

Hallo Community, ich habe das Problem, dass seit knapp zwei Wochen die E-Mails von meinem SBS 2011 einwandfrei gesendet ...

Voice over IP
Telefonstörung - Ortsrufnummern kein Verbindungsaufbau
Frage von Windows10GegnerVoice over IP10 Kommentare

Hallo, sowohl bei uns als auch beim Opa ist es über VoIP nicht möglich Ortsrufnummern anzurufen. Es kommt nach ...

Batch & Shell
Trusted Sites für alle User auf dem PC einpflegen
Frage von xXTaKuZaXxBatch & Shell8 Kommentare

Aufgabestellung: Es sollen auf 1 PC (bzw. mehreren PCs) vertrauenswürdige Sites per Powershell eingetragen werden, die für alle User ...