Whatsmylogonscript.vbs

Option Explicit

Dim objNet, objShell, objProcess
Dim userObj
Dim dc, domain, username, logonscript

Set objNet = CreateObject("WScript.Network")
Set objShell = CreateObject("WScript.Shell")
Set objProcess = objShell.Environment("Process")

domain = objNet.UserDomain
username = objNet.UserName
dc = objProcess("LogonServer")

Set userObj = GetObject("WinNT://" & domain & "/" & username)
logonscript = dc & "\netlogon\" & userObj.LoginScript

WScript.Echo logonScript