пропозиції роботи
Temat: Shell msg.exe
Witam,Może ktoś kiedyś miał problem z wysłaniem wiadomości popup via Lan przez shell.
Jeżeli wpisze w konsoli cmd:
C:\WIndows\System32\msg.exe * /SERVER:10.27.3.2 Test
to wszystko działa bez zarzutu ale gdy taką samą instrukcję wrzucę już do Accessa to Wndows chce chce jej przełknąć.
Public Function SEND_SHELL_MESSAGE(ByRef Message As String, ByRef User_IP As String) As Boolean
Dim objShell As Object
Set objShell = CreateObject("WScript.Shell")
objShell.Run ("cmd /k c:\windows\system32\msg.exe * /server:" & User_IP & " " & Message)
Set objShell = Nothing
SEND_SHELL_MESSAGE=True
End Function
Access: 32 bit
WIndows: 64 bit
Może ktoś ma jakiś pomysł. Dostaje błąd albo że plik nie istnieje albo nie rozpoznana funkcja.
