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

Verilog Error: output or inout port "Q" must be connected to a structural net expression -

I get the error every time, I try to compile. I'm not sure why anyone can help is? I'm new to verilog. Module D_FF (clerk, d, reset_n, q); Input D, Clack, reset_en; Output Q; reg Q; lab4_gdl f1 (.lk (~ clk), d (d), .q.m (qm)); lab4_GDL f2 (.Clk (Clk), D (QM), .Q (Q)); Always start at @ (posedge clk, neggeous reset_n) (Reset_n == 0) Q & lt; = 0; Other questions & lt; = D; Edit End: The problem is what we are asking to do: In this section, you apply the memory / registration circuit on the AlterEdie 2 board. will do. The circuit has the following specifications: The present value of swift SW15-0 on the D2 board should be shown in four hexadecimal four sections of HEX3-0. This part of the circuit will be combination logic. To use an active-less asynchronous reset and KEY1 to use KEY0 as the clock input, you must store SW15-0in in a 16-bit register in the value The register should be enabled to have a 16-bit positive edge, which uses the embedded D flip-flo
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

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