@@@@@@@@@@@ 作成服务开机启动,不会执行,但直接运行程序一切正常???
我的.VBS主要代码如下:涉及到局域网文件的拷贝;在服务器登陆后,执行一样问题也没有;但后来我用VBS2EXE 将其生成EXE文件;
并用instsrv/srvany.exe 工具生成一个服务;开机启动后服务也一样可以启动;但就是文件拷贝不成功;自己多次测试,将输出些入一个文本,好象:net.MapNetworkDrive Path, source_path,False, "xcopy ", "xcopy " 映射时总是失败哦????
请高手的些帮帮忙, 十万火急啊, 我需要在不登陆的情况,机器开机器后自动执行我的应用:局域网文件的拷贝功能!
Path= "X: "
Set fso = CreateObject( "Scripting.FileSystemObject ")
Set net = CreateObject( "WScript.Network ")
If Not fso.DriveExists(fso.GetDriveName(Path)) Then
net.MapNetworkDrive Path, source_path,False, "xcopy ", "xcopy "
End If
Set file = fso.GetFile(Path& "\barcodeprinter.mdb ")
err.clear
On Error Resume Next '出错不显示,执行下一条
file.Copy(target_file)
If Err.Number=0 Then
txtfile.writeline( " ---> xcopy成功!!!! ----- ")
else
txtfile.writeline( " ---> xcopy不成功!!!! ----- ")
end if