Visual Basic.NET - Por que no funciona esto ?

tengo esta api en un modulo:

Declare Function InitiateSystemShutdown Lib "advapi32.dll" Alias "InitiateSystemShutdownA" (ByVal lpMachineName As String, ByVal lpMessage As String, ByVal dwTimeout As Long, ByVal bForceAppsClosed As Long, ByVal bRebootAfterShutdown As Long) As Long

y en el codigo tengo:
dim b as long
b = InitiateSystemShutdown("null", "La máquina se apagará en 5 seg.", 5000, True, False) ' para NT

por cierto, la maquina tiene Windows 2000

Hola

Creo que se debe a que estás pasando es string "null", así que buscará la máquina que se llama null y no la consigue, coloca localhost o el string vacio a ver que tal

Saludos