lupigabriel » Explorer https://www.lupigabriel.it Create something new is nice... Create something useful is important! Wed, 27 May 2015 01:59:17 +0000 en-US hourly 1 https://wordpress.org/?v=3.9.22 PrivateArk Workspace Link https://www.lupigabriel.it/privateark-workspace-link/ https://www.lupigabriel.it/privateark-workspace-link/#comments Mon, 30 Jun 2014 15:36:15 +0000 http://www.lupigabriel.it/?p=249 This VBScript must be run as a logon script of windows GPO that will create the CyberArk PrivateArk Workspace Link in Windows Explorer Favorites

Requirements:

  • CyberArk PrivateArk
  • Microsoft Windows 7 or higher

PrivateArkWorkspaceLink_v1.0.vbs

' ##############################################################################
' #                                Lupi Gabriel                                #
' #                             www.lupigabriel.it                             #
' #                            info@lupigabriel.it                             #
' ##############################################################################
' #            Copyright (c) 2014 Lupi Gabriel All rights reserved.            #
' ##############################################################################
' # VERSION    : 1.0                                                           #
' # FILE       : PrivateArkWorkspaceLink_v1.0.vbs                              #
' # CLASS      : Script                                                        #
' # LANGUAGE   : VB Script                                                     #
' # OUPUT      : "%UserProfile%\Links"                                         #
' ##############################################################################



On Error Resume Next

Set oShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")

If objFSO.FileExists(oShell.ExpandEnvironmentStrings("%PROGRAMFILES%") & "\PrivateArk\Client\Arkui.exe") = True Or objFSO.FileExists(oShell.ExpandEnvironmentStrings("%PROGRAMFILES(X86)%") & "\PrivateArk\Client\Arkui.exe") = True Then
	If objFSO.FileExists(oShell.ExpandEnvironmentStrings("%USERPROFILE%") & "\Links\Workspace.lnk") = False Then
		If objFSO.FolderExists(oShell.ExpandEnvironmentStrings("%APPDATA%") & "\CyberArk\PrivateArk\Workspace") = True Then
			Set oShortCut = oShell.CreateShortcut(oShell.ExpandEnvironmentStrings("%USERPROFILE%") & "\Links\Workspace.lnk")
			oShortCut.TargetPath = oShell.ExpandEnvironmentStrings("%APPDATA%") & "\CyberArk\PrivateArk\Workspace"
			oShortCut.Save
		End If
	End If
Else
	If objFSO.FileExists(oShell.ExpandEnvironmentStrings("%USERPROFILE%") & "\Links\Workspace.lnk") = True Then
		objFSO.DeleteFile oShell.ExpandEnvironmentStrings("%USERPROFILE%") & "\Links\Workspace.lnk"
	End If
End If

]]> https://www.lupigabriel.it/privateark-workspace-link/feed/ 0