Prev: vbscript to get photos from ldap provider
Next: Simplifying a repetitive vbs script
From: gimme_this_gimme_that on 22 Jun 2010 17:47
This might be a good one for Old Dog.

I'd like to run this script as

powershell.exe myscript.psl

I tried to translate it myself - but when I run it it hangs.

Here is the VBA:

Sub sendMessage()
Dim p As CommunicatorAPI.Messenger
Dim r As CommunicatorAPI.IMessengerConversationWndAdvanced
Dim s As CommunicatorAPI.IMessengerContacts
Dim m As CommunicatorAPI.IMessengerContact
Dim w As String
Dim v As Long
v = 1
w = ""
Set p = CreateObject("Communicator.UIAutomation")
p.AutoSignin
Set s = p.MyContacts
Set m = p.GetContact("someone.youknow(a)safeplace.com",
CStr(p.MyServiceId))
Set rr = p.InstantMessage(m)
r.SendText ("hello from VBA Excel. ignore")
End Sub

Do I need Powershell 2.0 to run the script? Or can I get by with 1.0
and SP 2.0?

Thanks.
From: Mayayana on 22 Jun 2010 18:40
There's a powershell group here:

microsoft.public.windows.powershell



 | 
Pages: 1
Prev: vbscript to get photos from ldap provider
Next: Simplifying a repetitive vbs script