Kix script met plaatje

[pennenlikker]

Hoi allen,

Ik heb het volgende login script, niet echt heel erg profi maar ziet er mooi uit en is snel. ongeveer 3-4 sec.
Ze wilde een voortgang balkje hebben in kix dus vandaar deze oplossing.
Nu was de vraag of er ook een plaatje van het bedrijfslogo in kan.

Nou heb zitten googlen met weinig resultaat, wel met vbs en bat maar niet met kix ook in adminscripteditor staat hier geen voorbeelden voor

---

SetConsole("ALWAYSONTOP") ; Script tonen op scherm
Color b/n
; Kleur
Box (1,18,18,58,SINGLE) ; MenuBox tekenen

Color w+/n
At (1,25) "Bedrijf"
At (3,20) "Type account :"
At (5,20) "Gebruiker :"
At (7,20) "Werkstation :"
At (9,20) "Logon Server :"
At (11,20)"Domein :"
At (13,20)"Tijd :"
At (15,20)"Datum :"

Color y+/n
At (17,22) "Even geduld a.u.b."

Color y+/n
At (13,40) @TIME ; Tijd
At (15,40) "@MDAYNO @MONTH @YEAR" ; Datum notatie
At (3,40) @priv ; Type account
At (5,40) @FULLNAME ; Volledige naam
At (7,40) @WKSTA ; Werkstation naam
At (9,40) @LSERVER ; Logon server
At (11,40) @DOMAIN ; Domein

At (17,22) "Netwerkschijven worden aangemaakt"
At (19,54) "|"
At (19,21) "|"
At (19,22) "*"
At (19,55) "3%"
Sleep 0.1

Use * /delete /persistent ; Alle mappings/printers verwijderen
DelTree("HKEY_CURRENT_USER\Printers\connections")

At (19,22) "**"
At (19,55) "6%"
Sleep 0.1

At (19,22) "***"
At (19,55) "9%"
Sleep 0.1

If InGroup("Schijf F") ; Als gebruiker lid is van globale groep Schijf F
Use F: "\\server1\DB_Eventure" ; MAP U: naar \\Server1\DB_Eventure
EndIf

At (19,22) "****"
At (19,55) "12%"
Sleep 0.1

If InGroup("Schijf F Haarlem") ; Als gebruiker lid is van globale groep Schijf F Haarlem
Use F: "\\svr01\appl" ; MAP F: naar \\svr01\appl
EndIf

At (19,22) "*****"
At (19,55) "15%"
Sleep 0.1

If InGroup("Schijf G") ; Als gebruiker lid is van globale groep Schijf G
Use G: "\\svr01\Data" ; MAP G: naar \\svr01\Data
EndIf

At (19,22) "******"
At (19,55) "18%"
Sleep 0.1


If InGroup("Administrators") ; Als gebruiker lid is van globale groep Administrators

Use J: "\\svr01\c$"
Use K: "\\svr01\d$"
EndIf

At (19,22) "*******"
At (19,55) "21%"
Sleep 0.1

If InGroup("Schijf U") ; Als gebruiker lid is van globale groep Schijf U
Use U: "\\server1\DB_Data" ; MAP U: naar \\Server1\DB_Data
EndIf

At (19,22) "********"
At (19,55) "24%"
Sleep 0.1

If InGroup("Schijf W") ; Als gebruiker lid is van globale groep Schijf W
Use W: "\\server1\DB_WINRIS" ; MAP W: naar \\Server1\DB_WINRIS
EndIf

At (19,22) "*********"
At (19,55) "27%"
Sleep 0.1


If InGroup("Werknemers Den Bosch") ; Als gebruiker lid is van globale groep Werknemers Den Bosch
Use O: "\\server1\software$" ; MAP O: naar \\server1\software$
EndIf

At (19,22) "**********"
At (19,55) "30%"
Sleep 0.1

If InGroup("Werknemers Den Bosch") ; Als gebruiker lid is van globale groep Werknemers Den Bosch
Use X: "\\server1\scan" ; MAP X: naar \\server1\scan
EndIf

At (19,22) "***********"
At (19,55) "33%"
Sleep 0.1

If InGroup("Werknemers Haarlem") ; Als gebruiker lid is van globale groep werknemers Haarlem
Use V: "\\svr01\software$" ; MAP V: naar \\svr01\software$
EndIf

At (19,22) "************"
At (19,55) "36%"
Sleep 0.1

At (19,22) "*************"
At (19,55) "39%"
Sleep 0.1


If InGroup("Exactgebruikers")
Use m: "\\server1\bank import"
Use n: "\\server1\bank export"
EndIf

At (17,22) "Netwerk printers worden toegevoegd"

At (19,22) "**************"
At (19,55) "42%"
Sleep 0.1

At (19,22) "***************"
At (19,55) "45%"
Sleep 0.1

At (19,22) "****************"
At (19,55) "48%"
Sleep 0.1


If InGroup ("Printer Den Bosch")
AddPrinterConnection ("\\server1\DSc232 Nashuatec")
EndIf

At (19,22) "*****************"
At (19,55) "51%"
Sleep 0.1

At (19,22) "******************"
At (19,55) "54%"
Sleep 0.1

If InGroup("Werkenmers Den Bosch Haarlem")
AddPrinterConnection ("\\server1\DSc232 Nashuatec")
EndIf

At (19,22) "*******************"
At (19,55) "57%"
Sleep 0.1

At (19,22) "********************"
At (19,55) "60%"
Sleep 0.1


