VBScript錯誤80040E14 FROM子句中的語法錯誤

Question

我試圖使用我在互聯網上找到的腳本，允許在Active Directory中使用VBScript和CSV文件批量創建新用戶帳戶。我沒有使用CSVDE b/c這個腳本也會創建密碼。運行代碼時我一直遇到這個錯誤，我找不到它。誰能幫忙？

'********************************************************************* 
' Script: createUsersFromCSV.vbs          * 
' Creates new user accounts in Active Directory from a CSV file.  * 
' Input: CSV file with layout logonname,firstname,lastname,password * 
'                 * 
'********************************************************************* 

Option Explicit 

Dim sCSVFileLocation 
Dim sCSVFile 
Dim oConnection 
Dim oRecordSet 
Dim oNewUser 

' Variables needed for LDAP connection 
Dim oRootLDAP 
Dim oContainer 

' Holding variables for information import from CSV file 
Dim sLogon 
Dim sFirstName 
Dim sLastName 
Dim sDisplayName 
Dim sPassword 
Dim nPwdLastSet 
Dim nUserAccountControl ' Used to enable the account 
Dim sDomain 
Dim sCompany 
Dim sPhone 
Dim sEmail 
Dim sDescription 

Dim NumChar, Count, strRdm, intRdm 
Dim fso, f, fso1, f1 

'* Modify this to match your company's AD domain 
sDomain="mydomain.local" 

'* Input file location 
sCSVFileLocation = "C:\Documents and Settings\Administrator\Desktop\" 'KEEP TRAILING SLASH! 

'* Full path to input file 
sCSVFile = sCSVFileLocation&"newusers.csv" 

' Commands used to open the CSV file and select all of the records 
set oConnection = createobject("adodb.connection") 
set oRecordSet = createobject("adodb.recordset") 
oConnection.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & _ 
sCSVFileLocation & ";Extended Properties=""text;HDR=NO;FMT=Delimited""" 
oRecordSet.open "SELECT * FROM " & sCSVFile ,oConnection 

' Create a connection to an Active Directory OU container. 
Set oRootLDAP = GetObject("LDAP://rootDSE") 
Set oContainer = GetObject("LDAP://ou=Test," & _ 
oRootLDAP.Get("defaultNamingContext")) 

on error resume next 

do until oRecordSet.EOF ' Reads the values (cells) in the sInputFile file. 



    ' --------- Start creating user account 
    ' Read variable information from the CSV file 
    ' and build everything needed to create the account 
    sLogon = oRecordSet.Fields.Item(0).value 
    sFirstName = oRecordSet.Fields.Item(1).value 
    sLastName = oRecordSet.Fields.Item(2).value 
    sDisplayName = sFirstName&" "&sLastName 
    sPassword = oRecordSet.Fields.Item(3).value 

    ' Build the User account 
Set oNewUser = oContainer.Create("User","cn="&sFirstName&" "&sLastName) 
oNewUser.put "sAMAccountName",lcase(sLogon) 
oNewUser.put "givenName",sFirstName 
oNewUser.put "sn",sLastName 
oNewUser.put "UserPrincipalName",lcase(SLogon)&"@"&sDomain 
oNewUser.put "DisplayName",sDisplayName 
oNewUser.put "name",lcase(sLogon) 

' Write this information into Active Directory so we can 
' modify the password and enable the user account 
oNewUser.SetInfo 

' Change the users password 
oNewUser.SetPassword sPassword 
oNewUser.Put "pwdLastSet", 0 

' Enable the user account 
oNewUser.Put "userAccountControl", 512 
oNewUser.SetInfo 


objFile.Close 

'******************* 
oRecordset.MoveNext 
Loop 
'******************* 
' Used only for debugging 
'if err.number = -2147019886 then 
' msgbox "User logon " & sLogon & "already exists" 
'End If 
' --------- End of user account creation 

這裏就是錯誤的現象發生，行51字符1：

oRecordSet.open "SELECT * FROM " & sCSVFile ,oConnection 

Answer 1

也許sCSVFile包含特殊字符，因此必須轉義這樣的：

oRecordSet.open "SELECT * FROM [" & sCSVFile & "]", oConnection 

我希望它幫助。