yccdadmins
asked on
VB logon script only works at second logon
Greetings all,
I've run into a strange VBScript error with a logon script I've created. At one point the script has to copy a shortcut to the end users desktop. This has to be copied at each logon because the URL will change from one server to another depending on which is the primary.
When the URL in the source file is changed to a new server, end users log in and the script should overwrite the existing file with the new one that has the correct URL.
Problem is, the script only seems to work the second time the end users log in. Below is the script and any help would be great....
On Error Resume Next
'-------------------------
'Set variables for group determination etc.
'-------------------------
Set objSysInfo = CreateObject("ADSystemInfo
Set objNetwork = CreateObject("Wscript.Netw
Set WSHShell = CreateObject("Wscript.Shel
Set WSHProcess = WSHShell.Environment("Proc
'Set objShell = CreateObject(wscript.shell
'-------------------------
'Get the distinguished name of the user that logged on
'-------------------------
strUserPath = "LDAP://" & objSysInfo.UserName
Set objUser = GetObject(strUserPath)
'-------------------------
'Report back the groups the user belongs to.
'-------------------------
For Each strGroup in objUser.MemberOf
strGroupPath = "LDAP://" & strGroup
Set objGroup = GetObject(strGroupPath)
strGroupName = objGroup.CN
'-------------------------
'Get the Logon Server and end script if not xxxxxxx
'-------------------------
'DomainLogonServer = WSHProcess("LogonServer")
'-------------------------
' Call the AD Security Group and copy appropriate shortcut.
'-------------------------
Select Case strGroupName
Case "TN-BACS Users"
Set objFSO = CreateObject("Scripting.Fi
set WshShell = WScript.CreateObject("WScr
tDesktopPath = WshShell.SpecialFolders("D
objFSO.CopyFile "C:\Scripts\Shortcut\Pictu
Case "TN-BACSWEB-Users"
Set objFSO = CreateObject("Scripting.Fi
set WshShell = WScript.CreateObject("WScr
tDesktopPath = WshShell.SpecialFolders("D
objFSO.CopyFile "C:\Scripts\Shortcut\BACSW
End Select
Next
I've run into a strange VBScript error with a logon script I've created. At one point the script has to copy a shortcut to the end users desktop. This has to be copied at each logon because the URL will change from one server to another depending on which is the primary.
When the URL in the source file is changed to a new server, end users log in and the script should overwrite the existing file with the new one that has the correct URL.
Problem is, the script only seems to work the second time the end users log in. Below is the script and any help would be great....
On Error Resume Next
'-------------------------
'Set variables for group determination etc.
'-------------------------
Set objSysInfo = CreateObject("ADSystemInfo
Set objNetwork = CreateObject("Wscript.Netw
Set WSHShell = CreateObject("Wscript.Shel
Set WSHProcess = WSHShell.Environment("Proc
'Set objShell = CreateObject(wscript.shell
'-------------------------
'Get the distinguished name of the user that logged on
'-------------------------
strUserPath = "LDAP://" & objSysInfo.UserName
Set objUser = GetObject(strUserPath)
'-------------------------
'Report back the groups the user belongs to.
'-------------------------
For Each strGroup in objUser.MemberOf
strGroupPath = "LDAP://" & strGroup
Set objGroup = GetObject(strGroupPath)
strGroupName = objGroup.CN
'-------------------------
'Get the Logon Server and end script if not xxxxxxx
'-------------------------
'DomainLogonServer = WSHProcess("LogonServer")
'-------------------------
' Call the AD Security Group and copy appropriate shortcut.
'-------------------------
Select Case strGroupName
Case "TN-BACS Users"
Set objFSO = CreateObject("Scripting.Fi
set WshShell = WScript.CreateObject("WScr
tDesktopPath = WshShell.SpecialFolders("D
objFSO.CopyFile "C:\Scripts\Shortcut\Pictu
Case "TN-BACSWEB-Users"
Set objFSO = CreateObject("Scripting.Fi
set WshShell = WScript.CreateObject("WScr
tDesktopPath = WshShell.SpecialFolders("D
objFSO.CopyFile "C:\Scripts\Shortcut\BACSW
End Select
Next
Last Comment
ASKER
Ignore the whole part in the last comment with the "If" stuff.
I've tested this again and the original script as listed above works consistently but only on the second logon.
Anyone have any idea why a logon script would run with no errors but only work the second time someone logs in.
Also should note that this is a login via remote desktop.
I've tested this again and the original script as listed above works consistently but only on the second logon.
Anyone have any idea why a logon script would run with no errors but only work the second time someone logs in.
Also should note that this is a login via remote desktop.
I haven't had time to look at script or know why, unless network is not available when script runs -the i.e. wireless being used etc. but just wondered if instead you could do something like having all the shortcuts present on desktop and using ntfs permissions to stop access to them?
Do you know that the script runs at all, i.e. how far it gets based on other parts of same script, or could put some debugging in, either simple 'wscript.echo "line 1" or some logging to file.
if the script doesnt make it to start at all, we need to look at different to if it fails on first login part way through.
Steve
Do you know that the script runs at all, i.e. how far it gets based on other parts of same script, or could put some debugging in, either simple 'wscript.echo "line 1" or some logging to file.
if the script doesnt make it to start at all, we need to look at different to if it fails on first login part way through.
Steve
Are you calling it via a mapped drive or unc path?
and from NetLogon ?
agree with dragon, need to write some debug output for all users, to the netlogon area.
agree with dragon, need to write some debug output for all users, to the netlogon area.
heres part of logon script i wrote a while ago to copy dll to client
const LogFldr="\\boss\SYSVOL\ZEUS.com.au\logs\"
dim a, src , sVers
dim fs
src="dsofile.dll"
lf = "installs.log"
sVers=""
Set oNet = CreateObject("WScript.Network")
datetime=Year(now()) & Right("0" & Month(now()), 2) & Right("0" & Day(now()), 2) & "=" & Right("0" & Hour(now()), 2) & Right("0" & Minute(now()), 2) '& Right("0" & Second(now()), 2)
Set fso = CreateObject("Scripting.FileSystemObject")
sysfld = fso.GetSpecialFolder(1) 'the system folder
winfld = fso.GetSpecialFolder(0) 'the windows folder
' write to Log
Set flf = fso.GetFile(logfldr & lf)
Set tslf = flf.OpenAsTextStream(OpenFileForAppending)
tslf.Write (Onet.ComputerName & " , " & "BEGIN" & " , " & Datetime & vbCrLf)
tslf.Write (Onet.ComputerName & " , " & "1:xx" & vbcrlf)
etc
so i add number log output to various parts of the script to see where and when it gets run.
are you sure your only have one logon server ?? each server with AD role can process logons as the NETLOGON folder is replicated. thats one reason i use the sysvol UNC so it doesn't matter.
are you sure your only have one logon server ?? each server with AD role can process logons as the NETLOGON folder is replicated. thats one reason i use the sysvol UNC so it doesn't matter.
ASKER
Hello all and thanks for the input.
Let me try and answer some of the questions to help narrow things down.
- I double checked the script by running it locally (double clicked on the .vbs file) and it works as intended. The script copies the new(er) URL shortcut and overwrites the existing due to the "True" at the end of the objFSO.CopyFile. That's what I've read that is for anyway,
- The script is run via local Group Policy on a Windows RDS server when end users log in to perform tasks.
- After a changes is made to the URL shortcut, and an end user logs in for the first time, the script doesn't seem to run. The reason I say this is because there are no errors revealed from the compiler or in any logs.
- When the end user logs out and then logs back in, everything works like a charm.
I have had this same issue in the past while working for another organization. I'm pretty sure it is a Microsoft "feature" that requires some policy to be enabled (or disabled) but I've lost my notes.
Thanks you for your assistance and I'll keep digging as well.
Let me try and answer some of the questions to help narrow things down.
- I double checked the script by running it locally (double clicked on the .vbs file) and it works as intended. The script copies the new(er) URL shortcut and overwrites the existing due to the "True" at the end of the objFSO.CopyFile. That's what I've read that is for anyway,
- The script is run via local Group Policy on a Windows RDS server when end users log in to perform tasks.
- After a changes is made to the URL shortcut, and an end user logs in for the first time, the script doesn't seem to run. The reason I say this is because there are no errors revealed from the compiler or in any logs.
- When the end user logs out and then logs back in, everything works like a charm.
I have had this same issue in the past while working for another organization. I'm pretty sure it is a Microsoft "feature" that requires some policy to be enabled (or disabled) but I've lost my notes.
Thanks you for your assistance and I'll keep digging as well.
If you put some logging in their to show the user you can see if it is running at all to rule that out, or whether it is running and getting so far then choking.
Steve
Steve
ASKER CERTIFIED SOLUTION
THIS SOLUTION IS ONLY AVAILABLE TO MEMBERS.
View this solution by signing up for a free trial.
Members can start a 7-Day free trial and enjoy unlimited access to the platform.
ASKER
That was it alicain - or at least most of it! I looked up that GPO and also found another that is needed to resolve this issue. They are both as follows:
“Always wait for the network at computer startup and logon” located at…
Computer Configuration\Administrati
“Run logon scripts synchronously” located at…
Computer Configuration\Administrati
Once you got me searching on "Always wait..." I found it in my notes from a year or so ago. Unfortunately I didn't write down the URL where I found the fix.
Now that I've applied these two GP objects the script runs at first logon every time. My notes said the login was slower when I did this a while back but it might have been the older system - didn't really notice a difference on this server.
Thanks!
“Always wait for the network at computer startup and logon” located at…
Computer Configuration\Administrati
“Run logon scripts synchronously” located at…
Computer Configuration\Administrati
Once you got me searching on "Always wait..." I found it in my notes from a year or so ago. Unfortunately I didn't write down the URL where I found the fix.
Now that I've applied these two GP objects the script runs at first logon every time. My notes said the login was slower when I did this a while back but it might have been the older system - didn't really notice a difference on this server.
Thanks!
Was going to post those which you do need but you got there first. Always a good idea to turn on the options to run login script visibly when it isn't already too so you can see what is going on.
Tends to happen more with Wireless networks than wired, and also if you logon immediately the logon box appears than waiting until everything has fully loaded.
Steve
Tends to happen more with Wireless networks than wired, and also if you logon immediately the logon box appears than waiting until everything has fully loaded.
Steve
Good to hear that did the trick.
Regards,
Alastair.
Regards,
Alastair.
VB Script
VBScript (Visual Basic Scripting Edition) is an interpreted scripting language developed by Microsoft that is modeled on Visual Basic, but with some important differences. VBScript is commonly used for automating administrative and other tasks in Windows operating systems (by means of the Windows Script Host) and for server-side scripting in ASP web applications. It is also used for client-side scripting in Internet Explorer, specifically in intranet web applications.
39K
Questions
--
Followers
--
Top Experts
Get a personalized solution from industry experts
TRUSTED BY
ASKER
Why does this only work on the second login?
Dim oFS
Set objWshShell = CreateObject("WScript.Shel
Set oFS = CreateObject("Scripting.Fi
Userprofile=objWshShell.Ex
IF oFS.FileExists(Userprofile
oFS.DeleteFile (Userprofile & "\desktop\Picture Perfect 4 Client.*")
ENd IF
IF oFS.FileExists(Userprofile
oFS.DeleteFile (Userprofile & "\desktop\BACSWEB.*")
ENd IF