<![CDATA[
http://msdn.microsoft.com/library/en-us/script56/html/jsFSOTutor.asp
If you want to register a DLL without having a message appear confirming the operation,
use regsvr32 /s mydll.dll. Alternatively, you can use regsvr32 to unregister a component
by using the /u flag (e.g., regsvr32 /u mydll.dll).
Option Explicit
Dim WshObj
' Object for the Run-Method
Set WshObj = Wscript.CreateObject("WScript.Shell")
WshObj.Run "RunDll32.exe Shell32.dll,OpenAs_RunDLL", _
1, true ' launch dialog
' End
Sub WriteFile (strFile, strLine, mode)
Dim oFSO
Dim oFile
Set oFSO =CreateObject("Scripting.FileSystemObject")
'*** Open a file for appending; create a new file if it doesn't exist
Set oFile = oFSO.OpenTextFile(strFile, mode, True)
oFile.WriteLine(strLine)
oFile.Close
Set oFSO = Nothing
Set oFile = Nothing
End Sub
functions thisargs() {
var args = WScript.arguments
for(var i=0;i<args.length;i++)
WScript.Echo(args(i))
}
// JScript.
var Word, Doc, Uncorrected, Corrected;
var wdDialogToolsSpellingAndGrammar = 828;
var wdDoNotSaveChanges = 0;
Uncorrected = "Helllo world!";
Word = new ActiveXObject("Word.Application");
Doc = Word.Documents.Add();
Word.Selection.Text = Uncorrected;
Word.Dialogs(wdDialogToolsSpellingAndGrammar).Show();
if (Word.Selection.Text.length != 1)
Corrected = Word.Selection.Text;
else
Corrected = Uncorrected;
Doc.Close(wdDoNotSaveChanges);
Word.Quit();
Tristates Statics [openastextfile(?,tristate)]
SYSTEM=-2
UNICODE=-1
ASCII=0
The following moniker identifies the default namespace on the computer myServer.
An SWbemServices object is returned.
WinMgmts://myServer
The following moniker identifies the root\cimv2 namespace on the myServer computer.
An SWbemServices object is returned.
WinMgmts://myServer/root/cimv2
The following moniker identifies the root\cimv2 namespace on the local server.
An SWbemServices object is returned.
WinMgmts:root/cimv2
]]>