| Code: |
|
strComputer = "testrechner" Set objComputer = GetObject("WinNT://" & strComputer) objComputer.Filter = Array("User") For Each objUser In objComputer WScript.Echo objUser.Name Next |
| Code: |
|
Set objUser = GetObject _ ("LDAP://cn=testuser,ou=Management,dc=test,dc=home,dc=de") objUser.Put "profilePath", "\\testrechner\Profile\testuser" objUser.Put "scriptPath", "logon.vbs" objUser.Put "homeDirectory", "\\testrechner\HomeFolders\testuser" objUser.Put "homeDrive", "X:" objUser.SetInfo |