☰

强制登录脚本提示输入凭证？

tag-icon • tag-icon login credentials share-credentials login-items net-use
强制登录脚本提示输入凭证？

设想： Office 正在从一台服务器转移到另一台服务器，该服务器位于与当前正在使用的域不同的域中。由于身份验证不正确，Net use 登录脚本自动失败。

我需要的登录脚本使用与用户登录时不同的凭据将驱动器映射到新服务器。无法在登录脚本中为每个用户设置用户名和密码，它需要提示并允许用户修改域/用户名和密码才能访问它。

它会是什么样子 登录脚本运行，打开一个窗口提示用户输入替代凭据，用户输入所需凭据，正确驱动地图。

我做了一些谷歌搜索，并研究了 vbs net use 脚本，但看起来它都需要将用户的用户名和密码输入到特定的登录批处理文件中。

有什么想法吗？

答案1

使用 VBS 脚本，你可以使用类似

$username = InputBox("Type your username", vbOKOnly)
$password = InputBox("Type your password", vbOKOnly)

答案2

下面是一个示例，说明如何执行此操作自动识别。这将提示输入凭证，然后根据这些凭证持续映射驱动器。

#include <GuiConstants.au3>
#include <EditConstants.au3>

$gui = GuiCreate("Authenticate",120,170)

GUICtrlCreateLabel("Username:",10,10,50,20)
$username = GUICtrlCreateInput("",10,35,100,20)
GUICtrlCreateLabel("Password:",10,70,50,20)
$password = GUICtrlCreateInput("",10,95,100,20,$ES_PASSWORD)

$go = GuiCtrlCreateButton("OK",10,130,50,25)
$cancel = GuiCtrlCreateButton("Cancel",60,130,50,25)

GUISetState()
Do
    $msg = GUIGetMsg()

    If $msg = $go Then
        DriveMapAdd ("K:","//path/to/share",1,$username,$password)
    EndIf

    If $msg = $cancel Then
        Exit
    EndIf

Until GUIGetMsg() = $GUI_EVENT_CLOSE
GuiDelete($gui)

相关内容