Re-run a logon script

gistfile1.vb

'http://community.spiceworks.com/scripts/show/823-re-run-a-logon-script

Dim objNet
Dim wshShell
Dim wshProcess
Dim domain, username, dc

Set objNet = CreateObject("WScript.NetWork") 
Set wshShell = CreateObject("Wscript.Shell")
Set wshProcess = wshShell.Environment("Process")
Domain = objNet.UserDomain
UserName = objNet.UserName
DC = wshProcess("LogonServer")
Set UserObj = GetObject("WinNT://" & domain & "/" & username)
loginScript = DC & "\netlogon\" & UserObj.LoginScript

on error resume next
wshShell.run(loginscript)

Set UserObj = Nothing
set wshProcess = Nothing
set wshShell = nothing
set objNet = nothing