Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Lokalen User in Lokale Gruppe verschieben mit VBSCRIPT

Frage Entwicklung VB for Applications

Mitglied: ledonz

ledonz (Level 1) - Jetzt verbinden

19.12.2008, aktualisiert 10:42 Uhr, 9069 Aufrufe, 4 Kommentare

Also, ich möchte einen Lokalen (nicht AD!!) User in eine Lokale Gruppe (Hauptbenutzer) legen, finde überall nur das
Beispiel von Unten, das funktioniert aber nicht... =-(
denke weil man da von AD-user ausgeht, nicht von lokalen....


strComputer = "atl-ws-01"
Set objGroup = GetObject("WinNT://" & strComputer & "/Administrators,group")

Set objUser = GetObject("WinNT://" & strComputer & "/kenmyer,user")
objGroup.Add(objUser.ADsPath)

Kann mir jemand helfen, wie ist die Funktion für lokale user....??

Danke
Mitglied: bastla
19.12.2008 um 12:19 Uhr
Hallo ledonz!

Und wenn Du die Zeile 1 änderst?
strComputer = "."
Grüße
bastla
Bitte warten ..
Mitglied: ledonz
19.12.2008 um 14:20 Uhr
asooo ja nee hab ich schon, hab vergessen das im Beispiel rauszunehmen.. aber vielen Dank, hab das Problem schon gelöst(erklärung unten) aber ein neues problem...

also funkt nicht:
strComputer = "."
Set objGroup = GetObject("WinNT://" & strComputer & "/groupname,group")

Set objUser = GetObject("WinNT://" & strComputer & "/username,user")
objGroup.Add(objUser.ADsPath)

das hier klappte aber toll

rechner = "."
userid = "username"
passwort = "meinpasswort"
name = "username"
beschreibung = "So ein Beispiel halt"
Set wn = CreateObject("Wscript.Network")
set rechner = GetObject("WinNT://" & rechner )
set konto = rechner.Create("user", userid)
konto.SetPassword passwort
konto.fullname = name
konto.description = beschreibung
konto.SetInfo 'Daten werden aus Cache in Objekt geschrieben.
msgbox("Useraccount " & userid & " wurde angelegt.")

Set objWshNet = CreateObject("wscript.network")
strComputer = objwshnet.computername
strUser = "username"
strUser = "WinNT://" & strComputer & "/" & strUser
Set ObjAdminGroup = GetObject("WinNT://" & strComputer &_
"/gruppe,group")
objAdminGroup.Add strUser


klappt alles suuuper. aber wie kann ich jetzt angeben, dass das userpasswort nie ablaufen soll??? weiß das irgendwer hier????
Bitte warten ..
Mitglied: Biber
19.12.2008 um 17:43 Uhr
Moin ledonz,

meines Wissens nach sind die empfohlene Lösung, die Password-Never-Expires-Eigenschaft über den LDAP-Provider zu setzen und dann über das Property ."userAccountControl" auf Hex 10000 zu setzen.

Du dagegen willst ja einen lokalen Account setzen und über WINNT:// gehen.
Da wirst Du bestenfalls mit folgender (eindeutig veralteten Strategie) eventuell zum Ziel kommen:
  • Du musst AFAIK zwingend ein bereits gebundenes User-Objekt haben/erzeugen oder auf deutsch, das konkret an einer Remoteressource, also am "Rechnernamen" Userobjekt vorhandene Objekt holen

Eher kommst Du nicht an die Property "UserFlags" ran, die Du bei diesem Nicht-LDAP-Weg setzen musst.

01.
Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000 
02.
passwort = "meinpasswort" 
03.
'  --- Userobj MUSS remote bzw gebunden sein  
04.
' !!! Deshalb ein vorhandenes nehmen  
05.
' (der User heisst "PwNeverExTest") 
06.
set user = GetObject("WinNT://MyCompiName/PwNeverExTest" )   
07.
' Edit: ... GetObject("WinNT://./PwNeverExTest" )   -> sollte auch gehen. 
08.
user.SetPassword passwort 
09.
oldFlags = user.Get("UserFlags") 
10.
newFlags = oldFlags Or ADS_UF_DONT_EXPIRE_PASSWD 
11.
user.Put "UserFlags", newFlags 
12.
 user.SetInfo 
13.
    WScript.Echo "DEBUG:Password never expires wurde gesetzt"
Grüße
Biber
Bitte warten ..
Mitglied: ledonz
21.12.2008 um 15:16 Uhr
hey, hab gar nicht gemerkt, dass du das im anderen auch bist.
=-))


vielen dank.
Bitte warten ..
Ähnliche Inhalte
Windows 7
AD-Benutzer einer Lokalen Gruppe hinzufügen(16Bit OU) (3)

Frage von WIZARDBOY zum Thema Windows 7 ...

Windows Userverwaltung
Lokale Ordnerumleitung auf den Server wieder lokal umsetzen (6)

Frage von M.Marz zum Thema Windows Userverwaltung ...

Backup
gelöst Backup Exec Sicherung auf NAS mit lokalem User (9)

Frage von Fruehling2017 zum Thema Backup ...

Windows Userverwaltung
gelöst Lokalen Bentuzer Kennwort Ändern (9)

Frage von Adnan88 zum Thema Windows Userverwaltung ...

Neue Wissensbeiträge
Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

(2)

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Viren und Trojaner

CNC-Fräsen von MECANUMERIC werden (ggf.) mit Viren, Trojanern, Würmern ausgeliefert

(4)

Erfahrungsbericht von anteNope zum Thema Viren und Trojaner ...

Windows 10

Windows 10: Erste Anmeldung Animation deaktivieren

(3)

Anleitung von alemanne21 zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Netzwerkgrundlagen
Kann auf Freigabe nicht Zugreifen (19)

Frage von leon123 zum Thema Netzwerkgrundlagen ...

Windows Server
gelöst Neues KB für W10 1607 und W2K16 wieder mal nicht im WSUS 3.0, hat das noch jemand? (16)

Frage von departure69 zum Thema Windows Server ...

Windows Server
DC virtualisieren + wie sichern (SingleDC-Environment) (12)

Frage von KMUlife zum Thema Windows Server ...

Festplatten, SSD, Raid
RAID Controller mit Trim-Funktion, wie ermitteln (11)

Frage von pixel24 zum Thema Festplatten, SSD, Raid ...