' Check BssCfgManip.htm in your SSH Server installation directory for the correct COM object name for your installation. ' The VBScript instance executing this script needs to run elevated, as administrator, to access SSH Server settings. Set cfg = CreateObject("BssCfg726.BssCfg726") cfg.LoadServerKeypairs() pubkey = "my.server.address " & cfg.GetPublicKeyOpenSsh(0) ' Ask for output file to write to. sFileName = InputBox("Public key output file: ") If sFileName = "" Then WScript.Quit(0) ' Write to output file. Const ForWriting = 2 Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile(sFileName, ForWriting, True) f.WriteLine pubkey