nesret

Hi Bernd, danke erst mal für die schnelle Hilfe Die Option ist nicht schlecht, nur die User haben verschiede Freigaben und das wäre nicht so geschickt. Am besten wäre es einfach den Server zu ändern. Gruß Neo

hi, vielleicht hiermit '************************************************************** ' ' gibt den gerade angemeldeten User zurück '************************************************************** Option Explicit Dim Server Server = "SERVER" If Server = "" Then MsgBox "Servername oder IP-Adresse angeben!" & vbCRLF & vbCRLF & ". . . das ist das Ende" , , WScript.ScriptName WScript.Quit End If MsgBox WMIinfo ( Server ), , WScript.ScriptName MsgBox WMIinfo ( "192.168.0.1" ), , WScript.ScriptName WScript.Quit '************************************************************** '************************************************************** Function WMIinfo ( Server ) ' Anfang '************************************************************** Dim objWMIService, colItems, objItem On Error Resume Next Set objWMIService = GetObject("winmgmts:\\" & Server & "\root\cimv2") if not err.Number = 0 then If err.Number = -2147217405 Then err.Description = "Access Denied" WMIinfo = Server & " ==>" & err.Description & " - Fehlernr. " & err.Number WScript.Quit End If Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48) For Each objItem in colItems if not objItem.UserName = "" then WMIinfo = Server & " ==> " & objItem.UserName & vbTab & " ist angemeldet" Else WMIinfo = Server & " ==> kein angemeldeter User" End If Next On Error GoTo 0 End Function ' WMI ( Server ) '**************************************************************

das ist cool, danke ;o)

Glückwunsch !

Hallo da draußen! Ich suche eine Möglichkeit bei 3000 User die Profilpfade zu lesen und zu ändern. gibt's da ein möglichkeit, wie ich das per Skript machen kann. (\\"server"\share$\user) also es soll nur der Server geändert werden. vielen dank neo