[WinXP] Grafisch login-script

[Verwijderd]

Een tijd geleden heb ik bij een bedrijf een grafisch loginscript gezien. Voorheen gebruikte ze Kix maar waren pas overgestapt op iets grafisch.
Aangezien ik nu ook een server (PDC) heb opgezet wil ik ook zo'n mooi grafisch loginscript.
Ik heb reeds uren op google en op GoT gezocht maar nog niks gevonden.

Weten jullie hoe dit programma heet ????

[Guldan]

dit is al even geleden, maar ik geloof dat je met de nieuwe versie van Kix ook zoiets kon doen. Tenminste ze hadden zo mooi voorbeeld op de site. ik weet zeker dat er een grafische versie van Kisstart was. natuurlijk kan ik hem nu niet meer vinden.

edit:
Sorry kan niets vinden, damn

[ Voor 9% gewijzigd door Guldan op 19-06-2004 16:44 ]

[Verwijderd]

Zon login script wordt met HTML gedaan.
Ik ga er binnenkort ook aan beginnen. Mijn collega weet er meer van, dus zodra ik iets heb gebakken, dan wil ik dat eventueel wel even doorspelen.

en zoals je wel kan raden: met html kan je dus een heel mooi login script maken.

edit:
inlog script uiteraard met VBS gekoppeld in html

[ Voor 11% gewijzigd door Verwijderd op 19-06-2004 16:44 ]

[bolke]

Hoe bedoel je grafische?

In VBS zitten ook wat grafische functie. Misschien is er daar wat mee gedaan.

Ik maak tegenwoordig geen KiX meer. KiX heeft zijn nut bewezen in een Windows NT omgeving maar in een Windows 2000 en hoger omgeving kun je met VBS heel wat meer.

[alt-92]

ligt er ook een beetje aan wat je precies bedoelt met grafisch script... bedoel je alertboxes enzo, of een .hta waar progress balken en degelijke in zitten?

[Verwijderd]

Laatst was ik bij een klant waar ze dat ook hadden.
Eerst hadden ze kix, en sinds atos origin daar binnen zat was het een (hele mooie) gui geworden.
Helaas was het gecompiled naar een exe, want met de inhoud van de netlogon kon ik niks.
De applicatiebeheerder van dat bedrijf kon me niet zeggen waar het mee gedaan was, maar ik was zeer onder de indruk.
Dus ik ben ook erg niewsgierig waar ze het mee gedaan hebben, en of het relatief makkelijk te leren is.

[dEADkIRK]

Je maakt een VBS-script waarin je met vb geprogrameerde gui aanroept. Doormiddel in het vbs-script een counter telkens met 1 waarde op te hogen kan je een progress bar laten zien.

Waar heb je dat gezien van AO? in rotterdam toevallig

[Pascal]

heb je geen example code:?

vindt het wel interresant..

[elevator]

Hier is een voorbeeldje te vinden

[Verwijderd]

dEADkIRK schreef op 21 juni 2004 @ 10:39:
Waar heb je dat gezien van AO? in rotterdam toevallig

Een grote energiemaatschappij in Amsterdam.

[Verwijderd]

elevator schreef op 23 juni 2004 @ 14:05:
Hier is een voorbeeldje te vinden

Mooi voorbeeld, maar niet te downen. (zelf als ik ben ingelogd met passport)
Heeft iemand dat spul nog op een andere plek?

[elevator]

Het voorbeeld staat ook in de text (dat stuk met createObject internet explorer en wat html is al genoeg om zelf mee aan de slag te kunnen volgens mij)

[ Voor 4% gewijzigd door elevator op 23-06-2004 15:38 ]

[TheVMaster]

Verwijderd schreef op 23 juni 2004 @ 14:43:
[...]


Mooi voorbeeld, maar niet te downen. (zelf als ik ben ingelogd met passport)
Heeft iemand dat spul nog op een andere plek?

Hmm...'k kon het hier gewoon downloaden hoor...kan het wel ff posten

[TheVMaster]

elevator schreef op 23 juni 2004 @ 14:05:
Hier is een voorbeeldje te vinden

Hieronder vind je de code van het loginscript wat je via de link van elevator kunt downloaden (voor de mensen die er niet bij kunnen)....


LOGON.VBS

code:

