Script ile mevcut proxy ayarlarini gormek

Merhaba, eger basit bir script ile bilgisayarinizin mevcut proxy ayarlarini gormek istiyorsaniz asagidaki scriptten faydalanabilirsiniz. Calistirdiginizda size proxy sunucunuzun adini, baglandiginiz port hakkinda bilgi verecektir.

On Error Resume Next

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_Proxy")

For Each objItem in colItems
Wscript.Echo "Proxy Port Number: " & objItem.ProxyPortNumber
Wscript.Echo "Proxy Server: " & objItem.ProxyServer
Wscript.Echo "Server Name: " & objItem.ServerName
Wscript.Echo
Next

SMS 2003 Policy sini Client'da cekip, uygulamak

Doug Eby'nin yazdigi asagidaki script araciligi ile SMS Advanced Client (versiyon 2004) yuklu bir istemcinin SMS sunucunuzdan son kullanici policy i cekerek uygulamasini hizlandirabilirsiniz, ozellikle test asamasinda cok faydali olacagindan tavsiye ederim.

On Error Resume Next

Dim objCPAppletMgr
Dim objClientActions
Dim objClientAction
Dim strActionName
strActionName="Request & Evaluate User Policy"
set objCPAppletMgr = CreateObject("CPApplet.CPAppletMgr")
set objClientActions=objCPAppletMgr.GetClientActions
For Each objClientAction In objClientActions
If objClientAction.Name = strActionName Then
objClientAction.PerformAction
End If
Next