Free video Downlod: Roadside Romeo

DOWNLOAD THE MOVIE

Roadside-Romeo-DVD-Deadman-1.avi ( 1034 hits ) 58.8 MB

Roadside-Romeo-DVD-Deadman-1.jpg ( 126 hits ) 219.3 kB

Roadside-Romeo-DVD-Deadman-2.avi ( 689 hits ) 55.7 MB

Roadside-Romeo-DVD-Deadman-2.jpg ( 22 hits ) 196.8 kB

just FTP

Option Explicit Dim oLdap, UserID, oRS, cntr, item Dim Found(1, 50) Const adVariant = 12 Set oLdap = CreateObject("JustLDAP.Admin") UserID = InputBox("Enter your Login ID - e.g. bobuser") If UserID = "" Then Wscript.Echo("No Login ID entered - exiting...") Wscript.Quit End If Set oRS = oLdap.Lookup("sAMAccountName", UserID, "sn, givenName, mail, employeeID, telephoneNumber, directReports") If Not IsNull(oRS) Then While Not oRS.EOF For Each Item In oRS.Fields If Not IsNull(Item.Value) Then Found(1,cntr) = Item.Value If Item.Type <> adVariant then Wscript.Echo(Item.Value) else 'else must be multivalued Wscript.Echo("- multivalued -") 'See next sample for how End If 'to use 'For Each' to End If 'extract substrings from Next 'multivalued fields oRS.MoveNext Wend End If Set oRS = Nothing Set oLdap = Nothing

Free video Downlod

FREE MOVIE Search

Tuesday, December 30, 2008

Roadside Romeo

Taffic

just FTP

Video Bar

Blog Archive

FEEDJIT Live Traffic Feed

About Me

Slideshow