Board logo

标题: [问题求助] vbs 修改一下脚本做个输入用户名密码的窗口。有偿求助 [打印本页]
作者: 赚他一个亿    时间: 2022-4-13 13:44     标题: vbs 修改一下脚本做个输入用户名密码的窗口。有偿求助

本帖最后由 赚他一个亿 于 2022-4-14 15:58 编辑 
  1. On Error Resume Next

  2. Err.Clear

  3. Set oWsh = CreateObject("WScript.Shell")

  4. sRegValue = oWsh.RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\Run\rr.vbs")

  5. If sRegValue = "" Then

  6. 	Dim reval_all

  7. 	Set objnet = CreateObject ("WScript.Network")

  8. 	Set R = CreateObject("WScript.Shell")

  9. 	reval_all = InputBox ("当前计算机名称：" & objnet.ComputerName & chr(10)&chr(13) & "当前登录名：" & objnet.username & chr(10)&chr(13)  &"请输入新的计算机名和登录账户，用”,“分开.(例子:zhangsan-pc,zhangsan)"  & chr(10)&chr(13) & "注：登陆账户为登陆此计算机的域账户。" ,"请输入计算名和登录名")

  10. 	

  11. 	arr1 = split(reval_all,",")

  12. 	reval = arr1(0)

  13. 	On Error Resume Next

  14. 	strComputer = "."

  15. 	Set objWMIService = GetObject("winmgmts:" _

  16. 		& "{impersonationLevel=impersonate}!\\" _

  17. 		& strComputer & "\root\cimv2")

  18. 	Set colComputers = objWMIService.ExecQuery _

  19. 		("Select * from Win32_ComputerSystem")

  20. 		

  21. 	For Each objComputer in colComputers

  22. 		errReturn = ObjComputer.Rename (reval)

  23. 		If reval <> "" Then 

  24. 			Dim AutoRunProgram 

  25. 	Set AutoRunProgram = WScript.CreateObject("WScript.shell") 

  26. 	RegPath ="HKLM\Software\Microsoft\Windows\CurrentVersion\Run\" 

  27. 	Type_Name = "REG_SZ" 

  28. 	Key_Name = "rr.vbs" 

  29. 	strComputer = "."

  30. 	Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") 

  31. 	Set colItems = objWMIService.ExecQuery("Select * From Win32_Process Where Name = 'wscript.exe' OR Name = 'cscript.exe'")

  32. 	For Each objItem in colItems

  33. 		lmq= objItem.CommandLine

  34. 		lmq= replace(lmq,Chr(34),",")

  35. 		arr = split(lmq,",")

  36. 	Next

  37. 	Key_data = arr(3)

  38. 	AutorunProgram.RegWrite regpath&Key_Name,Key_data,Type_Name 

  39. 	AutorunProgram.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\loginName",arr1(1),Type_Name 

  40. 					return=MsgBox ("Please Reboot Computer?",vbokcancel+vbexclamation,"tips!")

  41. 					If return=vbok Then

  42. 							R.run("Shutdown.exe -r -t 0")

  43. 					End if

  44. 		End If 

  45. 	Next

  46. End If

  47. if sRegValue <> "" then

  48. 	dim domain

  49. 	set domain =createobject("wscript.shell")

  50. 	Const JOIN_DOMAIN = 1

  51. 	Const ACCT_CREATE = 2

  52. 	Const ACCT_DELETE = 4

  53. 	Const WIN9X_UPGRADE = 16

  54. 	Const DOMAIN_JOIN_IF_JOINED = 32

  55. 	Const JOIN_UNSECURE = 64

  56. 	Const MACHINE_PASSWORD_PASSED = 128

  57. 	Const DEFERRED_SPN_SET = 256

  58. 	Const INSTALL_INVOCATION = 262144

  59. 	'Domain Name

  60. 	strDomain = "test.com"

  61. 	'administrator member password

  62. 	strPassword = "123456"

  63. 	'administrator member

  64. 	strUser = "administrator"

  65. 	Set objNetwork =CreateObject("WScript.Network")

  66. 	strComputer = objNetwork.ComputerName

  67. 	Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\"& _

  68. 	strComputer &"\root\cimv2:Win32_ComputerSystem.Name='" & _

  69. 	strComputer & "'")

  70. 	ReturnValue =objComputer.JoinDomainOrWorkGroup(strDomain, _

  71. 	strPassword, strDomain & "\"& strUser, NULL, _

  72. 	JOIN_DOMAIN + ACCT_CREATE)

  73. 	   dim wsh 

  74. 	set wsh=wscript.createobject("wscript.shell")

  75. 	wsh.regdelete "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\rr.vbs"

  76. 	wscript.echo "Join Domain Success!"	

  77. 	

  78. 	

  79. 	

  80. 	Dim oWshNetwork

  81. 	Set oWshNetwork = WScript.CreateObject("WScript.Network")

  82. 

  83. 	strComputer = oWshNetwork.ComputerName

  84. 	sFlag=0

  85. 	On Error Resume Next

  86. 	'Set colGroups = GetObject("WinNT://" & strComputer & "/Administrators")

  87. 

  88. 	'For Each objUser In colGroups.Members

  89. 		

  90. 	   

  91. 	'Next

  92. 

  93. 	strTestString = "/" & strComputer & "/"

  94. 

  95. 	Set colGroups = GetObject("WinNT://" & strComputer & "/Administrators")

  96. 

  97. 	For Each objUser In colGroups.Members

  98. 		If InStr(objUser.AdsPath, strTestString) Then

  99. 			'Wscript.Echo "Local user: " & objUser.Name

  100. 		'msgbox(objUser.ADsPath)

  101. 		Else

  102. 			IF objuser.Name = "DomainUser" Then

  103. 			   sFlag=1                       

  104. 	 

  105. 			end if 

  106. 		  

  107. 		  

  108. 		 

  109. 		End If

  110. 	Next

  111. 	if sFlag=0 then 

  112. 

  113. 	'Set objGroup = GetObject("WinNT://" & strComputer & "/Administrators")

  114. 	'

  115. 	Set oWsh = CreateObject("WScript.Shell")

  116. 	reval = oWsh.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\loginName")

  117. 		wsh.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\loginName"

  118. 	

  119. 			adspath = "WinNT://test/" & reval

  120. 			'msgbox(adspath)

  121. 			Set objUser = GetObject(adspath)

  122. 			colGroups.Add(objUser.ADsPath)

  123. 	end if       

  124. 		wscript.echo  "Added Finish"

  125. 	

  126. end if