If InGroup("Werkenmers Den Bosch Haarlem")
Use U: "\\server1\DB_Data" ; MAP U: naar \\Server1\DB_Data
EndIf

At (19,22) "*********************"
At (19,55) "63%"
Sleep 0.1

At (19,22) "**********************"
At (19,55) "66%"
Sleep 0.1


If InGroup ("Printers Haarlem")
AddPrinterConnection ("\\svr01\PRINTER A")
AddPrinterConnection ("\\svr01\KLEUR1RV")
AddPrinterConnection ("\\svr01\LASER1LA")
AddPrinterConnection ("\\svr01\LASER2RV")
AddPrinterConnection ("\\svr01\LASER2LA") ; Heeft de naam LASER2LV
AddPrinterConnection ("\\svr01\PRINTER_FAX_SCANNER")
AddPrinterConnection ("\\svr01\HPKLEUR_BOVEN")
EndIf

At (19,22) "***********************"
At (19,55) "69%"
Sleep 0.1

At (19,22) "************************"
At (19,55) "72%"
Sleep 0.1


If InGroup ("Printer Den Bosch")
SetDefaultPrinter ("\\server1\DSc232 Nashuatec")=0
EndIf

At (19,22) "*************************"
At (19,55) "75%"
Sleep 0.1

If InGroup ("Kleur1RV")
SetDefaultPrinter ("\\svr01\KLEUR1RV")=0
EndIf

At (19,22) "**************************"
At (19,55) "78%"
Sleep 0.1

If InGroup ("Laser1LA")
SetDefaultPrinter ("\\svr01\LASER1LA")=0
EndIf

At (19,22) "***************************"
At (19,55) "81%"
Sleep 0.1

If InGroup ("Laser2LV")
SetDefaultPrinter ("\\svr01\LASER2LV")=0
EndIf

At (19,22) "****************************"
At (19,55) "85%"
Sleep 0.1

If InGroup ("PrinterA")
SetDefaultPrinter ("\\svr01\PRINTER A")=0
EndIf

At (19,22) "*****************************"
At (19,55) "89%"
Sleep 0.1


If InGroup ("PrinterFaxScanner")
SetDefaultPrinter ("\\svr01\PRINTER_FAX_SCANNER")=0
EndIf

At (19,22) "******************************"
At (19,55) "93%"
Sleep 0.1

At (19,22) "*******************************"
At (19,55) "96%"
Sleep 0.1

At (19,22) "********************************"
At (19,55) "100%"
Sleep 0.1


At (17,22) " "

At (17,22) "Loginscript voltooid"
Sleep 0.1
Exit

---

[tim427]

Ziet er toch netjes uit moet ik zeggen!

[alt-92]

pennenlikker schreef op dinsdag 01 april 2008 @ 14:39:
Ze wilde een voortgang balkje hebben in kix dus vandaar deze oplossing.
Nu was de vraag of er ook een plaatje van het bedrijfslogo in kan.

Binnen Kix kun je daar een Kixtart Form voor gebruiken.
( CreateObject("Kixtart.Form") )

Wel apart dat ze het niet in de editor hebben zitten, want op de ASE site wordt het wel genoemd
http://www.adminscriptedi...ptlibrary/view.asp?id=259

[ Voor 36% gewijzigd door alt-92 op 01-04-2008 22:36 ]

[pennenlikker]

Nope zit niet in de logon script builder van ze.

En op deze manier kan ik ook wel een plaatje openen, kan het ook gewoon een ie venster oproepen.
Alleen dat ziet er ook niet uit.
In dat dos venster moet je toch ook gewoon een bitmapje weer kunnen geven of niet dan?

[jvalks]

off-topic: controleer ff op je spelfouten:

If InGroup("Werkenmers Den Bosch Haarlem")

[FCVD]

Geloof dat er ook zoiets was als KIXgui. Hier kan je per onderdeel een eigen statusbar en logo en systeminfo laten zien.

google ff op kixgui.........legio voorbeelden

[pennenlikker]

jvalks schreef op woensdag 02 april 2008 @ 11:21:
off-topic: controleer ff op je spelfouten:

If InGroup("Werkenmers Den Bosch Haarlem")

ja thanx ik zie het, gelukkig heet de groep ook zo.
Spelfoutje

[pennenlikker]

Met kixGUI gaat het inderdaad, met vbs ook.
Heb een tijd zitten zoeken maar denk dat het niet mogelijk is om iets grafisch weer te geven in zo'n dos venstertje

[DenZj]

Asci Art kan je proberen, maar goed uitziende plaatjes wordt lastig als het al mogelijk is

[pennenlikker]

Jammer is dat je op ieder puntje wat je ziet aan moet geven op welke coordinaten hij in het scherm moet komen.
Niet echt een oplossing voor mij.
Het gaat jammer genoeg niet dus.

Iig bedankt allemaal

[alt-92]

pennenlikker schreef op woensdag 02 april 2008 @ 11:45:
Met kixGUI gaat het inderdaad, met vbs ook.
Heb een tijd zitten zoeken maar denk dat het niet mogelijk is om iets grafisch weer te geven in zo'n dos venstertje

Dat kan inderdaad niet.
Command prompt/Console/dosbox = text, character based, dus dat wordt ASCII Art genereren

[ Voor 4% gewijzigd door alt-92 op 02-04-2008 19:23 ]

[Yoeri]

Mwa, met Qbasic kon je ook bitmap-viewers bouwen