SetComputerName

[TheSarlacc]

after using the SetComputerName API call, do i need to reset my box in order for the change to take effect, because it doesnt seem to work...

[Megatron]

Works find for me.

Private Declare Function SetComputerName Lib "kernel32" Alias "SetComputerNameA" (ByVal lpComputerName As String) As Long
 
Private Sub Command1_Click()
    Dim sName As String
    sName = "KISHAN"
    
    SetComputerName sName
End Sub

[jim mcnamara]

Unless you're running NT or Win 2000 Pro, because you need Admin to do this.

[TheSarlacc]

so im guessing a reboot is necessary huh?

[Megatron]

It worked without any rebooting for me.