Re: Login Script

From: dieseyer (anonymous_at_discussions.microsoft.com)
Date: 08/05/04


Date: Thu, 5 Aug 2004 03:39:41 -0700

Hallo!

WSHShell.Popup wshnet.ComputerName & vbTab &
wshnet.UserName, 13, WScript.ScriptName, 16

Bis dann - dieseyer
Und zwischendurch: http://dieseyer.de

>-----Originalnachricht-----
>Hallo Leute,
>ich habe ein LoginScript indem bestimmte Netzlaufwerke
gemappt werden.
>Jetzt möchte ich noch das der User durch eine Massage-Box
begrüßt
>wird.
>"Sie sind als "MaxMustermann" am Computer "XYZ"
angemeldet. Diese
>Massage-Box soll nach kurzer Zeit automatisch schließen.
Ich bin kein
>Programmier Spezi, habe schon einiges ausprobiert aber
leider hat es
>nicht so funktioniert.
>Für Eure Hilfe Bedanke ich mich schon einmal im voraus.
>Gruß Holger
>
>Mein Script:
>
>Option Explicit
>on error resume next
>dim WshNetwork, i, oDrives, WshShell, name, ErrCode
>set WshNetwork = Wscript.CreateObject("Wscript.Network")
>set oDrives = WSHNetwork.EnumNetworkDrives
>Set WshShell = WScript.CreateObject ("WScript.Shell")
>'=========================================================
=====================
>'User Begrüßung ???
>wshnetwork.username = %username%
>wshnetwork.computername = %computername%
>
>
>'=========================================================
=====================
>'löschen vorhandener laufwerke
>for i = 0 to oDrives.count-1 step 2
> if odrives(i) <> " " then
>
> if odrives(i) = "M:" then
wshnetwork.removenetworkdrive "M:"
> if odrives(i) = "L:" then
wshnetwork.removenetworkdrive "L:"
> if odrives(i) = "O:" then
wshnetwork.removenetworkdrive "O:"
> if odrives(i) = "Q:" then
wshnetwork.removenetworkdrive "Q:"
> if odrives(i) = "T:" then
wshnetwork.removenetworkdrive "T:"
> if odrives(i) = "U:" then
wshnetwork.removenetworkdrive "U:"
> if odrives(i) = "V:" then
wshnetwork.removenetworkdrive "V:"
> if odrives(i) = "X:" then
wshnetwork.removenetworkdrive "X:"
> if odrives(i) = "Y:" then
wshnetwork.removenetworkdrive "Y:"
> if odrives(i) = "Z:" then
wshnetwork.removenetworkdrive "Z:"
> end if
>next
>'=========================================================
=====================
>'wiederherstellen der standardlaufwerke
>WshNetwork.MapNetworkDrive "O:", "\\odi\odi1.4.2
\odiprint\pdf"
>WshNetwork.MapNetworkDrive "Q:", "\\Schrader.srv\QM"
>WshNetwork.MapNetworkDrive "V:", "\\Schrader.srv\Verwaltun
g\Vorlagen
>Dokumente"
>WshNetwork.MapNetworkDrive "M:", "\\Schrader.srv\Datafile"
>.
>