I hve found a macro on line that will check a file into PDM; however, I am relatively sure that the user was using Workgroup not Enterpise. Will the same functions work for EPDM as WPDM? As of thus far I am not able to get this to work, it errors out on the connect with an unknown error. I tried commenting this line out, thinking that EPDM has us auto signed in using Windows credentials, and it tells me that there is not a valid license on this machine when it gets to the checkin line.

Any thoughts?

Thanks,

SLP

Dim Connect As New PDMWConnection
Dim Username As String
Dim Password As String
Dim Vault_name As String
Dim file_name As String
Dim Project As String
Dim number As Double
Dim description As String
Dim comment As String

Sub Main()

'***********************variables****************************************
Username = ""
Password = ""
vaultName = "" 'or should this be server name?
file_name = ""
Project = ""
number = 0
description = ""
comment = ""
'************************************************************************

Connect.Login Username, Password, Vault_name
Connect.Refresh

Connect.CheckIn file_name, Project, number, description, comment, Default, "", "", False, ""

Connect.Logout

End Sub