MikeSel

--
tell application "Microsoft Lync"
    activate
end tell

tell application "System Events"
	tell process "Microsoft Lync"
		tell menu bar 1
			tell menu bar item "Status"
				tell menu "Status"

MikeSel

Imports Microsoft.Lync.Model
Imports Microsoft.Lync.Model.Extensibility
Public Class Form1
    Public WithEvents _Client As LyncClient                                                             'MS Lync Client object
    Public WithEvents _ConversationMgr As Microsoft.Lync.Model.Conversation.ConversationManager         'MS Lync Conversation Object
    Public WithEvents _ContactManager As Microsoft.Lync.Model.ContactManager                            'MS Lync Contact Manager Object
    Private _InitializeFlag As Boolean = False
    Public automation As Microsoft.Lync.Model.Extensibility.Automation

    Private Sub StartConversationCallback(result As IAsyncResult)

MikeSel

'use strict';

var clientContext = new SP.ClientContext.get_current();
var peopleManager = new SP.UserProfiles.PeopleManager(clientContext);
var userProfileProperties = peopleManager.getMyProperties()
var managerProfileProperties = [];

clientContext.load(userProfileProperties);
clientContext.executeQueryAsync(GetManagerObject, failure);

MikeSel

getFormattedDate('1/1/2013 12:30:00');

var result;

function getFormattedDate(input) {
    var pattern = /(.*?)\/(.*?)\/(.*?)$/;
    result = input.replace(pattern, function (match, p1, p2, p3) {
        var months = ['Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Dec'];
        return (p2 < 10 ? "0" + p2 : p2) + " " + months[(p1 - 1)] + " " + p3;
    });

MikeSel

Set objRootDSE = GetObject("LDAP://rootDSE")

Set objContainer = GetObject("LDAP://cn=Users," & _
    objRootDSE.Get("defaultNamingContext"))

Const ADS_PROPERTY_APPEND = 3 

'Change to group name which youd like to add users to 
Set objGroup = GetObject _
  ("LDAP://cn=GroupName,ou=OUName,dc=DomainName,dc=com") 

MikeSel

'***************************************************************************************************************************************************************************************
'***************************************************************************************************************************************************************************************
'**********
'**********                                         Easy Digital Download Licence Wrap Class     
'**********                                         by Mike Hudson - http://www.mikesel.info
'**********                                                     Version 1.0
'**********
'***************************************************************************************************************************************************************************************
'*********************************************************************************************************************************************************************************

MikeSel

    Dim myEDD As New EDD_Licence
    
    Private Sub cmdCheck_Click(sender As Object, e As EventArgs) Handles cmdCheck.Click
        myEDD.EDDLicense("CheckLicense", "http://<YOURURL>?edd_action=check_license&item_name=", "<YOURAPPNAME>", "&license=<YOURLICENSEKEY>")
    End Sub

    Private Sub cmdActivate_Click(sender As Object, e As EventArgs) Handles cmdActivate.Click
        myEDD.EDDLicense("ActivateLicense", "http://<YOURURL>/?edd_action=activate_license&item_name=", "<YOURAPPNAME>", "&license=<YOURLICENSEKEY>")
    End Sub

MikeSel

Dim request As Net.HttpWebRequest = Net.WebRequest.Create("http://www.mikesel.info")
Dim response As Net.WebResponse
request.Proxy = Net.WebRequest.GetSystemWebProxy
request.Proxy.Credentials = System.Net.CredentialCache.DefaultCredentials
response = DirectCast(request.GetResponse(), HttpWebResponse)

MikeSel

Dim psi As New ProcessStartInfo("fileName", "arguments")
Dim p As New Process
p.StartInfo = psi
p.Start()
p.WaitForInputIdle()

MikeSel

On Error Resume next
Const HKCU=&H80000001 'HKEY_CURRENT_USER
Const HKLM=&H80000002 'HKEY_LOCAL_MACHINE

Const REG_SZ=1
Const REG_EXPAND_SZ=2
Const REG_BINARY=3
Const REG_DWORD=4
Const REG_MULTI_SZ=7