'==========================================================================
'
' VBScript Source File -- Created with SAPIEN Technologies PrimalSCRIPT(TM)
'
' NAME: logon.vbs
'
' AUTHOR: Ian Morrish, http://www.windows-script.com
' DATE  : 5/7/2000
'
' COMMENT: This file must be copied to all domain controlers
'
'==========================================================================
On Error Resume Next
Dim WshNetwork, asdPath, User
Dim strMappedDrives, strStatus
Dim IE

Const ADS_READONLY_SERVER = 4
  
' Display IE status window

Call CreateIE()
strStatus = "Logon Script v1.0 " & Date()
ie.document.all.wstatus.InnerText = strMsg3

' Get the User ID

Set WSHNetwork = WScript.CreateObject("WScript.Network")
strUser = ""
While strUser = ""
    strUser = WSHNetwork.UserName
Wend

ie.document.all.Msg1.InnerText = strUser

call main()

strStatus = strStatus & vbCRLF & "Network Logon Complete..."
ie.document.all.wstatus.InnerText = strStatus


' Close IE status window

if ie.document.all.form1.keepalive.value = Then
    ie.quit
End If

' End of logon script

Public Sub Main()

  'Main loop to detect group that user belongs to
  adsPath = "WinNT://DomainName/" & User
  Set dso = GetObject("WinNT:")
  Set objUser = dso.OpenDSObject(adsPath,"","", ADS_READONLY_SERVER)
  For Each Prop In objUser.groups
    Select Case Prop.Name

      Case "Division1"
        Call Division1()

      Case "Division2"
        Call Division2()
        
      Case "Division3"
        Call Division3()

      'etc
    End Select
  Next 'Prop
    
End Sub

Sub Division1()

  strStatus = strStatus & vbCRLF & "Member of Division 1..."
  ie.document.all.wstatus.InnerText = strStatus

  strHomeDir = "\\UserServer1\" & User & "$"
  MapDrive "H:", strHomeDir

  MapDrive "K:", "\\FileServer\Finance"

End Sub

Sub CreateIE()

  On Error Resume Next
  Set IE = CreateObject("InternetExplorer.Application")
  With IE
    .navigate "\\server\netlogon\logon.htm"
    .resizable=0
    .height=420
    .width=350
    .menubar=0
    .toolbar=0
    .statusBar=0
    .visible=1
  End With
  Do while ie.Busy
    ' wait for page to load
    Wscript.Sleep 100
  Loop

End Sub

Sub MapDrive(strDrive,strShare)

    On Error Resume Next
    WSHNetwork.MapNetworkDrive strDrive, strShare

    If Err.Number Then

        WSHNetwork.RemoveNetworkDrive strDrive
        WSHNetwork.MapNetworkDrive strDrive, strShare

    End If

    strMappedDrives = strMappedDrives & strDrive & " "
    ie.document.all.Msg2.InnerText = strMappedDrives

End Sub

LOGON.HTM

code:

<html>
<head>
<title>Advantage Network Logon</title>
</head>
<Script Language=VBScript>
document.title="Advantage Network Logon"
Sub Hold()
    document.all.holdit.checked = true
End Sub
</Script>
<body onclick="hold()" SCROLL="no">
<table border="0" width="313" cellspacing="0" cellpadding="0">
  <tr>
    <td width="311">[img]"advadvantage.jpg"[/img]</td>
    </tr>
  <tr>
    <td width="311"><font size="6" face="Comic Sans MS">&nbsp;Network Logon...</font></td>
  </tr>
  <tr>
    <td><font face="Comic Sans MS">&nbsp;Welcome to your network advantage!
      <marquee ID=scrolling width="95%" height="23"></marquee>
      </font>
      <p><font face="Comic Sans MS">User Name:&nbsp;</font>
      <font face="Verdana" ID=Msg1></Font></p>
      <p>&nbsp;<font face="Comic Sans MS">Mapping Drives:&nbsp;</font>
      <font face="Verdana" ID=Msg2></Font></p>
      <hr size="4" color=Red>
    </td>
  </tr>
  <tr>
    <td>
    <textarea rows="2" name="wstatus" cols="60" style="font-family: Comic Sans MS; font-size: 8pt">
</textarea></td>
  </tr>
</table>
<input type="checkbox" name="holdit">
</body>
</html>

[ Voor 32% gewijzigd door TheVMaster op 23-06-2004 16:04 ]

[Verwijderd]

TheVisionMaster schreef op 23 juni 2004 @ 16:00:
Hmm...'k kon het hier gewoon downloaden hoor...kan het wel ff posten

Ik dank u hartelijk