Выключение компьтера по сети

← →
Ig © (2004-01-29 23:13) [0]

Пользовалзя такой функцией для выключения компьютера по сети, было это давно, но правда. Сама функция:

InitiateSystemShutdown(
LPTSTR lpMachineName, // address of name of computer to shut down
LPTSTR lpMessage, // address of message to display in dialog box
DWORD dwTimeout, // time to display dialog box
BOOL bForceAppsClosed, // force applications with unsaved changes flag
BOOL bRebootAfterShutdown // reboot flag
);

InitiateSystemShutdown("Igor","Здесь типа сообщение ",120, true,trur );

Суть в том, что раньше когда я это делал, я писал имя компьютера например "Igor", и все прекрасно работало, а сейчас получается только по IP адресу, что за х....!

InitiateSystemShutdown("169.254.128.137","Здесь типа сообщение ",120,true,trur );
Так работает прекрасно!!!
Подскажите, что за х....! ПОЖАЛУЙСТА!!! СРОЧНО НАДО!

← →
Ig © (2004-01-29 23:27) [1]

Извиняюсь за опечатку в вопросе - "Компьютера", также в функции вместо "trur" - "True".
P.S. СРОЧНООООООО!!!!!!!! НАДО!!!!!!!! ПОЖАЛУЙСТА!!!!!!

← →
Ig © (2004-01-29 23:42) [2]

Кто-нибудь такой пользовался вообще?

procedure TForm1.Button1Click(Sender: TObject);
var
ph:THandle;
tp,prevst:TTokenPrivileges;
rl:DWORD;
begin
OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES or
TOKEN_QUERY,ph);
LookupPrivilegeValue(Nil,"SeShutdownPrivilege",tp.Privileges[0].Luid);
tp.PrivilegeCount:=1;
tp.Privileges[0].Attributes:=2;
AdjustTokenPrivileges(ph,FALSE,tp,SizeOf(prevst),prevst,rl);
InitiateSystemShutdown("VASYA", "message",120,true,true );
end;

Выключение компьтера по сети Найти похожие ветки