1 Correct answer
Oh sorry, I forgot to mention: you have to double the backslashes in the vbs string.
This code works:
...main();
function main() {
var vbs = 'strComputer = "."\r';
vbs += 'Set objWMIService = GetObject("winmgmts:\\\\" & strComputer & "\\root\\cimv2")\r';
vbs += 'Set IPConfigSet = objWMIService.ExecQuery ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")\r';
vbs += 'Set objWMI = GetObject("winmgmts:\\\\" & strComputer & "\\root\\WMI")\r';
vbs += 'Set AdaptInfo = o
17
Replies
Jake
How are you doing?
Sorry, but it didn´t work. 😞
Take a look at the above image and you will see the early error on the second line.
Do you have any suggestions?
Thanks
PS.: I did the same thing with an AppleScript and it worked fine.
Place both scripts in the same folder, like so:
JavaScript
var activeScript = GetActiveScript();
app.doScript(File(activeScript.path+'/GetMyAdapter.vbs'), ScriptLanguage.visualBasic);
var myAdaptName = app.scriptArgs.getValue("myAdaptNameLink");
var myAdaptSpeed = app.scriptArgs.getValue("myAdaptSpeed");
var myAdapt = app.scriptArgs.getValue("myAdapt");
var myMAC = app.scriptArgs.getValue("myMAC");
alert ("myAdaptName: " + myAdaptName + " | myAdaptSpeed: " + myAdaptSpeed + " | myAdapt: " + myAdapt + "| myMAC: " + myMAC);
function GetActiveScript() {
try {
return app.activeScript;
}
catch(err) {
return new File(err.fileName);
}
}
VBS
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
Set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\WMI")
Set AdaptInfo = objWMI.InstancesOf("MSNdis_LinkSpeed WHERE Active = True",48)
For Each adaptInfo in AdaptInfo
AdaptNameLink = AdaptNameLink & adaptInfo.InstanceName & vbNewLine
AdaptSpeed = AdaptSpeed & adaptInfo.NdisLinkSpeed & vbNewLine
Next
For Each IPConfig in IPConfigSet
If Not IsNull(IPConfig.Description) Then
AdaptName = AdaptName + IPConfig.Description & vbNewLine
End If
If Not IsNull(IPConfig.MACAddress) Then
MACadd = MACadd + IPConfig.MACAddress & vbNewLine
End If
Next
app.scriptArgs.SetValue "myAdaptNameLink", AdaptNameLink
app.scriptArgs.SetValue "myAdaptSpeed", AdaptSpeed
app.scriptArgs.SetValue "myAdapt", AdaptName
app.scriptArgs.SetValue "myMAC", MACadd
I added the GetActiveScript function so you could run it from ESTK as well.
The result
You can combine both scripts into one jsx-file. In this case VBS should be a string. Use two pairs of quotes -- double and single -- there to include js variables into vbs. I use single outside and double inside.
See here an example of how to do this (Function for Windows).
— Kas
Kas
When I try to execute the VBS as a string in the JS, it not works.
When I do it separated, it works fine.
I would like to convert it in a binary file, and the file as a VBS, I can´t.
The AppleScript made using the same idea works fine on Mac.
Oh sorry, I forgot to mention: you have to double the backslashes in the vbs string.
This code works:
main();
function main() {
var vbs = 'strComputer = "."\r';
vbs += 'Set objWMIService = GetObject("winmgmts:\\\\" & strComputer & "\\root\\cimv2")\r';
vbs += 'Set IPConfigSet = objWMIService.ExecQuery ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")\r';
vbs += 'Set objWMI = GetObject("winmgmts:\\\\" & strComputer & "\\root\\WMI")\r';
vbs += 'Set AdaptInfo = objWMI.InstancesOf("MSNdis_LinkSpeed WHERE Active = True",48)\r';
vbs += 'For Each adaptInfo in AdaptInfo\r';
vbs += 'AdaptNameLink = AdaptNameLink & adaptInfo.InstanceName & vbNewLine\r';
vbs += 'AdaptSpeed = AdaptSpeed & adaptInfo.NdisLinkSpeed & vbNewLine\r';
vbs += 'Next\r';
vbs += 'For Each IPConfig in IPConfigSet\r';
vbs += 'If Not IsNull(IPConfig.Description) Then\r';
vbs += 'AdaptName = AdaptName + IPConfig.Description & vbNewLine\r';
vbs += 'End If\r';
vbs += 'If Not IsNull(IPConfig.MACAddress) Then\r';
vbs += 'MACadd = MACadd + IPConfig.MACAddress & vbNewLine\r';
vbs += 'End If\r';
vbs += 'Next\r';
vbs += 'app.scriptArgs.SetValue "myAdaptNameLink", AdaptNameLink\r';
vbs += 'app.scriptArgs.SetValue "myAdaptSpeed", AdaptSpeed\r';
vbs += 'app.scriptArgs.SetValue "myAdapt", AdaptName\r';
vbs += 'app.scriptArgs.SetValue "myMAC", MACadd\r';
app.doScript(vbs, ScriptLanguage.VISUAL_BASIC, undefined, UndoModes.FAST_ENTIRE_SCRIPT);
}
var myAdaptName = app.scriptArgs.getValue("myAdaptNameLink");
var myAdaptSpeed = app.scriptArgs.getValue("myAdaptSpeed");
var myAdapt = app.scriptArgs.getValue("myAdapt");
var myMAC = app.scriptArgs.getValue("myMAC");
alert("myAdaptName: " + myAdaptName + " | myAdaptSpeed: " + myAdaptSpeed + " | myAdapt: " + myAdapt + "| myMAC: " + myMAC);
— Kas
I posted it here on my site -- in the tips & tricks section -- for the future generations. 
— Kas
How are you doing?
I'm fine, thanks. And you?
Can you help me, please?
I know nothing at all about the Windows Script Host thing, but after comparing your script with another working example found here on the forum, the second line stroke my eye.
Try to change
vbs += 'Set WshShell = WScript.CreateObject("WScript.Shell")\r';
to
vbs += 'Set WshShell = CreateObject("WScript.Shell")\r';
This code works for me:
main()
function main() {
var vbs = 'URL ="http://viniciusamaral.net"\r';
vbs += 'Set WshShell = CreateObject("WScript.Shell")\r';
vbs += 'Set http = CreateObject("Microsoft.XmlHttp")\r';
vbs += 'On Error Resume Next\r';
vbs += 'http.open "GET", URL, False\r';
vbs += 'http.send ""\r';
vbs += 'if err.Number = 0 Then\r';
vbs += 'MsgBox(http.responseText)\r';
vbs += 'Else\r';
vbs += 'MsgBox("error " & Err.Number & ": " & Err.Description)\r';
vbs += 'End If\r';
vbs += 'set WshShell = Nothing\r';
vbs += 'Set http = Nothing';
try {
app.doScript(vbs, ScriptLanguage.VISUAL_BASIC, undefined, UndoModes.FAST_ENTIRE_SCRIPT);
}
catch(err) {
alert(err.message + ", line: " + err.line);
}
}
I don't have the slightest idea of what the code does, but on my side it results in the following pop-up window:
Hope it helps!
— Kas
Hi Vinícius,
This is fantastic! 
Getting the data using the 'run WshShell via VBS' approach takes nothing in comparison with getting it via the built-in and super-slow Socket object. According to my rough estimates: the latter is, at least, 5 times slower:
Below is the code I used for the test. Both functions perform the same task: read the front page on my site and output the html-contents to console.
Main();
function Main() {
var webAddress = "kasyan.ho.com.ua";
var startTime = new Date();
GetDataFromSocket(webAddress);
var endTime = new Date();
var duration_1 = GetDuration(startTime, endTime);
if (File.fs == "Windows") {
startTime = new Date();
GetDataFromWshShell(webAddress);
endTime = new Date();
var duration_2 = GetDuration(startTime, endTime);
}
else { // Mac
// The code to be written in AppleScript
}
alert("Time elapsed:" + "\rSocket - " + duration_1 + "\rWshShell - " + duration_2, "Finished");
}
function GetDataFromSocket(webAddress) {
var conn = new Socket;
var host = webAddress;
var cmd = "GET /index.html HTTP/1.1\r\nHost:"+host+"\r\n\r\n";
var reply='';
conn.timeout = 100;
if (conn.open (host +':80', 'BINARY')) {
conn.write (cmd);
while (conn.connected && ! conn.eof) {
reply += conn.read(1024) + "\n";
}
conn.close();
$.writeln("Output from Socket:\n" + reply);
}
}
function GetDataFromWshShell(webAddress) {
var vbs = 'Dim str\r';
vbs += 'URL = "http://' + webAddress + '"\r';
vbs += 'Set WshShell = CreateObject("WScript.Shell")\r';
vbs += 'Set http = CreateObject("Microsoft.XmlHttp")\r';
vbs += 'On Error Resume Next\r';
vbs += 'http.open "GET", URL, False\r';
vbs += 'http.send ""\r';
vbs += 'if err.Number = 0 Then\r';
vbs += 'str = http.responseText\r';
vbs += 'Else\r';
vbs += 'MsgBox("error " & Err.Number & ": " & Err.Description)\r';
vbs += 'End If\r';
vbs += 'set WshShell = Nothing\r';
vbs += 'Set http = Nothing\r';
vbs += 'Set objInDesign = CreateObject("InDesign.Application")\r';
vbs += 'objInDesign.ScriptArgs.SetValue "WshShellResponse", str';
try {
app.doScript(vbs, ScriptLanguage.VISUAL_BASIC, undefined, UndoModes.FAST_ENTIRE_SCRIPT);
}
catch(err) {
alert(err.message + ", line: " + err.line);
}
var str = app.scriptArgs.getValue("WshShellResponse");
app.scriptArgs.clear();
$.writeln("Output from WshShell:\n" + str);
}
function GetDuration(startTime, endTime) {
var str;
var duration = (endTime - startTime)/1000;
duration = Math.round(duration);
if (duration >= 60) {
var minutes = Math.floor(duration/60);
var seconds = duration - (minutes * 60);
str = minutes + ((minutes != 1) ? " minutes, " : " minute, ") + seconds + ((seconds != 1) ? " seconds" : " second");
if (minutes >= 60) {
var hours = Math.floor(minutes/60);
minutes = minutes - (hours * 60);
str = hours + ((hours != 1) ? " hours, " : " hour, ") + minutes + ((minutes != 1) ? " minutes, " : " minute, ") + seconds + ((seconds != 1) ? " seconds" : " second");
}
}
else {
str = duration + ((duration != 1) ? " seconds" : " second");
}
return str;
}
Vinícius, could you post the code you use in AppleScript? I'd like to test it on Mac when I get to work on Wednesday.
My fingers are itching to write a post on my site about this new discovery for the future generations!
Also, I found your site. Hope some day you will write about the project you're working on. I wonder what you have at start and what you get after running the script.
Thank you for your detailed explanation! We both learn from each other here on the forum.
Regards,
Kas
Hi Kasyan
How are you doing?
First of all, sorry for the delay in my answer.
I´m working hard now.
This is the AppleScript code to get a HTML page contents.
var myAppleScript = 'do shell script "curl http://www.viniciusamaral.net/"';
var myCode = app.doScript(myAppleScript, ScriptLanguage.applescriptLanguage);
See, it is so simple!!!
The life in Mac is easier.
Thanks again for your help.
AdChoices