既然都有A1P了 那我再发一下跑号脚本

lzdszdl

首先管理员运行powershell
执行：
Install-Module -Name AzureAD
Install-Module -Name MSOnline
Set-ExecutionPolicy -ExecutionPolicy RemoteSigned -Scope CurrentUser

然后登录账号：
Connect-AzureAD
Connect-MsolService

然后获取sku
Get-MsolAccountSku
复制SKU
修改下面的脚本为你的内容
生成的帐号格式为用户名前缀+第几个
例如ppx1..ppx2..ppx1000
注意修改if的 1 5000
-

1. Function GetRandom($NUM,$RT){
   
2. If ([String]::IsNullOrEmpty($NUM)) { Return } Else { If ([String]::IsNullOrEmpty($($($NUM).ToString()).Trim())){ Return }}
   
3. If ($NUM -match ",") {$Len1 = (($NUM -split(",", 2))[0]).Trim(); $Len2 = (($NUM -split(",",2))[1]).Trim()} Else{$Len = $NUM; $Len1 ="";$Len2 =""}
   
4. If (-Not ([String]::IsNullOrEmpty($Len1) -or [String]::IsNulorEmpty($Len2))) { $Len = ((([convert]::ToInt32($Len1,10)).. ([convert]::ToInt32($Len2,10)))| Get-Random) }
   
5. If ([String]::IsNullOrEmpty($Len)) { Return }
   
6. $RList = (49..57 + 65..90 + 97..122)
   
7. Return -join( $RList | Get-Random -count $Len| %{[char]$_})
   
8. }
   
9. 
   
10. for($i=1;$i -le 5000;$i++)
    
11. {   $passwd=GetRandom(16)
    
12.     $passwd=$passwd+"!"
    
13.     #$head=GetRandom(8)
    
14.     $name="用户名前缀"+$i+"@你的域名"
    
15.     New-MsolUser -DisplayName O365 -UserPrincipalName $name -UsageLocation US -Password $passwd -LicenseAssignment xxxxx:STANDARDWOFFPACK_STUDENT
    
16.     "$name--$passwd" | Out-File -Append D:\A1P_STU.txt
    
17. }

复制代码

riwsh

马克

吴彦祖

脚本有了，A1P去哪买，99的，涨价的不要

dbug

支持大佬

fule

好帖帮顶

b66667777

帮顶

wifitry

mark一下

victor_ada

然后自己跑自己？

我能做两个小时

跑这个时间好长啊，我一个小时都没跑完

xswy

99的a1p来一个