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