Visual Basic CMD脚本
问题描述:
我在使用visual basic时遇到了麻烦。当按下按钮时,它的运行脚本会运行一个cmd脚本,但目前它没有做任何事情?我想尝试在某些部分的文本框中输入值,但如果有人可以指出我会在哪里出错,那会很棒!Visual Basic CMD脚本
AAAAA =名字 BBBBB =姓
更新的代码:
Private Sub Button_Click(sender As Object, e As EventArgs) Handles Button.Click
Dim Command As String
'creating home diretorys'
Command = "mkdir \\bw-file-01\student$\EY{year}\APPTesting"
Command = Replace(Command, "{year}", Year.Text)
MsgBox("Direcotry has been made in" & Year.Text & "file path")
'setting up account'
Command = "dsadd user ""cn={fstname}.{lstname},ou=New_users,ou=students,ou=users," & _
"ou=Broadwater School,dc=broadwater,dc=surrey,dc=sch,dc=uk"" " & _
"-disabled yes -pwd password -mustchpwd yes -desc {desr} -homedirectory {filepath} -homedrive {homedrive} -email {fstname}.{lstname}@broadwater.surrey.sch.uk -upn ""{fstname}{lstname}@broadwater.surrey.sch.uk"" " & _
"-fn ""{fstname}"" -ln ""{lstname}"" -Display ""{fstname} {lstname}"""
Command = Replace(Command, "{fstname}", Firstnamebox.Text)
Command = Replace(Command, "{lstname}", Surnamebox.Text)
Command = Replace(Command, "{desr}", desr.Text)
Command = Replace(Command, "{year}", Year.Text)
Command = Replace(Command, "{homedrive}", "H:")
Command = Replace(Command, "{filepath}", "\\bw-file-01\student$\EY2014\APPTesting")
MsgBox("Account has been made in the" & Year.Text & "group")
Shell("cmd /c" & Command, 1, True)
End Sub
答
Command = "dsadd user ""cn=AAABBBB,ou=New_users,ou=students,ou=users," & _
"ou=Broadwater School,dc=broadwater,dc=surrey,dc=sch,dc=uk"" " & _
"-disabled yes -pwd changeme -mustchpwd yes -upn ""AAABBBB"" " & _
"-fn ""AAAAAAAA"" -ln ""BBBBBBBB"" -Display ""AAAAAAAA BBBBBBBB"""
编辑:如果你想替换特定的文本命令的部分,然后我喜欢令牌的通过长串连接替代方法。
E.g.
Command = "dsadd user ""cn={foo},ou=New_users,ou=students,ou=users," & _
"ou=Broadwater School,dc=broadwater,dc=surrey,dc=sch,dc=uk"" " & _
"-disabled yes -pwd changeme -mustchpwd yes -upn ""{bar}"" " & _
"-fn ""AAAAAAAA"" -ln ""BBBBBBBB"" -Display ""AAAAAAAA BBBBBBBB"""
Command = Replace(Command, "{foo}","something")
Command = Replace(Command, "{bar}","somethingelse")
非常感谢!我调整它做一些额外的事情,但当我试图映射驱动器到它它没有做任何事,只是崩溃了...任何想法,我即将出错? – James 2014-10-09 13:29:03
尝试引用文件路径。 – 2014-10-09 15:50:12
我尝试过引用文件路径,它不起作用 – James 2014-10-12 09:32:16