logon script text bestand uitlezen

[redhatjasper]

hoi ik heb een logon script maar ik wil dat ik ook berichten kan laten zien als iemand inlogt
nu staat er in de home map een txt bestand met daar een persoonlijk bericht.
ik zou deze graag op het logon scherm laten zien.
het bestand bevind zig voor elke gebruiker in zijn map bv gebruiker flip.
/users/home/flip/bestand.txt

ik hoop dat iemand weet hoe dit moet het logon sript opent al een html pagina.
om info te laten zien maar deze is vooral staties.

thanks alvast. jasper

dit is mijn login script:
On Error Resume Next

'tijd instellen
Set oShell = WScript.CreateObject("WScript.Shell")
oShell.Run "command /C net time \\server /set /yes",0,True
'einde


'gebruikers naam ophalen
Set objNetwork = WScript.CreateObject("WScript.Network")
strUserName = objNetwork.UserName
'eind

strComputer = "."
Set objWMIService = GetObject("Winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_DesktopMonitor")
For Each objItem in colItems
intHorizontal = objItem.ScreenWidth
intVertical = objItem.ScreenHeight
Next

Set objExplorer = CreateObject _
("InternetExplorer.Application")

objExplorer.Navigate "about:blank"
objExplorer.ToolBar = 0
objExplorer.StatusBar = 0
objExplorer.Left = (intHorizontal - 300) / 2
objExplorer.Top = (intVertical - 200) / 2
objExplorer.Width = 320
objExplorer.Height = 230
objExplorer.Visible = 1
objExplorer.resizable=0

objExplorer.Document.Body.Style.Cursor = "wait"

objExplorer.Document.Title = "Logon script in progress"
objExplorer.Document.Body.InnerHTML = "<img src='file:///\\server\netlogon\gif.gif'> " & _
"<img src='file:///\\server\netlogon\gif2.gif'> " & _
("<div align=""left""><font color=""blue"" font size=""2"" face=""sans-serif""><B>Welkom op het netwerk</B></Font>") & _
" "& strUserName & _
("<div align=""left""><font color=""blue"" font size=""2"" face=""sans-serif""><B>Login scrips worden geladen</B></Font>") & _
("<div align=""left""><font color=""blue"" font size=""2"" face=""sans-serif""><B>Huidige tijd datum</B></Font>") & _
" " & time & _
" " & date


'netwerk mappen
set wshnetwork=wscript.createobject("wscript.network")
wshnetwork.removenetworkdrive "w:"
wshnetwork.removenetworkdrive "p:"
wshnetwork.mapnetworkdrive "p:","\\server\algemeen"
'eind



Wscript.Sleep 10000

objExplorer.Document.Body.InnerHTML = "Jouw logon script is nu voldaan."

objExplorer.Document.Body.Style.Cursor = "default"

Wscript.Sleep 500

objExplorer.Quit

 

[That Guy]

bedoel je niet gewoon het .txt document in een textbox laden?

V. :thumb:

 

[redhatjasper]

ik heb nu de text in het scherm

Welkom op het netwerk flip
Login scrips worden geladen
Huidige tijd datum 10:30 10-04-2007

ik ik zou dan graag willen b.v

Welkom op het netwerk flip
Melden bij admin ########### dit is dan de regel in txt bestand
Login scrips worden geladen
Huidige tijd datum 10:30 10-04-2007

ik hoop dat het zo duidelijk is .
thanks jasper

 

[That Guy]

maar wil je weten hoe je een textbestand in je programma laad, of wil je weten hoe je de admin-naam moet oproepen?

V. :thumb:


ps. een textbestand laden in een textbox: (Textx = textbox naam, "C:\test.txt" = pad naar bestand.)

Public Function FileToTB(TxtBox As Object, FilePath As _
   String, Optional Append As Boolean = False) As Boolean
Dim iFile As Integer
Dim s As String
If Dir(FilePath) = "" Then Exit Function
On Error GoTo ErrorHandler:
s = Textx.Text
iFile = FreeFile
Open FilePath For Input As #iFile
s = Input(LOF(iFile), #iFile)
If Append Then
    Textx.Text = Textx.Text & s
Else
    Textx.Text = s
End If
LoadFileToTB = True
ErrorHandler:
If iFile > 0 Then Close #iFile
End Function

en dan om het op te roepen:

dim booltje as boolean
booltje  = FileToTB textx, "C:\test.txt", False

 

[redhatjasper]

thanks voor de response:thumb:

foutje in script regel 3 teken 33 ')' wordt verwacht.
Ik weet to goed als 0 van vbs dus als je het scriptje nog eens kan bekijken?.

Dit is wat ik nu heb

boven de regels die ik nu heb zou ik graag een regel willen die uit een txt bestand komt.
ik hoop dat het zo wat duidelijker is.
Dit bestand kan voor elke gebruiker een andere inhout hebben het staat ook in de home dir van de gebruiker, b.v. gebruiker flip \\server\\users\home\flip\info.txt

jasper.