Domino 9 und frühere Versionen > ND6: Entwicklung

ADO und Username.Filter = Array("User")

(1/4) > >>

robertpp:
Ich hab ein vbs Script das mir leider ( aber verständlicherweise) einen Fehler ausgibt. In vbs funktioniert es aber wunderbar nur LS nicht. Meinen Frage ist jetzt wie kann ich den Fehler umgehen?


   Const ComputerName = "srveb01"
   Const domain = "//ATEBD1"

   Dim s As New NotesSession
   Dim db As NotesDatabase
   Dim doc As NotesDocument
   Set db = s.CurrentDatabase
   
   Set UserName = GetObject("WinNT://" & ComputerName & ",computer")
   UserName.Filter = Array("User") ' hier tritt der Fehler immer auf
   
   Forall users In UserName
      On Error Resume Next
      user = users.Name
      Set oUser = GetObject("WinNT:" & domain & "/" & user)
      
      Set doc = db.CreateDocument
      doc.Form = "activedirectory"
      doc.ShortName = oUser.Name
      doc.FullName = oUser.FullName
      doc.Department =oUser.Description
      doc.LastLogin = oUser.LastLogin
      If oUser.AccountDisabled <> False Then
         doc.AccountDisabled =  "True"
      End If
      If oUser.IsAccountLocked <> False Then
         doc.AccountLocked = "True"   
      End If
      doc.ValidFrom = Int(oUser.PasswordAge/3600/24)
      Call doc.Save(True, False)      
   End Forall

Ich hab auch schon anstelle von:
   Set UserName = GetObject("WinNT://" & ComputerName & ",computer")
das hier gemacht
   Set UserName= GetObject("winmgmts:\\" & ComputerName &   "\root\cimv2").InstancesOf("Win32_UserAccount")

das geht auch aber liefert mir ein anderes Ergebnis mit dem nicht wirklich etwas anfangen kann.

umi:
Was ist das "Array("User")" für ein Konstrukt? in LS gibts doch gar keine Array() funktion.
Was erwartet den Username.Filter für einen Datentyp?

gruss

umi

robertpp:
Ich weiß leider nicht wie es anders gehen soll. Ich hab im Praxisbuch von Tobias Weltner "Scripting für Admins" gesehen das das es dort ebenfalls mit
domain.Filter = Array("User") gemacht wird und dort passt es auch!

http://www.microsoft.com/technet/scriptcenter/guide/sas_ads_zjvb.mspx
Listing 5.56 Displaying the Filtered Property

oder hier noch ein Microsoft Script

robertpp:
Ich hab auch im Forum das

http://www.atnotes.de/index.php?topic=18372.msg112125#msg112125

gefunden. Ich weiß aber nicht ob es damit zu tun hat.

umi:
Ich denke es liegt am Array("Users"). Dies ist ein Objekt welches LS nicht kennt. in VBs ist es wahrscheinlich vorhanden.

Was für ein Fehler gibts Notes den Retour?

Navigation

[0] Themen-Index

[#] Nächste Seite