vbscript - Allow uploaded SharePoint files to be marked as "Checked-In" -


I just wrote a VBSPTP that uploads files to a shared folder. It works. The problem is that the default status of these files is "check out" so manually select these files "check in" on the front-end. It is my belief that defeated the purpose of my script is there a way around it? Any kind of help would be greatly appreciated. Thank you. Jake

P.S. Here is a sample code. Set 

  url = "http: // portal / projects /" objXMLHTTP = CreateObject ("Msxml2.ServerXMLHTTP.3.0") objADOStream = CreateObject ("ADODB.Stream") of ObjADOStream with. open. Type = 1 Load Framefile ("C: \ VBScripts \ SP \ 2014_Test_IC.txt") with termination content = objADOStream. Read objXMLHTTP.open "PUT", URL & amp; "2014_Test_IC.txt", Wrong, "Username", "Password" objXMLHTTP.send Content WScript.Echo objXMLHTTP.status & amp; ":" & amp; ObjXMLHTTP.statusText objADOStream.Close    
 
 
 This can be done using Front Page Server Extensions  
 The official document for the check in the document method is here:  
 There is a code here to upload and then check in the document. This is very similar to you and you can finally see that when you call the upload function you will fill in your values.   form code string set to String = Create object ("ADODB.Stream") stream.Open stream.Type = 2 '' adTypeText stream.Charset = "ascii" stream.WriteText str stream (SourcePath, siteUrl, docName, title, checkincomment, userName, password) strHeader = "method = put + document%. 3a12.0.4518.1016 "+ _" and service_name =% 2f "+ _" and document = [document_name = "+ escape (docName) + _"; meta_info = [vti_title% 3bSW% 7c "+ escape (title) +" ]] "+ _" And put_poption = overwrite, builder, migrations "+ _" and comment = "+ _" & Keep 5% checked% 5fout = false "+ vbLf bytearray = Set StringToByteArray (strHeader) stream = CreateObject (" ADODB.Stream ") stream. Open the stream. Type = 1 '' adTypeBinary stream. Type Bytere Set Stream 2 = CreateObject ("ADODB .stream") stream 2. Open stream 2. Type = 1 '' addyubayary stream 2. LoadFormFile SourcePath Stream 2 Copy stream, 1 stream. Set page = 0 xmlHttp = CreateObject ("MSXML2.XMLHTTP") xmlHttp.open "POST", siteUrl + "/_vti_bin/_vti_author.dll", false, username, password xmlhttp.setRequestHeader "content type", " Application / x-Vermeer-urlencoded "xmlhttp.setRequestHeader" x-Vermeer-content-type "," application / x-vermeer-urlencoded "xmlhttp.setRequestHeader" user-agent "," frontpage "xmlHttp.send stream if xmlHttp.status = 200 then if Instr (xmlHttp.responseText, "Successfully") = 0 then MsgBox "Error:" & amp; ; VbCrLf & amp; XmlHttp.responseText other '' checkin strHeader = "method = checkin + document% 3a12.0.4518.1016" + _ "and service_name =% 2f" + _ "and document_name =" & amp; Escape (DOCNAME) + _ "& amp; Comment =" + + + "& amp; keep% 5fchedcked% 5fout = false" + vbLf set xmlhttp = CreateObject ("MSXML2.XMLHTTP") xmlHttp.open "Post ", Site URL +" /_vti_bin/_vti_aut/author.dll ", Wrong, Username, Password xmlhttp.setRequestHeader" Content Type "," App / X-worker-URLXode "xmlhttp.setRequestHeader" X-word-content-type "," Application / x-worker-urlencoded "xmlhttp.setRequestHeader" user-agent "," frontpage "xmlHttp.send strHeader end if end if xmlHttp.status / 100 & lt; & Gt; 2 then MsgBox "Error: Status =" & amp; XmlHttp.status & amp; VbCrLf & amp; XmlHttp.responseText expires if end all upload file "c: \ user \ myusername \ desktop \ test file.zip", _ "http: // computername / sites / sitename", _ "requirements / test file.zip", _ "test I have to give credit to fmunkert to do this job:  "check", "check", "check my checklist", "mydname \ myusername", "mypassword" messagebox " 
 >

Comments

Post a Comment

Popular posts from this blog

c# - ASP.NET MVC - Attaching an entity of type 'MODELNAME' failed because another entity of the same type already has the same primary key value -

In brief, the wrapper module is inserted during posting and the status of an entry is changed to 'modified' . Before changing the state, the state is set to 'separate', but calling attachments () causes the same error to be thrown away. I am using EF 6. Model / wrapper class public class avi model {public A is a {get; Set; } Public listing & lt; B & gt; B {received; Set; } Public cc {receipt; Set; }} Administrator edit public functioning (int? id) {if (id == null) {new HttpStatusCodeResult (HttpStatusCode.BadRequest); } If (! Conveyor Access (id.Value)) new HTTPTitus code result (HTTP status code. Forbidden); Var aViewModel = new AViewModel (); aViewModel.A = db.As.Find (id); If (aViewModel.Receipt == zero) {return HttpNotFound (); } aViewModel.b = db.Bs.Where (x => x.aid == id.Value) .Oolist (); AViewModel.Vendor = db.Cs.Where (x => x.cid == aViewModel.a.cID) .FirstOrDefault (); See Return (aViewModel); } [HTPFost] [Valid AntitiferousTeacon...
Read more

jasper reports - How to center align barcode using jasperreports and barcode4j -

I use iReport 5.5.0 . How to align a barcode component to the center The relevant piece of my jrxml is below & Lt; JR: Code 128 xmlns: JR = "http://jasperreports.sourceforge.net/jasperreports/components" xsi: schemaLocation = "http://jasperreports.sourceforge.net/jasperreports/components http: //jasperreports.sourceforge Purge / xsd / components.xsd "textPosition =" bottom "& gt; & Lt; Jr: codeExpression & gt; & Lt; [CDATA [$ F {number}]] & gt; & Lt; / Jr: codeExpression & gt; & Lt; / Jr: Code 128 & gt; & Lt; / componentElement & gt; "Text" itemprop = "text"> Create a style after this, it is called "barcode", like: & lt; Style name = "barcode" fontName = "Helvetica" fONTSIZE = "10" hAlign = "center" valign = "center" /> and set the property of your barcode element to "barcode".
Read more

django - CommandError: You must set settings.ALLOWED_HOSTS if DEBUG is False -

I use Django 1.6.5 with settings in my program txsite: DEBUG = true I set the lie to debug, but when I get the runner , I get the following error: CommandError: You have to set the settings. OLOWOWHESTS If DEBUG is False I ALLOWED_HOSTS = ['127.0.0.1', 'localhost'] but I get the same error. Does anyone know this address? Try ALLOWED_HOSTS = ['*'] Less secure If you are not on a firewall or public LAN, but what I use and it works. Edit: Interestingly enough, I have to add some of my 1.8 projects, even if DEBUG = True . Why so very uncertain
Read more