www.infralib.com

www.infralib.com
Yeni sitemiz http://www.infralib.com 'u ziyaret ediniz. Yeni yazılarım başka yazarlarında katkılarıyla artık bu adreste. Ayrıca çok yakında forum, video, webcast gibi bölümlerde yayında olacak.

8 Jan 2010

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