Jump to content

Netzwerk "Jede" Freigaben ändern per Script ?


Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Empfohlene Beiträge

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

Link zu diesem Kommentar

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.

Link zu diesem Kommentar

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:

Link zu diesem Kommentar
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Schreibe einen Kommentar

Du kannst jetzt antworten und Dich später registrieren. Falls Du bereits ein Mitglied bist, logge Dich jetzt ein.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung jetzt entfernen

  Only 75 emoji are allowed.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor-Fenster leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

×
×
  • Neu erstellen...