Jump to content
Sign in to follow this  
kuehnlm

VB-Script zum Shares auslesen

Recommended Posts

Hallo,

 

ich hab folgendes Script zum Shares auslesen.

 

On Error Resume Next

 

Dim Args

Set Args = WScript.Arguments

 

strComputer = Args(0)

 

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery_

("Select * from Win32_Share")

For Each objItem in colItems

Wscript.Echo ";" & objItem.Name & "," & objItem.Path

Next

 

Wo muß ich angeben, dass das von mir aus mit Parametermitgabe (cscript shares.vbs <computername>) auf allen Rechnern die jeweiligen Shares ausliest....tut nämlich irgendwie nicht...

 

DANKE

Share this post


Link to post

Wenn Du das "On Error Resume Next" rausnimmst, bekommst Du zumindest schon mal ne Fehlermeldung.

In meinem Fall lautete die sinngemäß, daß ich keinen Zugriff auf den Rechner habe.

Gibt es vielleicht eine Authentifizierung beim WMI oder eine Rechteverwaltung, die man nutzen könnte?

 

Ansonsten bleibt Dir immer noch das Script jeweils lokal per Anmeldescript auszuführen und trotzdem alle Daten zentral zu sammeln.

 

Andre

Share this post


Link to post

Hi,

ich bins nochmal.

 

Bei meinen normalen Domain-PC's klappt es ohne Probleme.

Bin im Netzwerk aber auch gerade als Domain-Admin unterwegs.

Wird bei Dir also ein Berechtigungsproblem sein.

 

Andre

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