dfritz 10 Geschrieben 27. April 2007 Melden Teilen Geschrieben 27. April 2007 Hallo zusammen, da einige unserer Mitarbeiter nicht in der Lage sind Domainengruppen zu benutzen um Freigaben an ihrer Workstation einzurichten, haben wir immer das Problem das Gäste leider zu oft Zugriff auf Firmeninterna haben. Gibt es evtl. die Möglich per Script das Netzwerk zu durchsuchen und Jederfreigaben in Domainuserfreigaben (Domaingruppen) zu ändern ? Evtl. gibt es ja auch für sowas ein Tool. Hat jemand einen Tipp ? Gruß Daniel Zitieren Link zu diesem Kommentar
tacher 10 Geschrieben 27. April 2007 Melden Teilen Geschrieben 27. April 2007 Es gibt mal sicher die möglichkeit alle Shares anzeigen zu lassen via WMI On Error Resume Next Const wbemFlagReturnImmediately = &h10 Const wbemFlagForwardOnly = &h20 arrComputers = Array("WORKSTATIONNAME") For Each strComputer In arrComputers WScript.Echo WScript.Echo "==========================================" WScript.Echo "Computer: " & strComputer WScript.Echo "==========================================" Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Share", "WQL", _ wbemFlagReturnImmediately + wbemFlagForwardOnly) For Each objItem In colItems WScript.Echo "AccessMask: " & objItem.AccessMask WScript.Echo "AllowMaximum: " & objItem.AllowMaximum WScript.Echo "Caption: " & objItem.Caption WScript.Echo "Description: " & objItem.Description WScript.Echo "InstallDate: " & WMIDateStringToDate(objItem.InstallDate) WScript.Echo "MaximumAllowed: " & objItem.MaximumAllowed WScript.Echo "Name: " & objItem.Name WScript.Echo "Path: " & objItem.Path WScript.Echo "Status: " & objItem.Status WScript.Echo "Type: " & objItem.Type WScript.Echo Next Next Function WMIDateStringToDate(dtmDate) WScript.Echo dtm: WMIDateStringToDate = CDate(Mid(dtmDate, 5, 2) & "/" & _ Mid(dtmDate, 7, 2) & "/" & Left(dtmDate, 4) _ & " " & Mid (dtmDate, 9, 2) & ":" & Mid(dtmDate, 11, 2) & ":" & Mid(dtmDate,13, 2)) End Function Die Win32_Share hat noch Methoden (Content not found. Vielleicht kannst du damit was anfangen. ich weiss jetzt auf die schnelle nicht wie du an die Berechtigungen der Shares ran kommst. Ist vermutlich über ACL gelöst. Zitieren Link zu diesem Kommentar
Hansi 10 Geschrieben 27. April 2007 Melden Teilen Geschrieben 27. April 2007 mahlzeit, @ dftritz...sorry aber da fällt mir nix zu ein ausser Handarbeit. ABER @tacher.. öhm....gibts ne Seite oder ein Forum wo man solche skripte für häufige anfallende Arbeiten beziehen kann...ohne richtig fit in der Materie zusein?:D Mann muss das Rad nicht täglich neuerfinden..zudem kann man darüber vielleicht besser anhand der fertigen scripts das scripten erlernen! Hab bis heute noch nicht den richtigen Einstieg ins wmi scripting gefunden...Hat wer Tips oder links wo man anfangen sollte, sich dies anzueignen? Für tips DAnkbar sry...dfritz das dein Post dafür entwende:wink2: Zitieren Link zu diesem Kommentar
tacher 10 Geschrieben 27. April 2007 Melden Teilen Geschrieben 27. April 2007 @tacher.. öhm....gibts ne Seite oder ein Forum wo man solche skripte für häufige anfallende Arbeiten beziehen kann...ohne richtig fit in der Materie zusein?:D Dieses Script war jetzt aus dem "Scriptomatic" von Microsoft :) Download details: Scriptomatic 2.0 Zitieren Link zu diesem Kommentar
Empfohlene Beiträge
Schreibe einen Kommentar
Du kannst jetzt antworten und Dich später registrieren. Falls Du bereits ein Mitglied bist, logge Dich jetzt ein.