Pc Active.bat

[eeyk]

online op Ik heb laast ongewenste mensen op Mijn computer gehat als ik niet thuis bent nu heb ik een simple bat script bedacht

@ echo off
cls
echo online op!>>online.txt
date /t >>online.txt
time/t >>online.txt
echo.>>online.txt
cls
exit

dit zit dan in opstart Folder maar als je nu de pc aan zet zie je een zwart schermpje van de batch bestand dus die seconden dan ziet die persoon het en gaat zoeken waar het log bestand is

hoe kan ik dit Still uit voeren!

 

[ZipPe]

Via command line en batch lukt het niet om dat stil uit te voeren..
Met VBS wel..

Maak een C:\TEMP en stop onderstaande script id de All users startmenu startup
of maak er een logon script van.

Eventueel ook een logoff script en verander de strText = in Log Off"

In de C:\TEMP wordt dan telkens bij in en uitlogen een text file gemaakt met username met daarin de dag en tijd en naam van gebruiker.

	Option Explicit

	Dim objFSO, objFolder, objShell, objTextFile, objFile
	Dim strDirectory, strFile, strText, oNet, sUserName, sRoom, sComputer


Set oNet = CreateObject("WScript.Network")

'variables
	sUserName = oNet.UserName
	sComputer = oNet.ComputerName
	'sRoom = Left(sComputer,3)
	
	
strDirectory = "C:\TEMP\"
strFile = sUserName & ".log" 
strText = "login: " & Now & Chr(13) & Chr(10) & _
"User: " & sUserName & Chr(13) & Chr(10) & _
"Computer: " & sComputer & Chr(13) & Chr(10) & _
"Lokaal: " & sRoom & Chr(13) & Chr(10) & _
""

' Create the File System Object
Set objFSO = CreateObject("Scripting.FileSystemObject")

' Check that the strDirectory folder exists
If objFSO.FolderExists(strDirectory) Then
   Set objFolder = objFSO.GetFolder(strDirectory)
Else
   Set objFolder = objFSO.CreateFolder(strDirectory)
   'WScript.Echo "Just created " & strDirectory
End If

If objFSO.FileExists(strDirectory & strFile) Then

	Set objFolder = objFSO.GetFolder(strDirectory)
	Set objFile = nothing
	set objFolder = nothing
'	OpenTextFile Method needs a Const value
'	ForAppending = 8 ForReading = 1, ForWriting = 2
	Const ForAppending = 8

	Set objTextFile = objFSO.OpenTextFile _
	(strDirectory & strFile, ForAppending, true)

'	Writes strText every time you run this VBScript
	objTextFile.WriteLine(strText)
	objTextFile.Close

Else

	Set objFile = objFSO.CreateTextFile(strDirectory & strFile)
	Set objFile = nothing
	set objFolder = nothing
'	OpenTextFile Method needs a Const value
'	ForAppending = 8 ForReading = 1, ForWriting = 2
	Const ForWriting = 2

	Set objTextFile = objFSO.OpenTextFile _
	(strDirectory & strFile, ForWriting, true)

'	Writes strText every time you run this VBScript
	objTextFile.WriteLine(strText)
	objTextFile.Close

End If 

WScript.Quit

' End of VBScript to write to a file with error-correcting Code

ps. Het is caps gevoelig het moet echt C:\TEMP zijn en niet C:\temp of Temp

 

[eeyk]

bedankt ik doe me pc opnieuw opstarten

ik zie niks het laden blijft gewoon snel gaan BEDANKT voor je hulp