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

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, 1510 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 ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(8)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
Outlook & Mail
gelöst Email Anhänge speichern VB Script aber nur bestimmte Dateitypen (Outlook) (4)

Frage von LindeUnimog zum Thema Outlook & Mail ...

VB for Applications
gelöst VB Script rekursiv statt nur ein Ordner (4)

Frage von Saschaaaaa zum Thema VB for Applications ...

VB for Applications
gelöst VB Script nach gefundenem Wort die nächsten 4 Zeichen ersetzten (2)

Frage von deutsch73 zum Thema VB for Applications ...

Batch & Shell
gelöst Script zum Abfragen und vergeben von IP (2)

Frage von cptkrabbe zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
Microsoft
Ordner mit LW-Buchstaben versehen und benennen (20)

Frage von Xaero1982 zum Thema Microsoft ...

Outlook & Mail
gelöst Outlook 2010 findet ost datei nicht (19)

Frage von Floh21 zum Thema Outlook & Mail ...

Netzwerkmanagement
gelöst Anregungen, kleiner Betrieb, IT-Umgebung (18)

Frage von Unwichtig zum Thema Netzwerkmanagement ...

Festplatten, SSD, Raid
M.2 SSD wird nicht erkannt (14)

Frage von uridium69 zum Thema Festplatten, SSD, Raid ...