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!

Recommended Posts

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 to post

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 to post

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 to post
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...