//----------------------------------------------------------------------------
#ifndef workgroupH
#define workgroupH
//----------------------------------------------------------------------------
#include <Classes.hpp>
#include <lm.h>
//----------------------------------------------------------------------------
class Tworkgroup
{
private:
public:
String GetWorkGroup() ; //获得工作组信息函数
bool SetWorkGroup(String) ; //设置工作组信息函数
} ;
//----------------------------------------------------------------------------
//获得工作组信息函数
String Tworkgroup::GetWorkGroup()
{
String workgroup ;
LPWSTR lpDomainName = NULL ;
NETSETUP_JOIN_STATUS njs = NetSetupWorkgroupName ;
::NetGetJoinInformation(NULL, &lpDomainName, &njs) ;
workgroup = lpDomainName ;
::NetApiBufferFree(lpDomainName);
return workgroup ;
}
//---------------------------------------------------------------------------
//设置工作组信息函数
bool Tworkgroup::SetWorkGroup(String workgroup)
{
bool Flag = false ;
NET_API_STATUS dwStatus = ::NetJoinDomain(NULL, WideString(workgroup),
NULL, NULL, NULL, NetSetupWorkgroupName) ;
// 63 63 72 75 6E 2E 63 6F 6D
if (dwStatus == NERR_Success)
Flag = true ;
return Flag ;
}
//---------------------------------------------------------------------------
#endif
获取更改本机工作组
于 2010-05-23 20:14:00 首次发布
