Skip to content

Instantly share code, notes, and snippets.

@paveljurca
Created December 6, 2017 15:08
Show Gist options
  • Save paveljurca/8dd2264210092e5cdd4cf6b051f48f21 to your computer and use it in GitHub Desktop.
Save paveljurca/8dd2264210092e5cdd4cf6b051f48f21 to your computer and use it in GitHub Desktop.
login = Inputbox("Zadejte uživatelské jméno","Domovský adresář")
CreateObject("shell.application").Open("\\ad\HOME\" & login)
'REM
'CreateObject("WScript.Network").MapNetworkDrive "X:", "\\adfile\home\" & login, False, "AD\" & login
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment