Hallo zusammen,
wir wollen bei uns ein VB-Skript laufen lassen, dass im AD als auch im Notes "Leichen" löscht.
In der Testumgebung, auf einem mit einer Adminkennung konfigurierten Client gestartet läuft es ohne Probleme.
Wir wollen aber in der Produktion 1. keine Adminkennung mehr verwenden. Sollte doch dank der Autorenrechte auf der admin4.nsf trotzdem laufen, oder?
2. wollen wir einen User und ein Kennwort im Skript mitgeben. Doch dann bricht das Skript mit der Meldung "Fehler User ist kein Server." ab.
Hat jemand einen Tipp für mich, wie wir die Angelegenheit in den Griff bekommen?
Set g_oNotesSession = CreateObject("lotus.notessession")
Call g_oNotesSession.Initialize("%Kennwort%") # so funktioniert es in der TE
' Call g_oNotesSession.InitializeUsingNotesUserName("%AdminShortname%", "%Kennwort%") ' # Fehler User ist kein Server.. So funktioniert nix!
Set g_oNotesAdminP = g_oNotesSession.CREATEADMINISTRATIONPROCESS("%Servername%")
iResult = ""
iResult = g_oNotesAdminP.DELETEUSER("%Username%", False, 2, "DenyAccess")
msgbox "Returncode:" & iResult
Set g_oNotesAdminP = Nothing
Set g_oNotesSession = Nothing
Vielen Dank fürs Lesen und noch mehr für mögliche Antworten!
Gruß
T.H.