Velkomst hilsen?

Det er når man logger på jeg mener..

Hvis du vil prøve at lave fancy logon scripts, så kan du prøve at kigge lidt på http://groups.msn.com/windowsscript/logonscripts.msnw - http://www.microsoft.com/windows2000/techinfo/howitworks/activedirectory/adsilinks.asp

Snowball

Snowball: Den øverste virker ikke.. Den nederste passer kun til NT 4.0
Men ellers tak.. Har du ikke ellers noget måske kan bruge?

Gem nedenstående tekst som filnavn.vbs


Set oADsRootDSE = GetObject("LDAP://RootDSE")
Set oADsSysInfo = CreateObject("ADSystemInfo")
sADsUser = oADsSysInfo.UserName
sUserPath = "LDAP://" & sADsUser
Set oADsContainer = GetObject(sUserPath)

Fornavn=oADsContainer.givenName
Efternavn=oADsContainer.sn

Select Case Hour(now)
  Case 23,0,1,2,3,4
    TidTekst="Sidder du her om natten ? " & Fornavn & " " & Efternavn
  Case 5,6,7,8,9,10
    TidTekst="Godmorgen " & Fornavn & " " & Efternavn
  Case 11,12,13
    TidTekst="Middag " & Fornavn & " " & Efternavn
  Case 14,15,16,17
    TidTekst="Godeftermiddag " & Fornavn & " " & Efternavn
  Case 18,19,20,21,22
    TidTekst="Godaften " & Fornavn & " " & Efternavn
End Select

Select Case Weekday(now)
  Case 1
    UgedagTekst="Hvad laver du dog her på en søndag ?"
  Case 2
    UgedagTekst="I dag er det mandag"
  Case 3
    UgedagTekst="I dag er det tirsdag"
  Case 4
    UgedagTekst="I dag er det onsdag"
  Case 5
    UgedagTekst="I dag er det torsdag"
  Case 6
    UgedagTekst="I dag er det fredag"
  Case 7
    UgedagTekst="Hvad laver du her på en lørdag ?"
End Select

Tittel="Overskrift"
Underskrift="Med venlig hilsen" & chr(13) & chr(13) & "TPO"

Hilsen = MsgBox (TidTekst & chr(13) & chr(13) & UgedagTekst & chr(13) & chr(13) & Underskrift, 63, Tittel)

Tpo: Passer den også til 2003 SBS?

Det kører jo på klienten. Så test det!
:-)

>sykonia
Kunne du bruge scriptet?

Ja.. Det med ugedagene kunne jeg.. Ville gerne ha det med HTML..