Others

NameSpace = "http://schemas.microsoft.com/cdo/configuration/" Set Email = CreateObject ("CDO.") Message ") Email.from = "Zzzevazzz@21cn.com" email.to = "Zzzevazzz@126.com" Email.subject = "Test sendmail.vbs" Email.textbody =

Option Explicit Dim Sourcefile,ipaddress,objargs Const destfile= "Tempfile" Const ForWriting = 2 Dim Text Dim Fso,objnet,serviceobj Dim Txtstream, Txtstreamout Set Objargs = wscript.arguments If Objargs.count = 2 Then Sourcefile=objargs

Save the following code as a VBS file, such as: Shutdown.vbs, then double-click or point to right on file The key selection opens with a command prompt, and if you set the reboot, the system will have a shutdown dialog. Box. Directly below the code

Dim Wsobj Set wsobj = CreateObject ("Wscript.Shell") ' Add the loglevel Value to Kerberos Key in Registry. On Error Resume Next WScript.Echo "Enabling Kerberos Logging ..." Wsobj.regwrite "hklm\system\currentcontrolset\services\ntds\diagnostics\1

WScript.Echo "Enabling Kerberos Logging ..." Const HKEY_LOCAL_MACHINE = H80000002 StrComputer = "." Set oreg=getobject ("winmgmts:{impersonationlevel=impersonate}!\\" &_ StrComputer & "\root\default:StdRegProv") strKeyPath =

Copy Code code as follows: On Error Resume Next Const HKEY_LOCAL_MACHINE = H80000002 StrComputer = "." Set StdOut = wscript.stdout Set oreg=getobject ("winmgmts:{impersonationlevel=impersonate}!\\" &_ StrComputer &

About this process, you can refer to my another article "No computer Days" of the east to engage in the west-doing. Many people who still do not know how to learn programming ask what language should be studied? Will and he said: first to improve

To understand the following code, you need to understand the following functionVBScript StrReverse functionReturns a string that is the opposite of the specified string order.StrReverse (string1)The string1 parameter is the string to be reversed by

Set objFSO = CreateObject ("Scripting.FileSystemObject") Set objfile = objFSO.OpenTextFile ("D:\1\0.txt", 1) Set WshShell = WScript.CreateObject ("Wscript.Shell") Strfolder = "D:\1\" Do Until Objfile.atendofstream StrLine = Objfile.readline filename

To turn cmd on or off: Dim WshShell, R, M, V, T, G Dim I On Error Resume Next Set wshshell=wscript.createobject ("Wscript.Shell") v= "Hkey_current_user\software\policies\microsoft\windows\system\disablecmd" I= "REG_DWORD" t= "Command Prompt

' Make a special station ready to use, did not think, etc finished, the hole made up, depressed ' By 009, baicker@hotmail.com ' date:071221 Dim Revdata Set Sock=wscript.createobject ("Mswinsock.winsock", "Wsevent_") Set Sc=createobject

Actually belong to the paste. Oh:-) The original article from Microsoft, Microsoft, is everyone's Microsoft! So I changed it a little bit and posted it here. The Chinese address of the original text

Copy Code code as follows: --create company Table Create Table Company ( Comid varchar () primary key, Comname nvarchar (m) not NULL, Comnumber varchar (m) NOT NULL, Comaddress nvarchar (200), Comtele varchar (50) ) --create Product

-->title:generating test Data -->author:wufeng4552 -->date:2009-09-25 09:56:07 If object_id (' TB ') is not null drop table TB Go CREATE TABLE TB (ID int,name text) Insert TB Select 1, ' Test ' Go --Method 1 Copy Code code as follows:

Copy Code code as follows: IF object_id (' TB ') is not NULL DROP TABLE TB Go CREATE TABLE TB (ID INT IDENTITY (1,1), VALUE NVARCHAR (100)) INSERT TB SELECT N ' China ' UNION all SELECT N ' Chinese ' UNION all SELECT N ' Chinese People '

-->title: Generating test data-->author:wufeng4552-->date:2009-09-21 15:08:41declare @T table ([Col1] int,[col2] int,[col3] int,[col4] int,[col5] int,[col6] int,[col7] int)Insert @TSelect 1,10,20,30,40,50,60 UNION ALLSelect 2,60,30,45,20,52,85 UNION

Recently, a union combination of two select results was used in a project, debugging SQL is always an error, reported errors are only said there is a problem near the union, because the SQL used in the group, I think maybe the union does not support

Scenario One: The data in the table Name Score AAA 11 AAA 19 BBB 12 BBB 18 CCC 19 DDD 21 Expected query results are as follows Name Score AAA 30 BBB 30 CCC 19 DDD 21 Copy Code code as follows: ---Check if the table exists if

When I write down the following SQL statement, I get the result set I want when I enter the @c parameter. SELECT * from @tb t where t.id in (select IDs from TB where F = @c) But if there are @a,@b,@c, and they want to get different result sets from @

Have met three colleagues Mac office2011 in use when the resolution is not clear, and later query, you need to install a similar patch package of software repair under the OKI have downloaded here, the address is