Jump to content
Sign in to follow this  
dfritz

Netzwerk "Jede" Freigaben ändern per Script ?

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

Share this post


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.

Share this post


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:

Share this post


Link to post
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte überlege Dir, ob es nicht sinnvoller ist ein neues Thema zu erstellen.

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.   Restore formatting

  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.

Sign in to follow this  

Werbepartner:



×
×
  • Create New...