Bellen naar telefoon ( shortcut )

[rasengannl]

Goedendag,

Ik had een vraag over hoe ik in Windows 7 kan bellen naar een telefoon.
We zijn sinds kort bezig met hele bedrijf naar Windows 7 te krijgen.
Ik bedoel het in de vorm van:

Ik zit op een internet pagina, en daar staat een nummer... bv. 0000-123456
En op de huidige pc`s ( Windows XP ) staat daar een telefoontje achter. Als we daar op drukken dan gaat de telefoon automatisch bellen, allemaal ingesteld en geregeld. Maar hoe kan ik dit voor elkaar krijgen bij Windows 7? Want er staat geen telefoontje achter een nummer.

Mvg,
Rasengan

 

[Mr_Fixit]

Bellen waarmee?

Het is geen standaard functionaliteit van windows XP.
Dus als je ons kunt vertellen waar de huidige pc's mee naar dit nummer bellen kunnen we je verder helpen.

Bellen ze via voip of een modem, en welk software gebruikt de pc hiervoor?

 

[rasengannl]

Wij gebruiken Dialer version 1 met een dial.vbs script.

 

[Mr_Fixit]

Kun je wat meer informatie geven?
Alleen "Dialer version 1" helpt ons niet echt verder, wat is de maker van deze software?
En wat doet het vbs script?

 

[rasengannl]

Mijn excuus ik hoor net dat het programma hier zelf is gemaakt,

----
vb script
----

dim i, str1, str2, str3

if WScript.Arguments.count > 0 then

for i = 0 to WScript.Arguments.count - 1

str1 = str1 & WScript.Arguments.Item(i)

next



else

str1 = ""

end if


'exporteer nummer naar nummer.txt

Dim oFilesys, oFiletxt, sFilename, sPath

Set oFilesys = CreateObject("Scripting.FileSystemObject")

Set oFiletxt = oFilesys.CreateTextFile("c:\dial\nummer.txt", True)

sPath = oFilesys.GetAbsolutePathName("c:\dial\nummer.txt")

sFilename = oFilesys.GetFileName(sPath)

oFiletxt.WriteLine(str1)

oFiletxt.Close


'start dialer.exe


Set wshShell = WScript.CreateObject ("WSCript.shell")
wshshell.run "C:\dial\Dialer.exe"

'lees gecorrigeerde txt
WScript.Sleep 500
dim fs,f,t,x
set fs=CreateObject("Scripting.FileSystemObject")
set f=fs.CreateTextFile("c:\dial\nummer2.txt")
f.close

set t=fs.OpenTextFile("c:\dial\nummer.txt",1, False)
x=t.ReadLine
t.close
str2=x


'start telefoongesprek

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run ("c:\dial\dial.exe " & str2)