小坏 发布的文章

Delphi 获取Windows本地用户组和用户列表

头文件不全请加载    JEDI Windows Security Code Library 


{$POINTERMATH ON}
Function GetUserGroup():Integer;
Var
  szComputer:Array [0..MAXCHAR] Of WideChar;
  Buffer    :LPLOCALGROUP_INFO_1;
  nTotal    :DWORD;
  nEntries  :DWORD;
  hResume   :PDWORD_PTR;
  nCount    :DWORD;
  nStatus   :DWORD;
  dwPrefMax :DWORD;
  lpszStr   :Array [0..MAX_PATH] Of WideChar;
  iLen      :Integer;
  iFull     :Integer;
begin
  Result   := 0;
  nEntries := SizeOf(szComputer);
  GetComputerNameW(@szComputer, nEntries);
  nEntries   := 0;
  nTotal     := 0;
  Buffer     := Nil;
  dwPrefMax  := MAX_PREFERRED_LENGTH;
  hResume    := Nil;

  Writeln('User Group:', szComputer);
  nStatus    := NetLocalGroupEnum(szComputer, 0, PByte(Buffer), dwPrefMax, @nEntries, @nTotal, @hResume);
  if (nStatus = S_OK) Or (nStatus = ERROR_MORE_DATA) then
  begin
    for nCount := 0 to nTotal-1 do
    begin
      Inc(Result);
      if Buffer[nCount].lgrpi1_comment = Nil then Break;

      iLen := lstrlenW(Buffer[nCount].lgrpi1_comment);
      iFull:= 40 - Min(iLen, 32);
      ZeroMemory(@lpszStr, SizeOf(lpszStr));
      FillSpaces(@lpszStr, 10, True);

      lstrcatW(lpszStr, Buffer[nCount].lgrpi1_comment);
      FillSpaces(@lpszStr[iLen + 10], iFull, True);

      lstrcatW(lpszStr, Buffer[nCount].lgrpi1_name);

      Writeln(lpszStr);
    end;
  end;

  if Buffer <> Nil then
    NetApiBufferFree(Buffer);

  Writeln('.Done!, Total: ', Result);
end;


Function GetUsers():Integer;
Var
  szComputer:Array [0..MAXCHAR] Of WideChar;
  Buffer    :PUserInfo3;
  nTotal    :DWORD;
  nEntries  :DWORD;
  hResume   :PDWORD_PTR;
  nCount    :DWORD;
  dwPrefMax :DWORD;
  nStatus   :DWORD;
  lpszStr   :Array [0..MAX_PATH] Of WideChar;
