科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网软件频道怎样可以取到服务器的名称

怎样可以取到服务器的名称

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

怎样可以取到服务器的名称

作者:www.chinaitpower.com 来源:www.chinaitpower.com 2007年9月11日

关键字: 技巧 服务器 IBM lotus Office

  • 评论
  • 分享微博
  • 分享邮件

可以参考这两个程序: 


1。设置计算机名称: 

Declare Function SetComputerName Lib"kernel32.dll" Alias"SetComputerNameA"(Byval ipcomputername As String)As Long 
ipcomputername="my" 
temp=SetComputerName(ipcomputername) 

2、利用程序获取计算机名称及登陆用户名: 

Declare Function GetComputerName Lib "kernel32.dll" Alias "GetComputerNameA" (Byval lpBuffer As String,nSize As Integer)As Long 
Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA"(Byval t$,Byval ttt$,Byval siz&)As Long 
Dim lpBuffer As String 
    Dim nSize As Integer 
    nSize=48 
    Call GetComputerName(lpBuffer,nSize) 
    Print tt$ 
    Dim ttt As String 
    Dim t As String 
    t="" 
    Call WNetGetUser(0,ttt,8) 
    Print ttt 

    • 评论
    • 分享微博
    • 分享邮件
    邮件订阅

    如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。

    重磅专题
    往期文章
    最新文章