VBscript結果到PHP變量

我試圖將Vb腳本的結果發送到PHP變量，代碼獲取AD中的CN名稱。VBscript結果到PHP變量

我的VB代碼低於：

Set objADSysInfo = CreateObject("ADSystemInfo") 
strUser = objADSysInfo.UserName 
Set objUser = GetObject("LDAP://" & strUser) 
objUser.CN

我如何代碼發送到我的PHP文件作爲一個變量一旦網頁加載？

來源

2014-07-08 Dante

您可以使用ADO記錄集作爲一個包裝

Set objADSysInfo = CreateObject("ADSystemInfo") 
strUser = objADSysInfo.UserName 
Set objUser = GetObject("LDAP://" & strUser) 
objUser.CN 
ret = send2PHP("yourpage.php?data=", strUser) 


function send2PHP(phpURL, data) 
    on error resume next      ' if your php page returns a valid recorset you can omit 'on error 
    set rsPHP = wscript.createobject("adodb.recordset") 
'here you must serialize "data" to be a valid uri value (not done here)     ' 
    rsPHP.open phpURL & data ,,,, 256   ' this statment (and the following ones)  ' 
    if not rsPHP.eof then send2PHP = rsPHP(0) ' fails if you do not return a valid recordset ' 
    rsPHP.close         ' form php script, but at least you    ' 
    set rsPHP = nothing       ' have the "data" within the php anyway   ' 
end function

來源

2014-07-08 11:39:55

VBscript結果到PHP變量

回答

相關問題