根据中提示没有在该机执行windows脚本宿主的权限怎么解决?针对这个问题,这篇文章详细介绍了相对应的分析和解答,希望可以帮助更多想解决这个问题的小伙伴找到更简单易行的方法。
以管理员身份运行程序的根据命令
1,检查系统是否禁止使用了脚本运行,即打开“网络选项”的“安全“选项卡里“自定义级别”,看看“ActiveX空件及服务“禁用的选项。
2,运行regsvr32 scrrun。dll,即打开运行输入CMD,输入regsvr32 scrrun。dll,再回车。
3,最关键的一步,即看看注册表里的这个位置HKEY_LOCAL_MACHINE \微软软件\ \ Windows脚本主机\设置在右边的窗口中是不是有个名为启用字的键值,有的话把它删除或者把值该为1即可。
4,重新运行根据文件即将正常。
<强>根据批量导入图片功能
& # 39; * * * * * * * * * * * * * * * * * *常量* * * * * * * * * * * * * * * *
& # 39;- - - - - - - - - - CuRsorTypeEnum值
Const adOpenForwardOnly=0
Const adOpenKeyset=1
Const adOpenDynamic=2
Const adOpenStatic=3
& # 39;- - - - - - - - - - LockTypeEnum值
Const adLockReadOnly=1
Const adLockPessimistic=2
Const adLockOptimistic=3
Const adLockBatchOptimistic=4
& # 39;- - - - - - - - - - CuRsorLocationEnum值
Const adUseServer=2
Const adUseClient=3
& # 39;- - - - - - - - - -自定义值
Const cuDSN=皌est"
Const cuUsername=皊a"
Const cuPassword=?“
& # 39;* * * * * * * * * * * * * * *主要子* * * * * * * * * * * * * * * * * *
调用ImageExport ()
& # 39;* * * * * * * * * * * * * * *定义函数* * * * * * * * * * *
ImageExport()函数
& # 39;错误的简历
sSQL暗,Rs,康涅狄格州,sfzRs sFilePath sImgFile, xml
昏暗的节选,无线光通信,f, oShell sErrFile, sSucFile, iErr iSuc
设置无线光通信=CreateObject (“Scripting.FileSystemObject")
& # 39;创建流对象
设置后者=CreateObject (“Adodb.Stream")
Ados.Mode=3
Ados.Type=1
设置康涅狄格州=CreateObject (“adodb.Connection")
Conn.CuRsorLocation=adUseClient
调用Init_Connection(康涅狄格州)
设置Rs=CreateObject (“adodb.recordset")
设置sfzRs=CreateObject (“adodb.recordset")
sFilePath=WScript.ScriptFullName
sFilePath=左(sFilePath len (sFilePath) len (WScript.ScriptName))
ssql=把≡馬YBH,照片从TP_ZPXX (RYBH(选择不同RYBH从TP_BMKM (KSZQBH=18)和(JFBZ=1))),
sfzRs。打开sSQL,康涅狄格州,adOpenForwardOnly
iSuc=sfzRs.RecordCount
& # 39;从数据库获取SFZH和导入图像
虽然不是sfzRs.EOF
sImgFile=sFilePath和;sfzRs (“RYBH"),“.jpg"
Ados.Open
后者。写(sfzRs (“PHOTO") .GetChunk (4500000))
后者。SaveToFile sImgFile 1
sfzRs.MoveNext
Ados.Close
行
sfzRs.Close
Conn.Close
& # 39;释放对象
Rs=什么:集合sfzRs=什么:康涅狄格州=什么:集合两者=对话框iSuc,“张照片导出成功“,64年,“照片导出“
& # 39;放弃
WScript.Quit
结束函数
函数Init_Connection(康涅狄格州)> & # 39;* * * * * * * * * * * * * * * * * *常量* * * * * * * * * * * * * * * *
& # 39;- - - - - - - - - - CuRsorTypeEnum值
Const adOpenForwardOnly=0
Const adOpenKeyset=1
Const adOpenDynamic=2
Const adOpenStatic=3
& # 39;- - - - - - - - - - LockTypeEnum值
Const adLockReadOnly=1
Const adLockPessimistic=2
Const adLockOptimistic=3
Const adLockBatchOptimistic=4
& # 39;- - - - - - - - - - CuRsorLocationEnum值
Const adUseServer=2
Const adUseClient=3
& # 39;- - - - - - - - - -自定义值
Const cuDSN=皌est"
Const cuUsername=皊a"
Const cuPassword=?“
& # 39;* * * * * * * * * * * * * * *主要子* * * * * * * * * * * * * * * * * *
调用ImageExport ()
& # 39;* * * * * * * * * * * * * * *定义函数* * * * * * * * * * *
ImageExport()函数
& # 39;错误的简历
暗淡的sSQL Rs,康涅狄格州,sfzRs xml
昏暗的节选,无线光通信,f, oShell sErrFile, sSucFile, iErr, iSuc & # 39; iSuc文件总数
暗淡的PicPath PhysicPath DelCount & # 39;删除文件数
设置无线光通信=CreateObject (“Scripting.FileSystemObject")
& # 39;创建流对象
设置后者=CreateObject (“Adodb.Stream")
Ados.Mode=3
Ados.Type=1
设置康涅狄格州=CreateObject (“adodb.Connection")
Conn.CuRsorLocation=adUseClient
调用Init_Connection(康涅狄格州)
设置Rs=CreateObject (“adodb.recordset")
设置sfzRs=CreateObject (“adodb.recordset")
sSQL=把≡駍Path sFile ScanFile"
sfzRs。打开sSQL,康涅狄格州,adOpenForwardOnly
iSuc=sfzRs.RecordCount
& # 39;从数据库获取SFZH和导入图像
虽然不是sfzRs.EOF
PhysicPath=癊: \根据删除照片小程序,& # 39;物理路径
Ados.Open
PicPath=PhysicPath和;sfzRs (“sPath")和“\”;,sfzRs (“sFile")
如果(fso.FileExists (PicPath))
fso.DeleteFile (PicPath)
DelCount=DelCount + 1
如果
sfzRs.MoveNext
Ados.Close
如果iSuc-DelCount=iSuc
DelCount=0
如果
行
sfzRs.Close
Conn.Close
& # 39;释放对象
Rs=什么:集合sfzRs=什么:设置康涅狄格州=什么:节选设置=什么:设置无线光通信=对话框“共需要删除“;,iSuc,“张照片,其中“,DelCount,“张照片删除成功,“,iSuc-DelCount,“张照片未找到!“,64年,“照片删除“;
& # 39;放弃
WScript.Quit
结束函数
函数Init_Connection(康涅狄格州)>关于于六月中提示没有在该机执行windows脚本宿主的权限怎么解决问题的解答就分享到这里了,希望以上内容可以对大家有一定的帮助,如果你还有很多疑惑没有解开,可以关注行业资讯频道了解更多相关知识。