begin
  Result   := 0;
  nEntries := SizeOf(szComputer);
  GetComputerNameW(@szComputer, nEntries);
  nEntries   := 0;
  nTotal     := 0;

  nEntries   := 0;
  nTotal     := 0;
  Buffer     := Nil;
  dwPrefMax  := MAX_PREFERRED_LENGTH;
  hResume    := Nil;

  Writeln('User Group:', szComputer);
  nStatus    := NetUserEnum(szComputer, 3, FILTER_NORMAL_ACCOUNT, PByte(Buffer), dwPrefMax, @nEntries, @nTotal, @hResume);
  if (nStatus = S_OK) Or (nStatus = ERROR_MORE_DATA) then
  begin
    for nCount := 0 to nTotal-1 do
    begin
      Inc(Result);
      if Buffer[nCount].usri3_name = Nil then
      begin
        if nCount < nTotal then
        begin
          Continue;
        end Else Break;
      end;

      ZeroMemory(@lpszStr, SizeOf(lpszStr));
      FillSpaces(@lpszStr, 10, True);
      lstrcatW(lpszStr, Buffer[nCount].usri3_name);
      Writeln(lpszStr, #13);

      ZeroMemory(@lpszStr, SizeOf(lpszStr));
      FillSpaces(@lpszStr, 15, True);
      lstrcatW(lpszStr, 'Remarks:');
      lstrcatW(lpszStr, Buffer[nCount].usri3_comment);
      Writeln(lpszStr);

      ZeroMemory(@lpszStr, SizeOf(lpszStr));
      FillSpaces(@lpszStr, 15, True);
      lstrcatW(lpszStr, 'Privilege:');
      if Buffer[nCount].usri3_priv = 0 then
      begin
        lstrcatW(lpszStr, 'Guest');
      end Else
      if Buffer[nCount].usri3_priv = 1 then
      begin
        lstrcatW(lpszStr, 'User');
      end Else
      if Buffer[nCount].usri3_priv = 2 then
      begin
        lstrcatW(lpszStr, 'Admin');
      end Else
      begin
        lstrcatW(lpszStr, 'UnKnown');
      end;
      Writeln(lpszStr);

      if (Buffer[nCount].usri3_script_path <> Nil) And (lstrlenW(Buffer[nCount].usri3_script_path) > 0) then
      begin
        ZeroMemory(@lpszStr, SizeOf(lpszStr));
        FillSpaces(@lpszStr, 15, True);
        lstrcatW(lpszStr, 'Login Script:');
        lstrcatW(lpszStr, Buffer[nCount].usri3_script_path);
        Writeln(lpszStr);
      end;
      Writeln('');
    end;
  end;
  if Buffer <> Nil then
    NetApiBufferFree(Buffer);

  Writeln('.Done!, Total: ', Result);
end;


Delphi 获取Windows系统会话用户名

Function GetLogUser(Var dwCount :DWORD):PLPChar;
Var
  szLogName     :PAnsiChar;
  dwSize        :DWORD;
  I             :DWORD;
  SessionsInfo  :PWTS_SESSION_INFOA;
  SessionsSeek  :PWTS_SESSION_INFOA;
  SessionsCount :DWORD;

  szBuffer      :Array [0..MAXCHAR * 64] of AnsiChar;
  lpszSeek      :PAnsiChar;
begin
  Result    := Nil;
  dwCount   := 0;
  if WTSEnumerateSessionsA(WTS_CURRENT_SERVER_HANDLE, 0, 1, SessionsInfo, SessionsCount) then
  begin
    ZeroMemory(@szBuffer, SizeOf(szBuffer));
    lpszSeek := PAnsiChar(@szBuffer);
    SessionsSeek := SessionsInfo;
    For I:= 0 To SessionsCount - 1 do
    begin
      if (SessionsSeek.State = WTSActive) or (SessionsSeek.State = WTSDisconnected) then
      begin
        szLogName := Nil;
        dwSize    := 0;
        if WTSQuerySessionInformationA(WTS_CURRENT_SERVER_HANDLE, SessionsSeek.SessionId, WTSUserName, szLogName, dwSize) And (szLogName[0] <> #0) then
        begin
          Inc(dwCount);
          lstrcpyA(lpszSeek, szLogName);
          Inc(lpszSeek, lstrlenA(lpszSeek) + 1);
          WTSFreeMemory(szLogName);
        end;
      end;
      Inc(SessionsSeek);
    end;
    WTSFreeMemory(SessionsInfo);
  end;
  if (dwCount > 0) And (szBuffer[0] <> #0) then
  begin
    Result := GetMemory(SizeOf(PAnsiChar) * (dwCount + 2));
    if (Result <> Nil) And CheckMemory(Result, SizeOf(PAnsiChar) * (dwCount + 2)) then
    begin
      lpszSeek := PAnsiChar(@szBuffer);
      for I := 0 to dwCount-1 do
      begin
        dwSize  := lstrlenA(lpszSeek);
        Result[I] := GetMemory(dwSize + 1);
        if (Result[I] <> Nil) And CheckMemory(Result[I], dwSize + 1) then
        begin
          lstrcpynA(Result[I], lpszSeek, dwSize + 1)
        end;
        Inc(lpszSeek, dwSize + 1);
      end;
    end;
  end;
end;


PowerShell学习笔记(二) 通过远程执行命令

#启用远程 忽略网络类型 所有提示全Yes
Enable-PSRemoting -SkipNetworkProfileCheck -Force
#允许所有连入连接 PS:2端都需要执行
Set-Item WSMan:\localhost\Client\TrustedHosts -Value * -Force


#新建Session
$Session = (Get-Credential)
#连接到虚拟机
$Connect = New-PSSession -ComputerName 192.168.1.2 -Credential $Session
#通过ICM执行CMD命令
ICM $Connect {ping qq.com}
#删除连接
Remove-PSSession -Session $Connect


PowerShell管理Hyper-V虚拟机学习笔记(一)

#新建虚拟机
#新建一个名称为Test 内存1G 硬盘大小为40Gb的一代Hyper-V虚拟机
$VM = New-VM –Name "Test" –MemoryStartupBytes 1GB -Generation 1 -NewVHDPath "D:\VM\Test.vhdx" -NewVHDSizeBytes 40GB
#设置虚拟机CPU为2核心
$VM | Set-VM -ProcessorCount 2 
#关闭虚脱机动态内存
$VM | Set-VMMemory -DynamicMemoryEnabled $False
#删除原有网卡
$VM | Remove-VMNetworkAdapter
#添加一个名称为 内网网卡 虚拟交换机为 VM_Lan 的网卡
$VM | Add-VMnetworkAdapter -Name "内网网卡" -SwitchName "VM_Lan"
#启用Vlan
$VM | Set-VMNetworkAdapterVlan –Access –VlanId 2
#添加一个名称为 外网网卡 虚拟交换机为 VM_Wan 的网卡
$VM | Add-VMnetworkAdapter -Name "外网网卡" -SwitchName "VM_Wan"


#查找已运行的虚拟机且名字包含Av_
$List = Get-VM | Where-Object {$_.State –eq 'Running'} | Where-Object {$_.Name -like 'AV_*'}

#启用联网网卡
foreach($I in $List) {
  Connect-VMNetworkAdapter -VMName $I.VMName -Name "外网网卡" -SwitchName "Wan"
}

#禁用联网网卡
foreach($I in $List) {
  Disconnect-VMNetworkAdapter -VMName $I.VMName -Name "外网网卡"
}

#删除所有已关机状态的虚拟机网卡
foreach($I in $List) {
    Remove-VMNetworkAdapter $I
}

#添加指定模式的双网卡
foreach($I in $List) {
    Add-VMnetworkAdapter $I -Name "内网网卡" -SwitchName "VM_Lan" 
    Set-VMNetworkAdapterVlan $I –Access –VlanId 2
    Add-VMnetworkAdapter $I -Name "外网网卡" -SwitchName "VM_Wan"
}

#启动虚拟机
$List = Get-VM | Where-Object {$_.State –eq 'Off'} | Where-Object {$_.Name -like 'AV_*'}
foreach($I in $List) {
    Start-VM -Name $I.VMName
}

#关闭虚拟机
$List = Get-VM | Where-Object {$_.State –eq 'Running'} | Where-Object {$_.Name -like 'AV_*'}
foreach($I in $List) {
    Stop-VM -Name $I.VMName
}