2011年 VBScript相关_wscript environment("user")-优快云博客

vbs 更改环境变量

微软手册只提了一个remove，没提增加，原来是这样。

Set WshShell = Wscript.CreateObject("Wscript.Shell")
WshShell.Environment("user").Item("path")="c:\ruby"

WshShell.Environment("USER").Remove("LAST_LOGIN_DATE")

Set objAD = CreateObject("ADSystemInfo")
Wscript.Echo "Your Computer Name is " & objAD.ComputerName
Wscript.Echo "Your Username is " & objAD.UserName
WScript.Echo("Hello")
WScript.Interactive = false
WScript.Echo("This wont display")
WScript.Interactive = true
WScript.Echo("This will display")

------------------------------------------------------------------------------

http://topic.youkuaiyun.com/u/20090922/10/752ac103-4796-4621-b327-5940d2c5c581.html

vbscript查询SQL Server 2005 问题

我不是在网页中调用 vbscript
而是在一个PLC的组态软件中使用

用下面代码
set conn=server.createobject("adodb.connection")
conn.open "provider=sqloledb;server=XYQ\XYQ;database=SanCe;uid=sa;pwd=1234;"
set rs = conn.execute("select Run from GWRun Where GW='A1'")
do while not rs.eof
msgbox rs("Run")
rs.movenext
loop
rs.close
conn.close
set conn=Nothing

报错，错误信息：Microsoft VBScript 运行时错误: 缺少对象: 'server'
看出来 server 没定义，可是这个 server 怎么定义呢？

如果是在VB里,是用:CreateObject("Adodb.Connection")

如果是在ASP里:Server.CreateObject("Adodb.Connection")

区别就是VB里不存在Server对象,直接Createobject就可以了~~!

-------------------------------------------------

http://social.msdn.microsoft.com/Forums/zh-CN/vbasiczhchs/thread/c4559469-dd7d-4914-824c-ad73c604878f

VBS里使用windows帐号连接SQL server数据库

我用ado连接sql server数据库，使用下面的连接没有问题。

dim DB
set DB=CreateObject("ADODB.Connection")
DB.Open "Database=test;uid=sa;pwd=123;Driver={SQL Server};server=localhost"

但我换成windows帐号登录就提示NT AUTHORITY\SYSTEM用户登录失败。换了域帐号也是登录失败。

dim DB
set DB=CreateObject("ADODB.Connection")
DB.Open "Database=test;uid=NT AUTHORITY\SYSTEM;pwd=;Driver={SQL Server};server=localhost"

确认过了NT AUTHORITY\SYSTEM和域帐号都可以登录sql server 而且有足够的权限。

在网上也没找到相关的信息。我感觉是不是我的这个链接方式不支持os的帐号登录。或者是需要加别的参数。

有哪位大虾知道的指点一下。

谢谢

-----------------

你好

或者你可以嘗試以下的ConnectionString

Data Source =localhost ; Initial Catalog = test; Integrated Security = SSPI ;

Please correct me if my concept is wrong

-----------------

我使用下面的连接字符串后成功了。

dim adoConn
set adoConn=CreateObject("ADODB.Connection")
dim sConn
sConn = "Provider=SQLOLEDB;Data Source=(local);" & _
"Initial Catalog=test;Integrated Security=SSPI;"
adoConn.ConnectionString = sConn
adoConn.Open

---------------------------

你的连接字符串有问题,你使用的uid=NT AUTHORITY\SYSTEM;pwd= 这种方式是sql 验证的连接方式.

如果想使用windows验证方式,需要使用如下Data Source =localhost; Initial Catalog =test; Integrated Security = SSPI

这个字符串的方式会使用当前上下文的windows身份(也就是你当前登录windows的账号)去连接sqlserver,你无法指定特定的windows账号或者相应的密码.

当然,你也可以使用"模拟账号"的方式去登录, IIS也提供了相关的登录方式.

--------------------------------------------------------------------------------------------------------

在VBSCRIPT中可以用chr()和asc()函数转换ASCII码的字符和数值

在VBSCRIPT中可以用chr()和asc()函数转换ASCII码的字符和数值，请问在JAVASCRIPT中有无类似的函数可用？请给个例子，谢谢

-----------------

var s="a";alert(s.charCodeAt(0));alert(String.fromCharCode(97));

-----------------------------------------------------