
Logon Script Problems - help needed
Having problem with the following logon script. What happens is that the
login dialog box does not dissappear after the login.bat file has
completed - why is this? Clicking on cancel after the login.bat has
completed solves the problem. However I want it so the end user does not
have to do anything
Login.bat-->
doskey /insert
net time \\server /set /yes
Start /w \\server\IV\IVLOGIN.EXE /UNINSTAL
Start /w \\server\IV\IVWLOGIN.EXE /UNINSTAL
if exist %windir%\scr55en.exe goto endw
copy \\server\netlogon\scr55en.exe %windir% /y
%windir%\scr55en.exe /q
:endw
Start /w \\server\INTERCHK\W95INST\SETUP -INL -a
wscript.exe "\\server\NETLOGON\LOGIN.WSF"
Login.wsf-->
<package>
<job id="setreg">
<?job debug="true"?>
<SCRIPT LANGUAGE="VBScript" src="setreg.vbs">
</SCRIPT>
</job>
</package>
setreg.vbs-->
On Error Resume Next
Set WSHNetwork = WScript.CreateObject("WScript.Network")
While UserName = ""
UserName = WSHNetwork.UserName
WEnd
On Error Goto 0
Set WSHShell = WScript.CreateObject("WScript.Shell")
StartPage = "http://intranetsite"
WSHShell.RegWrite "HKEY_USERS\.DEFAULT\Software\Microsoft\Windows Messaging
Subsystem\Profiles\DefaultProfile", UserName
WSHShell.RegWrite "HKEY_USERS\.DEFAULT\Software\Microsoft\Internet
Explorer\Main\Start Page", StartPage
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
windir = fso.GetSpecialFolder(WindowsFolder)
sSendTo = WSHShell.SpecialFolders("SendTo")
Set oShortCut = WSHShell.CreateShortcut(sSendTo & "\Notepad.lnk")
With oShortCut
.WindowStyle = 3
.IconLocation = "notepad.exe, 0"
.TargetPath = windir&"\notepad.exe"
.Save
End With