{"id":303,"date":"2009-04-09T17:29:20","date_gmt":"2009-04-09T14:29:20","guid":{"rendered":"http:\/\/www.notsayfam.com\/?p=303"},"modified":"2009-06-15T15:09:40","modified_gmt":"2009-06-15T12:09:40","slug":"vbscript-ile-terminal-server-kullanici-local-ip-adresi-kontolu","status":"publish","type":"post","link":"https:\/\/www.notsayfam.com\/?p=303","title":{"rendered":"VbScript ile terminal server kullan\u0131c\u0131 local ip adresi kontol\u00fc"},"content":{"rendered":"<p>kullan\u0131lan toolun k\u00f6t\u00fc bir \u00f6zelli\u011fi var ba\u011flanan makinenin local ip adresini g\u00f6steriyor. \ud83d\ude41 firmaya durumu ilettim ama de\u011fi\u015ftirirler mi bilemiyorum. Ama toolu kullanarak \u015f\u00f6yle yapabilirsiniz \u00f6rne\u011fin sizin terminal sunucunuzun bulundu\u011fu ip blo\u011fu 10.0.5.xx   gibi bir bloksa. 10.0.5 ile ba\u015flam\u0131yorsa kullan\u0131c\u0131y\u0131 logoff edebilirsiniz.    kullan\u0131c\u0131n\u0131n local ip adresi genelde 10.0.0.x \/ 192.168.1.x\/192.168.2.x  \u015feklinde (standart adsl modemlerin da\u011f\u0131t\u0131m\u0131, en \u00e7ok kullan\u0131lan bloklar bunlar.)<\/p>\n<p>Toolu http:\/\/www.ctrl-alt-del.com.au\/CAD_Utils.htm  adresinden indirebilirsiniz. ad\u0131 GETTSCIP<\/p>\n<p>kontrol etmek istedi\u011finiz kullan\u0131c\u0131lar\u0131n logon scriptine<\/p>\n<p>Mant\u0131\u011f\u0131: Kullan\u0131c\u0131n\u0131n belgelerim klas\u00f6r\u00fcne k.ad\u0131.txt isimli bi dosyaya GETTSCIP ile ba\u011flanan kullan\u0131c\u0131n\u0131n ip adresini kay\u0131t ettiriyoruz. Sonra program\u0131n verdi\u011fi \u00e7\u0131kt\u0131dan (WTSClientAddress: 192.168.2.51) ip adresini ve adresin ilk 7 karakterini al\u0131yoruz. Sonra bizim ip blo\u011fumuz ile kar\u015f\u0131la\u015ft\u0131r\u0131yoruz tutmuyorsa kullan\u0131c\u0131 logoff oluyor.<\/p>\n<p>Set oShell = Wscript.CreateObject(&#8220;Wscript.Shell&#8221;)<br \/>\nkullanici = oShell.ExpandEnvironmentStrings(&#8220;%USERNAME%&#8221;)<br \/>\nmasaustu = oShell.SpecialFolders(&#8220;MyDocuments&#8221;)<br \/>\ntamyol= &#8220;&#8221;&#8221;&#8221; &amp; \u00a0masaustu &amp; &#8220;\\&#8221; &amp; kullanici &amp; \u00a0&#8220;.txt&#8221; &amp; &#8220;&#8221;&#8221;&#8221;<br \/>\nkomut = &#8220;cmd \/K ipal.exe &gt; &#8221; &amp; tamyol &amp; \u00a0&#8221; &amp; exit&#8221;<br \/>\noShell.run (komut)<br \/>\ntamyol2=masaustu &amp; &#8220;\\&#8221; &amp; kullanici &amp; \u00a0&#8220;.txt&#8221;<br \/>\nSet objFSO = CreateObject(&#8220;Scripting.FileSystemObject&#8221;)<br \/>\nSet objFile = objFSO.OpenTextFile(tamyol2, ForReading)<br \/>\nConst ForReading = 1<br \/>\nip=objFile.ReadLine<br \/>\nDim arrFileLines()<br \/>\nobjFile.Close<br \/>\nMyArray = Split(ip, &#8220;: &#8220;, -1, 1)<br \/>\nip=MyArray(1)<br \/>\nip=Mid(ip, 1, 7)<br \/>\nif ip = &#8220;10.0.5.&#8221; then<br \/>\nmsgbox &#8220;Localden geliyor&#8221;<br \/>\nelse<br \/>\noShell.run (&#8220;logoff&#8221;)<br \/>\nend if<\/p>\n","protected":false},"excerpt":{"rendered":"<p>kullan\u0131lan toolun k\u00f6t\u00fc bir \u00f6zelli\u011fi var ba\u011flanan makinenin local ip adresini g\u00f6steriyor. \ud83d\ude41 firmaya durumu ilettim ama de\u011fi\u015ftirirler mi bilemiyorum. Ama toolu kullanarak \u015f\u00f6yle yapabilirsiniz \u00f6rne\u011fin sizin terminal sunucunuzun bulundu\u011fu ip blo\u011fu 10.0.5.xx gibi bir bloksa. 10.0.5 ile ba\u015flam\u0131yorsa kullan\u0131c\u0131y\u0131 logoff edebilirsiniz. kullan\u0131c\u0131n\u0131n local ip adresi genelde 10.0.0.x \/ 192.168.1.x\/192.168.2.x \u015feklinde (standart adsl modemlerin da\u011f\u0131t\u0131m\u0131, &hellip; <a href=\"https:\/\/www.notsayfam.com\/?p=303\" class=\"more-link\">Okumaya devam et<span class=\"screen-reader-text\"> &#8220;VbScript ile terminal server kullan\u0131c\u0131 local ip adresi kontol\u00fc&#8221;<\/span><\/a><\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[],"class_list":["post-303","post","type-post","status-publish","format-standard","hentry","category-kategorisiz"],"_links":{"self":[{"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=\/wp\/v2\/posts\/303","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=303"}],"version-history":[{"count":2,"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=\/wp\/v2\/posts\/303\/revisions"}],"predecessor-version":[{"id":345,"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=\/wp\/v2\/posts\/303\/revisions\/345"}],"wp:attachment":[{"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=303"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=303"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=303"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}