Merge-SPLogFile -Path C:\tmp\FarmLog.log
Merge-SPLogFile -Path C:\tmp\FarmLog.log -Correlation b572479c-ce57-10ce-c901-ce456a0284dc
Merge-SPLogFile -Path C:\tmp\FarmLog.log -StartTime "28.07.2013 00:00" -EndTime "28.07.2013 23:59"
' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' URL ListDim urls(3)urls(1)="https://portal/sites/project1"urls(2)="https://portal/sites/project2"urls(3)="https://portal/sites/project3"Dim servers(2)servers(1) = "server1"servers(2) = "server2"Dim PingReplyPingReply = "Reply from"Dim TargetUrlTargetUrl = "portal"Dim outFileoutFile="c:\WarmUp\WarmUp2013.log"' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''On error resume next' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Codedim fsodim startTimestartTime = Now'DeleteLogAddToLog "------------------------------------------------"set fso = CreateObject("Scripting.FileSystemObject")For Each server in servers If server <> "" Then AddToLog "---------------- " & UCase(server) hostfile = "C:\Windows\System32\drivers\etc\hosts-" & server fso.CopyFile hostfile, "C:\Windows\System32\drivers\etc\hosts" PingResult TargetUrl WarmUp() End IfNextAddToLog "---------------- RESET"fso.CopyFile "C:\Windows\System32\drivers\etc\hosts-original", "C:\Windows\System32\drivers\etc\hosts"PingResult TargetUrlset fso = NothingAddToLog "---------------- Summary"minTime = UBound(urls) * UBound(servers) * 5duration = datediff("s", startTime, now)AddToLog "URLs: " & UBound(urls)AddToLog "Minimal Time: " & minTimeAddToLog "Duration (s): " & durationIf duration > (minTime + 5) Then AddToLog "Warning!"End IfAddToLog "------------------------------------------------"' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Subssub WarmUp() dim ie set ie = CreateObject("InternetExplorer.Application") ie.Visible = 0 For Each u1 In urls if u1 <> "" then AddToLog u1 ie.Navigate2 u1 WScript.Sleep(5000) Do while IE.readystate <> 4 loop end if Next ie.Quit set ie = Nothingend subsub DeleteLog() outFile="c:\svn\WarmUp2013.log" Set objFSOFile=CreateObject("Scripting.FileSystemObject") objFSOFile.DeleteFile outFileend subsub AddToLog(txt) set objFSOFile=CreateObject("Scripting.FileSystemObject") set objFile = objFSOFile.OpenTextFile(outFile, 8, True) objFile.Write Now & " - " & txt & vbCrLf objFile.Close wscript.echo txtend subsub PingResult(host) dim objShell dim objExec set objShell = CreateObject("WScript.Shell") set objExec = objShell.Exec("ping -n 1 -w 1000 " & host) pr = objExec.StdOut.ReadAll pr = mid(pr, InStr(pr, PingReply)) pr = left(pr, InStr(pr, ":") - 1) AddToLog pr set objShell = Nothing set objExec = Nothingend sub
?Contents=1
http://collaboration/SitePages/Homepage.aspx?Contents=1
net start MSSQLSERVER net start SQLWriter net start IISADMIN net start W3SVC net start SPTraceV4 net start OSearch14 net start SPAdminV4 net start SPTimerV4
net stop SPTraceV4 net stop OSearch14 net stop SPAdminV4 net stop SPTimerV4 net stop MSSQLSERVER net stop SQLWriter net stop IISADMIN net stop W3SVC
<Where> <Eq> <FieldRef Name='Name' /> <Value Type='Lookup'>Smith</Value> </Eq> </Where>
<Where> <Eq> <FieldRef Name='Name' LookupId='True' /> <Value Type='Lookup'>7</Value> </Eq> </Where>
Field ID="{9D6556BF-D5AC-41B7-94BA-56ABE77CEDC8}"
Unable to locate the xml-definition for FieldName with FieldId '9D6556BF-D5AC-41B7-94BA-56ABE77CEDC8', exception: Microsoft.SharePoint.SPException ---> System.Runtime.InteropServices.COMException (0x8000FFFF): 0x8000ffff at Microsoft.SharePoint.Library.SPRequestInternalClass.GetGlobalContentTypeXml(String bstrUrl, Int32 type, UInt32 lcid, Object varIdBytes)…