复制代码
下边这段是我需要做个手工做个输入用户名密码弹窗，这样子密码就不会泄露，每个人用每个人的密码加入域控。这个是我复制别人的需要稍微修改一下，我不知道怎么把这一段改成这个弹窗输入模式。
        'administrator member password
        strPassword = "123456"
        'administrator member
        strUser = "administrator"
作者: LJY4.0    时间: 2022-6-5 12:00

  1.     On Error Resume Next

  2.     Err.Clear

  3.     Set oWsh = CreateObject("WScript.Shell")

  4.     sRegValue = oWsh.RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\Run\rr.vbs")

  5.     If sRegValue = "" Then

  6.     	Dim reval_all

  7.     	Set objnet = CreateObject ("WScript.Network")

  8.     	Set R = CreateObject("WScript.Shell")

  9.     	reval_all = InputBox ("当前计算机名称：" & objnet.ComputerName & chr(10)&chr(13) & "当前登录名：" & objnet.username & chr(10)&chr(13)  &"请输入新的计算机名和登录账户，用”,“分开.(例子:zhangsan-pc,zhangsan)"  & chr(10)&chr(13) & "注：登陆账户为登陆此计算机的域账户。" ,"请输入计算名和登录名")

  10.     	

  11.     	arr1 = split(reval_all,",")

  12.     	reval = arr1(0)

  13.     	On Error Resume Next

  14.     	strComputer = "."

  15.     	Set objWMIService = GetObject("winmgmts:" _

  16.     		& "{impersonationLevel=impersonate}!\\" _

  17.     		& strComputer & "\root\cimv2")

  18.     	Set colComputers = objWMIService.ExecQuery _

  19.     		("Select * from Win32_ComputerSystem")

  20.     		

  21.     	For Each objComputer in colComputers

  22.     		errReturn = ObjComputer.Rename (reval)

  23.     		If reval <> "" Then 

  24.     			Dim AutoRunProgram 

  25.     	Set AutoRunProgram = WScript.CreateObject("WScript.shell") 

  26.     	RegPath ="HKLM\Software\Microsoft\Windows\CurrentVersion\Run\" 

  27.     	Type_Name = "REG_SZ" 

  28.     	Key_Name = "rr.vbs" 

  29.     	strComputer = "."

  30.     	Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") 

  31.     	Set colItems = objWMIService.ExecQuery("Select * From Win32_Process Where Name = 'wscript.exe' OR Name = 'cscript.exe'")

  32.     	For Each objItem in colItems

  33.     		lmq= objItem.CommandLine

  34.     		lmq= replace(lmq,Chr(34),",")

  35.     		arr = split(lmq,",")

  36.     	Next

  37.     	Key_data = arr(3)

  38.     	AutorunProgram.RegWrite regpath&Key_Name,Key_data,Type_Name 

  39.     	AutorunProgram.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\loginName",arr1(1),Type_Name 

  40.     					return=MsgBox ("Please Reboot Computer?",vbokcancel+vbexclamation,"tips!")

  41.     					If return=vbok Then

  42.     							R.run("Shutdown.exe -r -t 0")

  43.     					End if

  44.     		End If 

  45.     	Next

  46.     End If

  47.     if sRegValue <> "" then

  48.     	dim domain

  49.     	set domain =createobject("wscript.shell")

  50.     	Const JOIN_DOMAIN = 1

  51.     	Const ACCT_CREATE = 2

  52.     	Const ACCT_DELETE = 4

  53.     	Const WIN9X_UPGRADE = 16

  54.     	Const DOMAIN_JOIN_IF_JOINED = 32

  55.     	Const JOIN_UNSECURE = 64

  56.     	Const MACHINE_PASSWORD_PASSED = 128

  57.     	Const DEFERRED_SPN_SET = 256

  58.     	Const INSTALL_INVOCATION = 262144

  59.     	'Domain Name

  60.     	strDomain = "test.com"

  61.     	strPassword=inputbox("Password", "Password", "Password")

  62.         strUser=inputbox("User", "User", "User")

  63.     	Set objNetwork =CreateObject("WScript.Network")

  64.     	strComputer = objNetwork.ComputerName

  65.     	Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\"& _

  66.     	strComputer &"\root\cimv2:Win32_ComputerSystem.Name='" & _

  67.     	strComputer & "'")

  68.     	ReturnValue =objComputer.JoinDomainOrWorkGroup(strDomain, _

  69.     	strPassword, strDomain & "\"& strUser, NULL, _

  70.     	JOIN_DOMAIN + ACCT_CREATE)

  71.     	   dim wsh 

  72.     	set wsh=wscript.createobject("wscript.shell")

  73.     	wsh.regdelete "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\rr.vbs"

  74.     	wscript.echo "Join Domain Success!"	

  75.     	

  76.     	

  77.     	

  78.     	Dim oWshNetwork

  79.     	Set oWshNetwork = WScript.CreateObject("WScript.Network")

  80. 

  81.     	strComputer = oWshNetwork.ComputerName

  82.     	sFlag=0

  83.     	On Error Resume Next

  84.     	'Set colGroups = GetObject("WinNT://" & strComputer & "/Administrators")

  85. 

  86.     	'For Each objUser In colGroups.Members

  87.     		

  88.     	   

  89.     	'Next

  90. 

  91.     	strTestString = "/" & strComputer & "/"

  92. 

  93.     	Set colGroups = GetObject("WinNT://" & strComputer & "/Administrators")

  94. 

  95.     	For Each objUser In colGroups.Members

  96.     		If InStr(objUser.AdsPath, strTestString) Then

  97.     			'Wscript.Echo "Local user: " & objUser.Name

  98.     		'msgbox(objUser.ADsPath)

  99.     		Else

  100.     			IF objuser.Name = "DomainUser" Then

  101.     			   sFlag=1                       

  102.     	 

  103.     			end if 

  104.     		  

  105.     		  

  106.     		 

  107.     		End If

  108.     	Next

  109.     	if sFlag=0 then 

  110. 

  111.     	'Set objGroup = GetObject("WinNT://" & strComputer & "/Administrators")

  112.     	'

  113.     	Set oWsh = CreateObject("WScript.Shell")

  114.     	reval = oWsh.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\loginName")

  115.     		wsh.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\loginName"

  116.     	

  117.     			adspath = "WinNT://test/" & reval

  118.     			'msgbox(adspath)

  119.     			Set objUser = GetObject(adspath)

  120.     			colGroups.Add(objUser.ADsPath)

  121.     	end if       

  122.     		wscript.echo  "Added Finish"

  123.     	

  124.     end if
复制代码




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2