设为首页收藏本站
切换到宽版

 找回密码
 注册
搜索
批处理之家»论坛 › 其他脚本区 › VBS求助&讨论 › vbs 修改一下脚本做个输入用户名密码的窗口。有偿求助 ...
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发新帖
查看: 10032|回复: 1

[问题求助] vbs 修改一下脚本做个输入用户名密码的窗口。有偿求助

[复制链接]
赚他一个亿
发表于 2022-4-13 13:44:07 | 显示全部楼层 |阅读模式
本帖最后由 赚他一个亿 于 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")

  83.         strComputer = oWshNetwork.ComputerName
  84.         sFlag=0
  85.         On Error Resume Next
  86.         'Set colGroups = GetObject("WinNT://" & strComputer & "/Administrators")

  88.         'For Each objUser In colGroups.Members
  89.                
  90.           
  91.         'Next

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

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

  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

  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:50 | 显示全部楼层
  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")

  81.             strComputer = oWshNetwork.ComputerName
  82.             sFlag=0
  83.             On Error Resume Next
  84.             'Set colGroups = GetObject("WinNT://" & strComputer & "/Administrators")

  86.             'For Each objUser In colGroups.Members
  87.                    
  88.               
  89.             'Next

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

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

  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

  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
复制代码
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-16 22:37 , Processed in 0.019157 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表