28.06.2011 tarihinde \u00e7\u0131kan Microsoft Office File Validation g\u00fcncellemesi y\u00fckledikten sonra a\u011f \u00fczerinden excel dosyalar\u0131n\u0131 a\u00e7arken a\u015f\u0131r\u0131 bir yava\u015flama ve 2-3Mb boyutundan y\u00fcksek olan excel dosyalar\u0131nda kilitlenme meydana gelmesine yol a\u00e7makta. Bilgisayar\u0131n lokal disklerinde bulunan dosyalar i\u00e7in bu sorun olmamakla birlikte yanl\u0131zca a\u011f \u00fczerinden \u00e7al\u0131\u015fan dosyalarda bu sorun ortaya \u00e7\u0131kmakta.<\/p>\n
Yap\u0131lan g\u00fcncelleme WSUS ortam\u0131ndan kald\u0131r\u0131lmay\u0131 desteklemedi\u011fi i\u00e7in elle kald\u0131rman\u0131z gerekmekte 5-10 bilgisayar yap\u0131labilir ancak \u015firket ortamlar\u0131 i\u00e7in pek m\u00fcmk\u00fcn de\u011fil.<\/p>\n
i\u015f yine script yazmaya kald\u0131.
\n\u00d6ncelikle nas\u0131l kald\u0131rabilece\u011fimizi registry \u00fczerinden arad\u0131\u011f\u0131m\u0131zda kald\u0131rma stringi olarak
\nMsiExec.exe \/I{90140000-2005-0000-0000-0000000FF1CE} yazmakta kendimize g\u00f6re d\u00fczenlersek MsiExec.exe \/quiet \/uninstall {90140000-2005-0000-0000-0000000FF1CE} \u015feklinde interaktif ekran g\u00f6r\u00fcnmeden otomatik olarak kald\u0131rmas\u0131 sa\u011flanmakta.<\/p>\n
G\u00fcncelleme: Microsoft taraf\u0131nda sorun \u00e7\u0131kt\u0131\u011f\u0131 teyit edilmi\u015f ilgili adreslere http:\/\/support.microsoft.com\/kb\/2570623\/tr<\/a> ve http:\/\/support.microsoft.com\/kb\/2501584\/tr<\/a> adreslerinden ula\u015f\u0131labilir. 3 \u00e7\u00f6z\u00fcm sunmu\u015flar \u015fu anl\u0131k 1.Kald\u0131rmak\u00a0 2. Devre d\u0131\u015f\u0131 b\u0131rakmay\u0131, Office 2007 veya 2010 y\u00fcklemeyi. \u0130lgili linklerden detaylara ula\u015fabilirsiniz.<\/p>\n Gelelim Scripte.<\/p>\n <\/p>\n <\/p>\n <\/p>\n <\/p>\n <\/p>\n <\/p>\n <\/p>\n ‘ olu\u015fan loglar\u0131 kay\u0131t edelim. ‘ Hesab\u0131 kapal\u0131 olmayan bilgisayarlar\u0131 bulal\u0131m <\/p>\n <\/p>\n <\/p>\n <\/p>\n <\/p>\n <\/p>\n <\/p>\n <\/p>\n <\/p>\n <\/p>\n \n \u0130yi \u00e7al\u0131\u015fmalar.<\/p>\n","protected":false},"excerpt":{"rendered":" vbscript ile uzaktan komut \u00e7al\u0131\u015ft\u0131rma, excel file open slowly on network, network \u00fczerinden excel dosyalar\u0131n\u0131 a\u00e7arken yava\u015fl\u0131k<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[6,11,87],"tags":[],"class_list":["post-406","post","type-post","status-publish","format-standard","hentry","category-ip-uclari","category-programlama","category-vbscript"],"_links":{"self":[{"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=\/wp\/v2\/posts\/406","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=406"}],"version-history":[{"count":10,"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=\/wp\/v2\/posts\/406\/revisions"}],"predecessor-version":[{"id":421,"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=\/wp\/v2\/posts\/406\/revisions\/421"}],"wp:attachment":[{"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=406"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=406"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=406"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
\nOn Error Resume Next<\/code><\/p>\nSet objConnection = CreateObject(\"ADODB.Connection\")
\nSet objCommand = CreateObject(\"ADODB.Command\")
\nobjConnection.Provider = \"ADsDSOObject\"
\nobjConnection.Open \"Active Directory Provider\"
\nSet objCommand.ActiveConnection = objConnection
\nobjCommand.Properties(\"Page Size\") = 1000<\/code><\/p>\ndim strCommand
\n' Microsoft Office File Validation Add-in kaldirma de\u011ferleri
\nstrCommand = \"MsiExec.exe \/quiet \/uninstall {90140000-2005-0000-0000-0000000FF1CE}\"<\/code><\/p>\n
\nSet oFSO = CreateObject(“Scripting.FileSystemObject”)
\nSet oLog = oFSO.CreateTextFile(“JobExport.Log”)<\/p>\n
\nobjCommand.CommandText = “<LDAP:\/\/dc=fabrikam,dc=int>;(&(objectCategory=computer) (!(userAccountControl:1.2.840.113556.1.4.803:=2)));Name;subtree”
\nSet objRecordSet = objCommand.Execute
\ndim objComputer
\nobjRecordSet.MoveFirst<\/p>\n'Bilgisayar kay\u0131tlar\u0131 sona gelene kadar her bilgisayar i\u00e7in komutumuzu \u00e7al\u0131\u015ft\u0131ral\u0131m
\nDo Until objRecordSet.EOF<\/code><\/p>\n
\nobjComputer = \"\"
\nobjComputer = objRecordSet.Fields(\"Name\").Value
\n'Bilgisayarin kapal\u0131 m\u0131 a\u00e7\u0131k m\u0131 oldu\u011funu anlamak i\u00e7in ping atal\u0131m
\nSet objScriptExec = objShell.Exec(\"ping -n 2 -w 1000 \" & objComputer)
\nstrPingResults = LCase(objScriptExec.StdOut.ReadAll)
\n'Gelen cevapta t\u00fcrk\u00e7e sistemler i\u00e7in cevab ingilizceler i\u00e7in Reply i\u00e7eriyorsa komut \u00e7al\u0131\u015ft\u0131ral\u0131m
\nIf InStr(strPingResults, \"cevab\") or InStr(strPingResults, \"Reply\") Then
\nSet objWMIService = GetObject(\"winmgmts:\" & \"{impersonationLevel=impersonate}!\\\\\" & objComputer & \"\\root\\cimv2\")
\nSet objProcess = objWMIService.Get(\"Win32_Process\")
\nerrReturn = objProcess.Create(strCommand, null, null, intProcessID)
\nIf errReturn = 0 Then
\nolog.write objComputer & \";Software Runned. ID=; \" & intProcessID & vbcrlf
\nElse
\nolog.write objComputer & \";Error ID; \" & errReturn & vbcrlf
\nEnd If
\nElse
\nolog.write(\"Bilgisayar Kapal\u0131\" & vbcrlf)
\nEnd If
\n'Next Computer
\nobjRecordSet.MoveNext<\/code><\/p>\nLoop
\nolog.Close
\nmsgbox \"END OF SCRIPT\"<\/code><\/p>\n